امثلة عن كيفية استخدام أدوات الفورم- ضاحي الغريب (( متجدد ان شاء الله))

[ضاحي الغريب]

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

رايت هناك حاجة لشرح بعض أدوات الفورم لاخواني بالمنتدي حتي يتمكنوا من معرفة كل اداة ووظيفتها ومثال عليها لكي يتمكنوا من عمل فورم بانفسهم

وسوف ابدا خطوة خطوة بشرح كل اداة بمثال عملي 

الدرس الأول

 

Tree View Control

وهي تقوم بعرض البيانات علي صورة شجرة

مثال

 

الشرح والتطبيق بالمرفقات 

TreeViewControl.rar

[ضاحي الغريب]

هيا بنا نتعرف علي الأدوات الشائعة الأستخدام

عند عمل الفورم اولا

وكان المفروض ان تكون البداية

لكن حصل خير 

 

 

 

 

يتبعه ان شاء الله مثال علي كل أداة منفصل وتطبيق عملي ان شاء الله نتشارك فيه جمعيا للتطبيق

ادوات الفورم.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

موضوع راائع وجميل ... اعانك الله علي اكماله فهو مشوار طويل

وسأكون من أول المتابعين لهذا الموضوع الراائع يوميا لرؤية كل ما هو جديد

حيث انني من احد عشاق الفورم والتعامل مع الفورم

ولكن لي طلب ان تبدأ من الادوات المعروفة البسيطة اولا للتسهيل ليس الا والامر بالطبع متروك لترتيبك انت اخي الحبيب

فأهل مكة ادري بشعابها

وان شاء الله من تقدم الي تقدم ...

وجعله الله في ميزان حسناتك

جزاك الله خيرا

 

[حمادة عمر]

اخي الحبيب

واضح ان القلوب تتلاقي فعندما كنت اكتب الرد كنت انت قد قمت بالتنفيذ مباشرة

فالتمس منك العذر علي التدخل ولكن كل ما اريده هو الاستفادة القصوى للجميع من موضوعك

فهو من المواضيع الهامة جدا

ادام الله الحب في الله بيننا

جزاك الله خيرا

[ضاحي الغريب]

أخي الحبيب // حمادة عمر ((روح المنتدي))

 الله وحده اعلم بمحبتكم لدينا في الله

مرورك ومتابعتك يشرفني ويسعدني

وادعوا الله ان نمشي علي نفس خطاك في تبسيط وتقديم المعلومة

بارك الله فيك وجزاك خيرا

ولا تلتمس العذر بالتدخل

لان تدخلك يسعدني دائما فلك كل الحق 

تقبل تحياتي

[ضاحي الغريب]

تكملة لما سبق في التعرف علي الادوات الشائعة لادوات الفورم

سوف نتعرف علي بعض الأساسيات الخاصة بالفورم والتي سنستخدمها تباعا

 

 

 

 

اساسيات الفورم.rar

[ضاحي الغريب]

 الدرس الأول

سوف نقوم بعمل فورم تحتوي علي زر امر لاغلاق الفورم وعمل ماكرو لعرض الفورم

نقوم بفتح محرر الاكواد عن طريق الضغط Alt+F11

ثم نختار ادراج UserForm

 

ثانيا

 

 

 

 

ونضغط دبل كليك علي زر الأمر (اغلاق الفورم ))

ونكتب الكود التالي لاغلاق الفورم

Private Sub CommandButton1_Click()
Unload Me
End Sub

ثم نقوم باضافة موديل ونقم يتسميته ( Form_Show) وسوف نستخدمه لعرض الفورم من ورقة العمل كالتالي

Sub Form_show()
UserForm1.Show
End Sub

ونقوم بادراج زر عنصر تحكم ونختار ونقوم بتعيين الماكرو السابق (Form_show)

 

التطبيق بالمرفقات

مثال 1.rar

[ضاحي الغريب]

الدرس الثاني

سوف نتعرف فيه علي 

1- ادراج TextBox

2- ادراج ComboBox

3- ادراج  OptionButton

4- ادراج CheckBox

5- مسح الفورم من البيانات المدخلة لادخال بيانات جديدة

6- اضافة عناصر للكمبوبوكس (وسوف نتعرف تباعا علي اكثر من طريقة لاضافة عناصر للكمبوبوكس)

 

 

ثانيا :-  سوف نقوم باضافة الكود الخاص بمسح الفورم 

يوجد لدينا في الفورم اربع عناصر

( TextBox1-ComboBox1-OptionButton1- CheckBox1)

نقوم باضافة زر امرCommandButton ونسميه مثلا (مسح الفورم)

ونكتب داخله في حدث كليك 

Private Sub CommandButton2_Click()
TextBox1.Value = ""
ComboBox1.Value = ""
CheckBox1.Value = False
OptionButton1.Value = False

End Sub

ثالثا اضافة عناصر للكمبوبوكس 

