|
#1
|
|||
|
|||
التحكم في أدوات الفيجوال برمجياً
هذا درس من دروسي في بعض المنتديات.. كود:
Text1.text= "أبو ربيع" تلاحظ أن الأداة انكتب فيها كلمة (أبو ربيع).. بدون ما نكتبها من نافذة الخصائص.. طيب أبغى أغير لون النص في التكست برمجياً.. نفس الطريقة الأولى ولكن نغير الخاصية إلى خاصية الكتابة.. شوف الصورة.. الآن عرفنا اسم خاصية اللون يالله نضيف سطر للكود وننفذ نفس القانون القانون : (اسم الأداة(.)خاصية الأداة(=)القيمة المراد وضعها للخاصية).. كود:
Text1.ForeColor = vbRed اللون.. نضيف السطر هذا للبرنامج ليصبح كود البرنامج هكذا.. كود:
Text1.text= "أبو ربيع" Text1.ForeColor = vbRed التكست هي أبو ربيع وباللون الأحمر.. مثال آخر : أريد من البرنامج أن يكتب هذه المرة في الليبل عبارة ترحيب للإسم الموجود في التكست.. أول شيء لازم أعرف ما هي الخاصية المسؤولة عن الكتابة في الليبل.. شوف الصورة.. إذاً الخاصية المسؤولة عن الكتابة في الليبل هي (Caption).. على طول ننفذ القانون.. كود:
Label1.Caption = "مرحباً بك " & Text1.Text كود:
Label1.Caption = "مرحباً بك " & Text1.Text Text1.text= "أبو ربيع" Text1.ForeColor = vbRed وهكذا مع باقي الخصائص وباقي الأدوات.. ــــــــــــــــــــــــــــــــــــــــــــــــ طيب أبغى أتحكم بأداة في فورم محدد من فورم آخر.. نفس الطريقة اللي فوق مع إضافة اسم الفورم قبل اسم الأداة ثم (.) ثم باقي القانون السابق.. مثال : أريد من البرنامج السابق أن ينفذ نفس الكود ولكن لا أريده أن يغير لون التكست الموجودة في الفورم الأول.. بل أريده أن يغير لون التكست الموجودة افي الفورم الثاني.. بإختصار هذا هو الكود.. كود:
Label1.Caption = "مرحباً بك " & Text1.Text Text1.text= "أبو ربيع" Form2.Text1.ForeColor = vbRed وهكذا مع باقي النوافذ.. ـــــــــــــــــــــــــــــــــــــــــــــــــ بقي شيء مهم.. لكي أضيف لبرنامجي شيء من القوة والمرونة.. يجب أن أتحكم بتلك الخصائص بواحدة من دوال الشرط مثل دالة (IF) مثلاً.. لاحظ الآن سأعدل على البرنامج السابق ليصبح أكثر مرونة.. إذا كتب المستخدم في التكست بوكس (أبو ربيع).. أريد من البرنامج أن يحول الاسم إلى اللون الأحمر ويكتب له ترحيب في أداة الليبل.. كذلك إذا كتب المستخدم في التكست بوكس (ربيع).. أريد من البرنامج أن يحول الاسم إلى اللون الأخضر ويكتب له ترحيب في أداة الليبل.. أما إذا كتب المستخدم في التكست بوكس أي عبارة غير (أبو ربيع) أو (ربيع).. أريد من البرنامج أن يحول التكست إلى اللون الأسود ولا يكتب له ترحيب في أداة الليبل.. هذا الكود بعد استخدام أداة الشرط (IF).. كود:
If Text1.Text = "أبو ربيع" Then Text1.ForeColor = vbRed Label1.Caption = "مرحباً بك " & Text1.Text ElseIf Text1.Text = "ربيع" Then Text1.ForeColor = vbGreen Label1.Caption = "مرحباً بك " & Text1.Text Else Text1.ForeColor = vbBlack Label1.Caption = "" End If واضغط على الزر كوماند.. وشوف التغيرات.. ـــــــــــــــــــــــــــــــــــــــــــ بقي شيء واحد.. كيف أعرف وظائف تلك الأدوات..؟؟ عملها يعني..؟؟ علشان أستخدمها برمجياً.. حمل الكتاب اللي بالمرفقات للأستاذ : خليل إبراهيم.. تكلم فيه عن أهم الأدوات وأهم خصائص تلك الأدوات.. وبعد هذا ما أعتقد إن فيه أوضح من كذا ^_^.. بقلم : أبو ربيع وما عاد إلا سلامتكم.. |
|
|
المواضيع المتشابهه | ||||
الموضوع | كاتب الموضوع | المنتدى | مشاركات | آخر مشاركة |
شرح عمل جدار نارى على لوحة التحكم | MOHAMED | روضة البرمجة بلغة الـ PHP | 8 | 11-03-2011 12:18 PM |
الدرس الثالث : شرح لوحة التحكم | محمود جمال | روضة الدعم الفني للمواقع والمنتديات | 3 | 07-29-2011 02:05 AM |
الدرس الثالث عشر : شرح أدوات الفوتوشوب - أدوات التحديد الحر - دورة Adobe Photoshop CS3 | khaledbelal | دورة Adobe Photoshop CS3 من منتدى الإبداع الفضائي | 0 | 11-07-2010 01:55 PM |
الدرس الثاني عشر : شرح أدوات الفوتوشوب - أدوات التحديد - دورة Adobe Photoshop CS3 | khaledbelal | دورة Adobe Photoshop CS3 من منتدى الإبداع الفضائي | 0 | 11-07-2010 01:54 PM |