منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الدرس الثلاثون - التعامل مع شريط الأدوات ToolBar - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : قسم دورات المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=113)
+---- قسم : دورة بناء برنامج لإدارة السوبر ماركت من الألف إلى الياء (http://vb4arb.com/vb/forumdisplay.php?fid=128)
+---- الموضوع : الدرس الثلاثون - التعامل مع شريط الأدوات ToolBar (/showthread.php?tid=5718)

الدرس الثلاثون - التعامل مع شريط الأدوات ToolBar - RaggiTech - 15-10-12

كاتب الموضوع : أحمد جمال

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

عمل شريط الأدوات .


سنقوم بعمل شريط أدوات لبرنامجنا خلال هذا الدرس .. ولهذا الغرض سوف نستخدم أداتين :
* أداة
Toolbar : لعرض الشريط والتحكم فيه .
* أداة ImageList : نستخدم هذه الأداة لعرض الصور في الشريط ، وهذه الأداة تستخدم مع أكثر من أداة أخرى لعرض الصور بداخلها .


والآن نقوم بتحديد المهام التي سنضع لها رمزا في شريط الأدوات لكي نبدأ في البحث عن أيقونات مناسبة لها ، وهي :
* عرض .
* تقرير البضائع .
* التقرير اليومي .
* شراء .
* بيع .
* بحث .
* آلة حاسبة .
* نسخ .
* كلمة السر .
* حول .
* خروج .

وبعد البحث نقوم بوضع الأيقونات في مسار البرنامج تمهيداً لاستخدامها .

يأتي الآن دور استخدام أداة Imagelist ، لذا قم بتحديدها ، واضغط على Custom من خصائصها ، واختر التبويب Image ، والآن قم بشكل متكرر بما يلي :
* اضغط Insert Picture .
* اختر الصورة المطلوبة .

وهكذا حتى تنتهي من الصور ... وهكذا انتهى دور هذه الاداة .

الآن حدد الأداة الثانية Toolbar ، واختر Custom .
ستظهر لك شاشة الخصائص ، في الشاشة الأولى نستطيع التحكم بما يلي :
*
Image List : منها نستطيع تحديد مصدر الصور وهي أداتنا Imagelist1 .
* Appearance و Style : تحدد المظهر من ثلاثية الأبعاد وغيرها .
* TextAligment : اتجاه النص مع الصورة .


وفي التبويب الثاني Buttons نحدد ما يلي :
نختار Inseret Button ، ومن خاصية Caption نحدد النص الذي سيظهر معها . ومن ToolTipText نختار النص الذي يظهر عند مرور الماوس .
أخيراً خاصية Style تحدد شكل الزر .
فمثلاً الافتراضي 0 زر عادي لكن 1 مثلاً يكون على شكل مربع اختيار ، أما 2 فهو زر يظهر قائمة ، و 3 هو خط Separator نضعه عادة بين كل زرين .
أيضاً خاصية Image تحدد رقم الصورة التي تظهر مع كل زر ، ونعرف الرقم من أداتنا السابقة ImageList .

بهذا الشكل نقوم بضبط تصميم شريط الأدوات ، ويتبقى علينا الكود .

أما عن برمجة شريط الأدوات فيظهر الكود في البداية بالشكل التالي :


كود :
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
حيث يحتوي المتغير Button على النص الموجود في الزر المضغوط .

لذلك سوف نستخدم جملة Select بالشكل التالي :


كود :
Select Case Button
Case "خروج"
وبهذا الشكل ، ومنعاً لتكرار الأكواد في بعض الحالات مثل تغيير كلمة السر قمت بانشاء حدث Chng_pass ووضعت فيه كود تغيير كلمة السر وقمت باستدعاء الحدث مباشرة سواء من القائمة أو من شريط الأدوات .

اجمالي الكود سوف يكون بالشكل التالي :


كود :
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button
Case "خروج"
Dim sure
sure = MsgBox("هل تريد بالتأكيد انهاء البرنامج ؟", vbExclamation + vbYesNo + arabic, "تأكيد الخروج")
If sure = vbYes Then End
Case "حول"
AboutMe.Show 1
Case "كلمة السر"
Call Chng_pass
Case "نسخ"
Copy_Me
Case "آلة حاسبة"
Frm_Calc.Width = 3105
Frm_Calc.Height = 2640
Frm_Calc.Top = 0
Frm_Calc.Left = 0
Frm_Calc.Show
Case "بحث"
If T1.RecordCount = 0 Then
MsgBox "لا توجد أي بضائع للبحث عنها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"
Exit Sub
End If
Frm_Find.Show
Case "بيع"
If T1.RecordCount = 0 Then
MsgBox "لا توجد أي بضائع لعرضها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"
Exit Sub
End If

Frm_Sel_Bay.Lbl_name.Caption = "اضافة عملية بيع"
Frm_Sel_Bay.Refresh_Me
Frm_Sel_Bay.Show 1
Case "شراء"
If T1.RecordCount = 0 Then
MsgBox "لا توجد أي بضائع لعرضها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"
Exit Sub
End If

Frm_Sel_Bay.Lbl_name.Caption = "اضافة عملية شراء"
Frm_Sel_Bay.Refresh_Me
Frm_Sel_Bay.Show 1
Case "تقرير يومي"
If T1.RecordCount = 0 Then
MsgBox "لا توجد أي بضائع لعرض تقارير عنها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"
Exit Sub
End If

Unload Frm_Report4
Frm_Report4.Show
Case "تقرير بضائع"
If T1.RecordCount = 0 Then
MsgBox "لا توجد أي بضائع لعرضها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"
Exit Sub
End If

Frm_Report1.Show
Case "عرض"
If T1.RecordCount = 0 Then
MsgBox "لا توجد أي بضائع لعرضها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"
Exit Sub
End If

Frm_Show.Show
End Select
End Sub
*** بنفس الطريقة في شريط الحالة فإن بامكاننا استخدام الخاصية Index بدلاً من القيمة المعروضة على الشريط .


بهذا الدرس نكون قد اتممنا بحمد الله البرنامج ، ما تبقى لنا الآن هو اعداد البرنامج وتجهيزه للعمل . وحتى الدرس التالي فهذه هي آخر نسخة من البرنامج بها كل ما تم من عمليات منذ بدء البرنامج :

http://www.4shared.com/file/19199892...rog_Final.html



*** كما اعتذر فمحتويات Frm_Edit_SP لم تكن موجودة قبل هذا الملف وقد سقطت مني سهواً ، عموماً قد تم شرح محتواها في الدرس 12 من هذه الدورة ، ولكنها لم تضف واضيفت الآن .


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