مثال : - اريد اضافة شهور السنة لتظهر كقائمة اختار منها

سوف استخدم الكود التالي في حدث انطلاق الفورم (( UserForm_Initialize)) كالتالي

Private Sub UserForm_Initialize()

For n = 1 To 12
ComboBox1.AddItem Format(DateSerial(2013, n, 1), "mmmm")
Next n

End Sub

يتبـع >>>

 

التطبيق بالمرفقات

مثال 2.rar

[مجدى يونس]

الاخ ضاحى الغريب

عمل ممتاز فعلا

تسلم الايادى

 

 

 

من اخر مواضيعى

 

http://www.gulfup.com/?XxE1ZJ

[saad abed]

اخى ضاحى الغريب ابوعمرو

مجهوداتك واضحة واعمالك متقنة وشروحات من النوع السهل الممتنع

موضوع مهم جدا

على مهلك علينا

كل اسبوع درس

اجعل لكل درس اكثر من مثال ولو بسيط

[محمد يوسف محمد1]

زادكم الله من علمه

بارك الله لك

[basem said]

موضوع اكثر من ممتاز

بارك الله فيك

[أبو حنــــين]

السلام عليكم

أخي ضاحي الغريب

عمل أكثر من ممتاز

أعانك الله على تكملته

تقبل مروري

[حمادة عمر]

[sameer hussien]

بارك الله فيك اخي الكريم

[محمد مصطفى ابو حمزة]

الله الله الله هو ده الكلام موضوع قمة فى الروعة بارك الله

لنا فيك الى الامام ان شاء الله

[مرعى السيد]

بارك الله فيك أستاذنا 

ربنا يكرمك على هذا المجهود الرائع

[أم عبد الله]

أستاذنا الفاضل / ضاحي الغريب

 

جزاك الله خير الجزاء على هذا العمل الرائع والأفكار المتجددة لتعليم الغير . جعله الله في ميزان حسانتك وأعانك على تكملة المشوار. لك كل التحية والتقدير.

تم تعديل يونيو 7, 2013 بواسطه أم عبد الله

[رائد 1982]

جزاك الله خيرا

بالفعل موضوع رااائع

[محمد توبه]

بسم الله ماشاء الله موضوع اكثر من رائع جعله الله فى ميزان حسناتكم 

 

وزادكم الله من علمه 

[ابراهيم الشال]

عمل ممتاز

ندعوالله تعالى ان يعينك على استكماله

[حاملة المسك]

الدرس الثاني

سوف نتعرف فيه علي 

1- ادراج TextBox

2- ادراج ComboBox

3- ادراج  OptionButton

4- ادراج CheckBox

5- مسح الفورم من البيانات المدخلة لادخال بيانات جديدة

6- اضافة عناصر للكمبوبوكس (وسوف نتعرف تباعا علي اكثر من طريقة لاضافة عناصر للكمبوبوكس)

 

 

ثانيا :-  سوف نقوم باضافة الكود الخاص بمسح الفورم 

يوجد لدينا في الفورم اربع عناصر

( TextBox1-ComboBox1-OptionButton1- CheckBox1)

نقوم باضافة زر امرCommandButton ونسميه مثلا (مسح الفورم)

ونكتب داخله في حدث كليك 

Private Sub CommandButton2_Click()
TextBox1.Value = ""
ComboBox1.Value = ""
CheckBox1.Value = False
OptionButton1.Value = False

End Sub

ثالثا اضافة عناصر للكمبوبوكس 

مثال : - اريد اضافة شهور السنة لتظهر كقائمة اختار منها

سوف استخدم الكود التالي في حدث انطلاق الفورم (( UserForm_Initialize)) كالتالي

Private Sub UserForm_Initialize()

For n = 1 To 12
ComboBox1.AddItem Format(DateSerial(2013, n, 1), "mmmm")
Next n

End Sub

يتبـع >>>

 

التطبيق بالمرفقات

 ما شاء الله بارك الله فيك هذا اجمل ما يكون والشرح ابسط ما يكون . انا كنت ابحث على هذا الأمر و بهذه الكيفية بارك الله فيك وجعله فى ميزان حسناتك 

[ضاحي الغريب]

أخي الحبيب الأستاذ // مجدي يونس
أخي الحبيب الأستاذ// سعد عابد
أخي الكريم الأستاذ// محمد يوسف محمد
أخي الكريم الأستاذ// باسم سعيد
اخي الحبيب الأستاذ// أبوحنين
أخي الحبيب الأستاذ// حمادة عمر
أخي الكريم الأستاذ// سمير حسين
أخي الحبيب الأستاذ// محمد مصطفي أبوحمزة
أخي الكريم الأستاذ// مرعي السيد
الأخت الفاضلة // أم عبدالله
الأخ الفاضل // رائد 1982
اخي الفاضل // محمد توبة
أخي الفاضل // ابراهيم الشال
أخي الفاضل // الطائر الحنان

