إضافة رد

  #1  
قديم 09-03-2011, 08:34 AM
أبو ربيع أبو ربيع غير متواجد حالياً

عضو مشارك

 
تاريخ التسجيل: Aug 2011
المشاركات: 33
افتراضي التحكم في أدوات الفيجوال برمجياً

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

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

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

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

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

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

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


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

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


رد مع اقتباس
  #2  
قديم 09-03-2011, 07:54 PM
الصورة الرمزية khaledbelal
khaledbelal khaledbelal غير متواجد حالياً
مبرمج المنتدى
الادارة تكليف لا تشريف
 
تاريخ التسجيل: Oct 2009
العمر: 34
المشاركات: 3,606
افتراضي

ما شاء الله

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


توقيع : khaledbelal



(أَفَأَمِنَ أَهْلُ الْقُرَى أَن يَأْتِيَهُمْ بَأْسُنَا بَيَاتاً وَهُمْ نَآئِمُونَ {97} أَوَ أَمِنَ أَهْلُ الْقُرَى أَن يَأْتِيَهُمْ بَأْسُنَا ضُحًى وَهُمْ يَلْعَبُونَ {98}
أَفَأَمِنُواْ مَكْرَ اللّهِ فَلاَ يَأْمَنُ مَكْرَ اللّهِ إِلاَّ الْقَوْمُ الْخَاسِرُونَ {99}).
سورة الأعراف.

رد مع اقتباس
  #3  
قديم 09-04-2011, 01:22 AM
الصورة الرمزية المشتاقة للجنة
المشتاقة للجنة المشتاقة للجنة غير متواجد حالياً

مراقبة عامة

 
تاريخ التسجيل: Nov 2009
المشاركات: 4,422
افتراضي

جزاكم الرحمن خير الجزاء على مجهودكم


توقيع : المشتاقة للجنة


اللهم اغفر لي ولوالدي وللمؤمنين والمؤمنات والمسلمين والمسلمات الاحياء منهم والاموات

اللهم صل وسلم وبارك على حبيبنا محمد وعلى آله وصحبه اجمعين

رد مع اقتباس
  #4  
قديم 01-18-2012, 11:42 PM
أبو ربيع أبو ربيع غير متواجد حالياً

عضو مشارك

 
تاريخ التسجيل: Aug 2011
المشاركات: 33
افتراضي

خالد بلال - المشتاقة للجنة..

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

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

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


رد مع اقتباس
إضافة رد


« الموضوع السابق | الموضوع التالي »
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
شرح عمل جدار نارى على لوحة التحكم 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

استضافة الحياة

الساعة الآن 12:37 PM.


Powered by vBulletin® v3.8.4, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. , TranZ By Almuhajir
النسخة الفضية
Ads Management Version 3.0.1 by Saeed Al-Atwi

SlamDesignzslamDesignzEdited by Riad Al-Ganah Team - جميع الحقوق محفوظة لشبكة رياض الجنة

Privacy Policy Valid XHTML 1.0 Transitional By SlamDesignz Valid CSS Transitional By SlamDesignz