Yasser Fathi Albanna

أقدم لكم اليوم مشروع تغيير خصائص الأدوات والبرنامج فى أثناء التشغيل أتمنى أن ينال رضاكم ويستفاد منه الجميع ومرة أخرى عودا حميدا بأخى وحبيبى وصديقى الغالى أستاذى زمعلمى القدير / ياسر خليل أريد رأى حضرتك برده يهمنى جدا وأيضا رأى صاحب الموضوع الجميل الذى سيجعلنا مبرمجين أ / ياسر العربى تقبلوا جميعا خالص تحياتى وتقديرى تغيير خصائص الأدوات والبرنامج فى أثناء التشغيل 2.rar تغيير خصائص الأدوات والبرنامج فى أثناء التشغيل.rar

عودا حميدا أخى وصديقى وحبيبى الغالى أستاذى القدير / ياسر خليل المنتدى نور بوجودك شكرا لمرورك الكريم وكل سنة وحضرتك طيب

أستاذنا القدير الأخ الحبيب الغالى / إبراهيم ابوليله سلمت يمينك مجهود أكثر من رائع وتنسيق جميل شكله أخذ من حضرتك وقت كبير بارك الله فيك وزادك من علمه وفضلة تقبل خالص تحياتى وتقديرى

ألف ألف شكر يا أ / محمد ظهرت

الله ينور يا أ / ياسر المعلم معلم إحنا لسه برده تلاميذ

السيد المحترم مدير الموقع أ / محمد طاهر تحية طيبة وبعد أيقونة تعديل المشاركات لا تظهر وأيقونة إختيار نوع الخط فى عمل مشاركة أو موضوع جديد لا تظهر الرجاء الإفادة ولكم خالص الشكر والتقدير

المشروع يا معلمى وقللى إيه رأيك Internet Browser 1.rar Internet Browser 1.rar Internet Browser 2.rar

حبيبى الغالى / ياسر العربى معزرة لعدم وصول معلومة حفظ المشروع كامل بالطريقة التى أرفقتها ولكن قرأت ردك بعد ان برمجت متصفح إنترنت وحفظته بنفس الطريقة السابقة سوف أعيد برمجته وأرفعة مرة أخرى بس قللى إيه رأيك ورأى أخويا عبد العزيز Internet Browser.rar أخى وحبيبى الغالى / عبد العزيز أكثر من رائع قنبلة فى عالم الفورم تقبل خالص تحياتى وتقديرى

أخى ومعلمى القدير / ياسر العربى من عنيا أخى وحبيبى الغالى / عبد العزيز إنت تأمر الأكواد المستخدمة الكود الأول يوضع فى CommandButton1 Private Sub Command1_Click() text1.text="اكتب هنا ما تريد" End Sub والكود الثانى يوضع فى CommandButton2 Private Sub Command2_Click() Msgbox"أكتب ما تريد" End Sub والكود الثالث يوضع فى CommandButton3 Private Sub Command3_Click() End End Sub تقبلوا خالص تحياتى وتقديرى

أقدم لكم اليوم رسالة ترحيب من تصميمى من بعض ما تعلمته من شرح الأستاذ والمعلم القدير / ياسر العربى أرجوا أن تنال إعجابكم تعليقك يا أ / ياسر العربى على الفنش يهمنى Welcome Screen.rar

إنت تأمر يا أ / محمد

أخى الحبيب / عبد العزيز هل سطبت النسخة الكاملة أم النسخة البورتوبال أنا سطبت النسخة الكاملة تعمل معايا جيدا

حبيبى الغالى أستاذى ومعلمى القدير / عبد العزيز بسم الله ما شاء الله على كل أعمالك التى أشاهدها وأستمتع بها زادك الله من علمه وفضلة ثانيا الموضوع سهل جدا جدا نحدد CommandBatton جديد فى نهاية الفورم الأول ونضغط علية وفى اليمين فوق نضغط Add Form ونضغط على أيقونة Image بالقائمة إللى على الشمال ونحدد لها مكان داخل الفورم الثانى ثم نختار الصورة المراد وضعها وطبعا يكون مكتوب عليها معلومات المبرمج ثم نضغط دبل كليك على CommandBatton فى الفورم الأول ونضع الكود التالى Private Sub Command1_Click() Form2.show End Sub ثم نقوم بحفظ البرنامج أرجوا أن أكون أوصلت المعلومة تقبل خالص تحياتى وتقديرى لشخصكم الكريم

حبيبى الغالى / ياسر العربى شرح أكثر من رائع ستجعل منا مبرمجين محترفين تفضل المرفق أيضا مما تعلمناه منك عايز أعرف ملاحظاتك أول بأول الكود المستخدم Private Sub Command1_Click() label1.caption=time label2.caption=date End Sub Timer Yasser Albanna.rar