((مع حفظ الألقاب والترتيب))

مروركم شرفني وشرف الموضوع جزاكم الله خيرا وبارك الله فيكم 

وادعوا الله ان اكون عند حسن ظنكم في

تقبل الله منا ومنكم الصالحات

تقبلوا تحياتي جمعيا

[ضاحي الغريب]

الدرس الثالث

 

نستكمل الموضوع السابق والذي تعرفنا فيه معا علي كيفية اضافة عناصر للفورم وكيفية مسح الفورم

وتعرفنا ايضا علي اضافة عناصر للكمبوبوكس 

الان سوف نتعرف ماهو الفرق بين الكمبوبوكس والليست بوكس

استخدام End للخروج من الفورم في الدرس السابق استخدمنا Unload Me
استخدام caption لادراج عنوان للفورم
اضافة عنا صر الي مربع القائمة الليست بوكس

*************************************************************************************************

ماهو الفرق بين الكمبوبوكس والقائمة (الليست بوكس)
الكمبو بوكس يحتوي علي عناصر يمكن رؤيتها عن طريق القائمة المنسدلة ويمكن رؤية عنصر واحد مرئي للمستخدم
القائمة تعرض عدة عناصر بدون قائمة منسدلة ويمكن لللمستخدم الاختيار لعنصر او اكثر منها في وقت واحد
الكمبيو بوكس يجمع بين خواص القائمة المنسدلة ومربع تحرير النص حيث يمكن للمستخدم الكتابة فيه
القائمة (اليست بوكس ) تعطي المستخدم المزيد من الاختيارات المختلفة للعناصر

مثال

عندي مجموعة من البيانات تحتوي علي الأسم والطول  كما يلي

المطلوب 

عمل فورم لعرض رقم الصف المقابل للاسم يحتوي علي

1- ليست بوكس (لعرض الاسماء والاختيار منها )

2- تكست بوكس (مربع نص) لعرض رقم الصف المقابل للاسم.

3-زر امر لتنفيذ الامر

4-زر خروج من الفورم باستخدام (( End ))

 

خطوات العمل 

نقوم بتصميم فورم كما تعلمنا في الدرس الاول

ونقوم بادراج ليست بوكس ومربع نص وزر امر للخروج وز امر لتنفيد امر

كالتالي:

الخطوة  التالية اكواد الفورم

1- لاضافة عناصرالأسماء الموجودة عندي في ورقة العمل Sheet1 الي الليست بوكس

والموجود في (("=Sheet1!A2:B10"))

سوف استخدم الكود في حدث انطلاق الفورم

واضيف عليها سطر العنوان للفورم كما ذكرنا في الدرس الاول باستخدام (Caption))

Private Sub UserForm_Initialize()
' اضافة العناصر لليست بوكس
With ListBox1
.ColumnHeads = True
.ColumnCount = 2
.ColumnWidths = "50;0"
' مصدر البيانات
.RowSource = "=Sheet1!A2:B10"
.MultiSelect = fmMultiSelectSingle
.TextColumn = 1
.BoundColumn = 0
End With
Me.Caption = "معرفة رقم الصف"
End Sub

وقي زر معرفة رقم الصف سوف اضيف مايلي

Private Sub CommandButton1_Click()
If ListBox1.Value <> "" Then
TextBox1.Value = ListBox1.Value + 2
End If

End Sub

وفي زر خروج سوف نستخدم امر جديد (End)

Private Sub CommandButton2_Click()
End
End Sub

وبعد الأنتهاء سوف يكون شكل الفورم كما يلي

 

وان شاء الله بعد الانتهاء من ادوات الفورم واستخدماتها وتنسيقاتها سوف نتطرا الي شرح الأكواد بالتفصيل 

ادعوا الله سبحانه وتعالي ان اكون قد وفقت في تبسيط المعلومة علي قدر المستطاع حتي يستفيد من الدروس اكبر قدر من المتابعين

ولي رجاء عند المتابعة برجاء تطبيق الدرس اولا باولا وان كانت هناك اية اسئلة خاصة بالدرس اتمني سردها 

ورجاء اخر من اخواني بالمنتدي المشاركة ايضا لاثراءالموضوع

حتي يكون عون للمبتدئين ويوفر الوقت في طلبات فورم ويقوم كل منهم بتصميم الفورم الخاص به

وللموضوع بقية ان شاء الله  >>>>

 

التطبيق بالمرفقات

مثال 3.rar

[خالد القدس]

الاستاذ المبدع الضاحى

موضوع غاية في الأهمية ويحتاجه الكثرون

وشرح من العيار السهل الممتنع

ويا حبذا لو أمكن أن يكون الشرح في الموقع وأيضا في الملف المرفق كمثال مثل ما فعلته في المثال رقم 3

وفقك الله لاتمامه وجعله في موازين حسناتك