المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : التحكم في أدوات الفيجوال برمجياً


أبو ربيع
09-03-2011, 08:34 AM
هذا درس من دروسي في بعض المنتديات..

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

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

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

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

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

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

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

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

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

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

التكست..

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

شوف الصورة..

http://upload.traidnt.net/upfiles/K1m68789.jpg

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

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

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

الخصائص..

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

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

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

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

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


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

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

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

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

شوف الصورة..

http://upload.traidnt.net/upfiles/HoP68910.jpg

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

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


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

اللون..

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


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

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

مثال آخر : أريد من البرنامج أن يكتب هذه المرة في الليبل عبارة ترحيب للإسم

الموجود في التكست..

أول شيء لازم أعرف ما هي الخاصية المسؤولة عن الكتابة في الليبل..

شوف الصورة..

http://upload.traidnt.net/upfiles/PVA68955.jpg

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

بقي شيء واحد.. كيف أعرف وظائف تلك الأدوات..؟؟ عملها يعني..؟؟

علشان أستخدمها برمجياً..

حمل الكتاب اللي بالمرفقات للأستاذ : خليل إبراهيم..

تكلم فيه عن أهم الأدوات وأهم خصائص تلك الأدوات..

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


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

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

khaledbelal
09-03-2011, 07:54 PM
ما شاء الله

جزاك الله خيرا يا غالي ... في ميزان حسناتك ان شاء الله

المشتاقة للجنة
09-04-2011, 01:22 AM
جزاكم الرحمن خير الجزاء على مجهودكم

أبو ربيع
01-18-2012, 11:42 PM
خالد بلال - المشتاقة للجنة..

مشكوووورين على المرور..

والله يجزاكم عنا خير الجزاء..

ولا حرمت مروركم الكريم..