هذا درس من دروسي في بعض المنتديات..

قلت أحطه هنا.. لأنه سهل وإن شاء الله اللي عنده ولو القليل في البرمجة بالـ (VB) راح يستفيد منه..

اترككم مع الشرح ^_^..

بسم الله الرحمن الرحيم

السلام علكيم ورحمة الله وبركاته..

التحكم في الأدوات برمجياً..
هذا الدرس للمبتدئين مثلي.. طبعاً القسم تغلب عليه الأسئلة أكثر من الدروس.. وهذا شيء حلو إن شاء الله لتبادل الخبرات.. ولكن :
لو الواحد قبل لا يسأل يبحث عن سؤاله يمكن يكون مكرر لأنه كثير من الأسئلة مكرره..
وإذا ما لقاه يطرح السؤال.. وبإذن الله ما فيه أحد يقصر معه..
المهم راح أشرح طريقة التحكم في أدوات الفيجوال برمجياً..
ولازم تفهم الطريقة مو تحفظها.. علشان تطبقها على كل الأدوات..
من الأسئلة المنتشرة في المنتديات..
كيف أقدر أغير لون تكست إلى أحمر إذا كتب المستخدم كلمة المرور خطأ.. << مثلاً..
وكيف أخفي تكست أخرى لما يكتب كلمة المرور صح وأظهرها له.. وكيف أقدر أغير نوع الخط فيها.. وحجمه.. وعرضه..
وكيف أقدر أسوي هذه الأمور على الأدوات الأخرى مثل الليبل وغيرها.. << كل هذا كيف أفعله برمجياً..؟؟
الأمر بسيط ولكن افهم ما سأقوله..
الآن أضف أداة واحدة Text1.. وأداة واحدة Label1.. وزر واحد Command1..

القاعدة المهمة اللي لازم تعرفها (اسم الأداة(.)خاصية الأداة(=)القيمة المراد وضعها للخاصية)..

بكل بساطة تكتب اسم الأداة ثم نقطة اللي هي الدوت (.) ثم اسم الخاصية المراد

تعديلها للأداة.. ثم (=).. ثم القيمة المراد وضعها لخاصية الأداة..

- مثال عملي.. الآن أبغى أكتب في أداة الـ Text1 عبارة معينة مثلاً (أبو ربيع)..

اسم الأداة عندي (Text1) وباقي لازم أعرف الخاصية المسؤولة عن الكتابة في

التكست..

حدد الأداة بالفأرة ثم شوف نافذة الخصائص (Properties)..

شوف الصورة..

نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي

يظهر لي في الصورة أن الخاصية المسؤولة عن الكتابة في التكست هي (Text)..

الخاصية الموضح عليها باللون الأزرق في الصورة..

الآن ننفذ القانون اللي فوق علشان نكتب كلمة (أبو ربيع) برمجياً وليس من نافذة

الخصائص..

القانون : (اسم الأداة(.)خاصية الأداة(=)القيمة المراد وضعها للخاصية)..

1- اسم الأداة عندي : Text1
2- النقطة أو الدوت (.) << ثابتة ما تتغير
3- اسم الخاصية : Text
4- يساوي (=) << ثابتة
5- القيمة المراد وضعها للخاصية : (أبو ربيع) << اللي هي الكتابة اللي أبغى

أكتبها بالأداة..

الآن كل المعطيات عندنا..رتبها جنب بعض بس حتى يطلع لك كود برمجي بدون

أخطاء بإذن الله.. هكذا..


كود:
Text1.text= "أبو ربيع"
اضغط على الزر كوماند.. ثم ضع هذا السطر في منتصفه.. ونفذ البرنامج راح

تلاحظ أن الأداة انكتب فيها كلمة (أبو ربيع).. بدون ما نكتبها من نافذة الخصائص..

طيب أبغى أغير لون النص في التكست برمجياً.. نفس الطريقة الأولى ولكن نغير

الخاصية إلى خاصية الكتابة..

شوف الصورة..

نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي

الآن عرفنا اسم خاصية اللون يالله نضيف سطر للكود وننفذ نفس القانون القانون :

(اسم الأداة(.)خاصية الأداة(=)القيمة المراد وضعها للخاصية)..


كود:
Text1.ForeColor = vbRed
بالنسبة لقيمة خاصية اللون.. اكتب رمز اختصار اللغة اللي هو (Vb).. ثم اسم

اللون..

نضيف السطر هذا للبرنامج ليصبح كود البرنامج هكذا..

كود:
     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
لاحظ أننا أضفنا فقط اسم الفورم (Form2) ثم (.) والباقي نفس القانون السابق..

وهكذا مع باقي النوافذ..
ـــــــــــــــــــــــــــــــــــــــــــــــــ
بقي شيء مهم.. لكي أضيف لبرنامجي شيء من القوة والمرونة..

يجب أن أتحكم بتلك الخصائص بواحدة من دوال الشرط مثل دالة (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
نفذ الكود واكتب في خانة التكست بوكس (أبو ربيع) أو (ربيع) أو أي كلام غيره..
واضغط على الزر كوماند.. وشوف التغيرات..
ـــــــــــــــــــــــــــــــــــــــــــ



وبعد هذا ما أعتقد إن فيه أوضح من كذا ^_^..


بقلم : أبو ربيع

وما عاد إلا سلامتكم..