أبى وأستاذى الحبيب / محمد حسن المحمد لفته طيبة من أب فاضل يسأل على أولاده إطمأن على أخى الحبيب الغالى / ياسر خليل فهو بخير وبصحة جيدة فأنا إتصلت به وإطمنت عليه وعدم ظهورة فى المنتدى من فترة هو أنه يوجد كابل النت الرئيسى مقطوع من فترة وجارى إصلاحة جزاك الله كل خير أبى الحبيب / محمد حسن المحمد لا حرمنا الله من سؤلك الدائم على الغائب أدام الله عليك الصحة والعافية تقبل خالص تحياتى وتقديرى

اخى الحبيب الغالى ياسر العربى فى البداية أحب أقولك إنت فعلا سوف تصنع من هذا المنتدى مبرمجين محترفين لتنويهك بالشرح الرائع لهذا البرنامج العظيم جزاك الله خيرا على كل ما تقدمه من أعمال رائعة وزادك الله من العلم الكثير والكثير أقدم لكم ثمرة ما تعلمته من هذا الموضوع الرائع من أخى الحبيب / ياسر العربى الكود المستخدم Private Sub Command1_Click() Dim A, B As Single A = Text1.Text B = Text2.Text If Check1.Value = 1 Then Text3.Text = " " & A + B If Check2.Value = 1 Then Text4.Text = " " & A - B If Check3.Value = 1 Then Text5.Text = " " & A * B If Check4.Value = 1 Then Text6.Text = " " & A / B End Sub أله حاسبة من تصميميى ولكن تنسيقى على قدى لسه الرجاء من أ / ياسر العربى وضع ملاحظاته عليها المرفق على رابط خارجى لكبر حجمه http://www.mediafire.com/download/5x3o418wsqvlbda/Calculator+Yasser+Albanna.rar ولكن فى الزر معلومات المبرمج وضعت له الكود الأتى ولم يظهر الفورم عند الضغط عليه ما السبب Private Sub Command1_Click() Form2.show End Sub

حبيبى الغالى وأخى الفاضل / محمد الريفى جزاك الله خيرا على كل ما تقدمه من أعمال رائعة ومفيدة للجميع تقبل خالص تحياتى وتقديرى

حبيبى الغالى عند تسطيب البرنامج يطلب ID Number ما هو

مش بقولك يا أخى الحبيب / ياسر العربى إظهر وبان عليك الأمان عمل أكثر من رائع وفى الإحتياج له فى بعض الأحيان وليس لفك الحماية بل للتعلم ليس أكثر فجر القنبلة فى إنتظار عرضة وشرحة برده متنساش يا صاحبى تقبل خالص تحياتى وتقديرى لشخصكم الكريم

أيوة كدا يا حبيب قلبى أ / ياسر العربى طلع المستخبى إظهر وبان عليك الأمان سلمت يمينك ولكن لا تعطنى سمكة ولكن علمنى كيف أصطاد فى إنتظار الشرح بإستفاضة فاموضوع شيق فى غاية الأهمية تقبل خالص تحياتى وتقديرى

أبى وأستاذى الحبيب / محمد حسن المحمد شرفت بمرورك وكل سنة وحضرتك بألف صحة وسلامة شرفنى مرورك الكريم أخى أبو عمر تقبل تحياتى أخى الفاضل MEMO2008 شرفنى مرورك الكريم

كل عام وحضراتكم جميعا بألف خير وصحة وسلامة Calendar.rar

السلام عليكم ورحمة الله وبركاته أتمنى أيفيد أحد Sub GetPiv() 'Excel VBA to Create a Pivot Table. Dim PTCache As PivotCache Dim Pt As PivotTable For Each Pt In ActiveSheet.PivotTables 'Checks and deletes any pivot tables. Pt.TableRange2.Clear Next Pt Set PTCache=ActiveWorkbook.PivotCaches.Create(xlDatabase, [A10].CurrentRegion) Set Pt=ActiveSheet.PivotTables.Add(PTCache, [G10]) Pt.PivotFields("Desc").Orientation=xlColumnField Pt.PivotFields("Colour").Orientation=xlRowField Pt.PivotFields("Book").Orientation=xlDataField Pt.PivotFields("Market").Orientation=xlPageField End Sub Sub GetPiv2() 'Excel VBA create Pivot table in new worksheet. Dim PTCache As PivotCache Dim Pt As PivotTable Dim ws As Worksheet Set PTCache=ActiveWorkbook.PivotCaches.Create(xlDatabase, [A10].CurrentRegion) Set ws=Worksheets.Add Set Pt=ws.PivotTables.Add(PTCache, [A10]) Pt.PivotFields("Desc").Orientation=xlColumnField Pt.PivotFields("Colour").Orientation=xlRowField Pt.PivotFields("Book").Orientation=xlDataField Pt.PivotFields("Market").Orientation=xlPageField End Sub Create Pivot Table with Excel VBA.rar

الله ينور أخى العزيز الغالى / عبد العزيز دائما رائع تقبل تحياتى

أتمنى أن يكون الموضوع عجب أحد من الأخوة