تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
الدرس الثلاثون - التعامل مع شريط الأدوات ToolBar
#1
كاتب الموضوع : أحمد جمال

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

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


سنقوم بعمل شريط أدوات لبرنامجنا خلال هذا الدرس .. ولهذا الغرض سوف نستخدم أداتين :
* أداة
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 من هذه الدورة ، ولكنها لم تضف واضيفت الآن .


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الدرس الرابع والثلاثون والأخير - نبذة عن العملية العكسية + تجهيز البرنامج على Cd RaggiTech 0 11,113 15-10-12, 09:10 AM
آخر رد: RaggiTech
  الدرس الثالث والثلاثون - كيفية عمل اعداد Setup للبرنامج RaggiTech 0 3,979 15-10-12, 09:08 AM
آخر رد: RaggiTech
  الدرس الثاني والثلاثون - التحويل إلى exe RaggiTech 0 4,065 15-10-12, 09:07 AM
آخر رد: RaggiTech
  الدرس الحادي والثلاثون - تعددية المستخدمين - البحث وطباعة الفواتير - التعليمات ... RaggiTech 2 4,952 15-10-12, 09:05 AM
آخر رد: RaggiTech
  الدرس التاسع والعشرون - التعامل مع أشرطة الحالة Statues Bar RaggiTech 0 3,602 15-10-12, 08:57 AM
آخر رد: RaggiTech
  الدرس الثامن والعشرون -الطباعة في البرنامج . RaggiTech 4 5,294 15-10-12, 08:56 AM
آخر رد: RaggiTech
  الدرس السابع والعشرون - مقدمة إلى التعامل مع التقارير من خلال DataReport RaggiTech 2 6,107 15-10-12, 08:45 AM
آخر رد: RaggiTech
  الدرس السادس والعشرون - التقارير اليومية ، والتقارير بين تاريخين RaggiTech 1 4,347 15-10-12, 08:39 AM
آخر رد: RaggiTech
  الدرس الخامس والعشرون - الإحصائيات والرسوم البيانية RaggiTech 0 3,766 15-10-12, 08:37 AM
آخر رد: RaggiTech
  الدرس الرابع والعشرون - تقارير المصانع والأنواع RaggiTech 0 3,474 15-10-12, 08:36 AM
آخر رد: RaggiTech

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم