التحكم في أدوات الفيجوال برمجياً

[أبو ربيع]

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

قلت أحطه هنا.. لأنه سهل وإن شاء الله اللي عنده ولو القليل في البرمجة بالـ (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

نفذ الكود واكتب في خانة التكست بوكس (أبو ربيع) أو (ربيع) أو أي كلام غيره..
واضغط على الزر كوماند.. وشوف التغيرات..
ـــــــــــــــــــــــــــــــــــــــــــ



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


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

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

[الزعيم علي]

شرح رآئع يا أبو ربيع
للمبتدئيين أيضا أمثالي ...

البرمجة هذي يبغالها مخمخة و روقان ... ان شاء الله أتفضى لها بس

عيني على تطوير برامج windows phone الجديد
يقولون اللي يعرف للفيجوال بيسك يقدر يبرمج تطبيقات ويندوز فون بسهولة

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

و ان شاء الله نرى قريبا المنتدى يعج بالمهتمين بأمور التقنية و البرمجة و البرامج


تحياتي لك على المجهود الرائع و جزاك الله خيرا

[أبو ربيع]

أهلاً وسهلاً بالزعماء.. حياك الله أخوي علي..

الروعة في حضورك يالغالي..

والله ياخي إني مبرمج : VB6 - VB.NET - PERL - PHP - VBS
وغيرها من اللغات البسيطة مثل : HTML وغيرها..
واللغات اللي أقدر أبرمج بها وتدخل تحت نطاق الفيجوال بيسك تقريباً ثلاث..

لكن والله ما قد صنعت تطبيق واحد للويندوز فون ^__^..

ومثل ما قلت إن شاء الله المنتدى يعج بالمهتمين بالبرمجة..
وبصراحة من يتعامل مع البرمجة كثيراً.. لا يعرف الملل من الحاسوب حتى بدون نت..

وفي الحقيقة.. هذا الموضوع طرحته من باب جس النبض.. لأعرف كم عدد المهتمين بالبرمجة..
لأن أحد الإخوان المصريين طلب مني توضيح مفصل للمصفوفة البرمجية array.. وقلت إذا فيه جمهور راح أحضر الدروس..

والحمد لله دروس المصفوفة أنهيتها وطرحتها في ثلاثة أجزاء في أحد المنتديات..
وبالأخير عملتها في كتاب.. ونزلته بالنت..

والكتاب موجود على هذا الرابط..
http://www.mediafire.com/?tt4vv5ivsgefgtv

وفي الأخير : تقبل مني خاااااالص وأحررررر التحايا..
على مرورك الكريم الذي تشرفت به..

ودي.. وتقديري.. لك يالغالي..

[Blaccat]

الله يعطيكم العافيه
وان شاء الله راح يرتقي منتدى صامطه على ايديكم
وفقتم والا الامام

[الأغر]

أبو ربيع

بداية موفقة اخي الكريم

دمت بخير وعافية

[أبو ربيع]

Blaccat..

الله يعافيك يالغالي..
والمنتدى إن شاء الله من تقدم إلى تقدم..
ومشكووووووووور على المرور..
والله يوفقك ويبقيك يالطيب..

ـــــــــــــــــــــ

الأغر..

الله يوفقك إن شاء الله..
وجعل الله العافية خيراً لك في كل أمورك..
ومشكوووووووور على المرور يالغالي..
ودي.. وتقديري.. لك ولمرورك الكريم..

[الزعيم علي]

يا رجل ... مُبرمج مرة وحدة ...ما شاء الله تبارك الله يزيدك علم
أنا كان عندي احساس ان العضو "أبو ربيع" ما هو بسيط

جزاك الله خيرا على هذا المجهود الجبار
و ان شاء الجميع يستفيدوا من الكتاب

[أبو ربيع]

يا رجل ... مُبرمج مرة وحدة ...ما شاء الله تبارك الله يزيدك علم
أنا كان عندي احساس ان العضو "أبو ربيع" ما هو بسيط

جزاك الله خيرا على هذا المجهود الجبار
و ان شاء الجميع يستفيدوا من الكتاب

الله يجزاك ألف خير يالغالي..
ومشكووووور كل الشكر على هذا المرور الراقي..

ودي.. وتقديري.. لك ولمرورك الكريم أخوي الزعيم..