[[Template core/front/global/updateWarning is throwing an error. This theme may be out of date. Run the support tool in the AdminCP to restore the default theme.]]
GroupID : رقم ال Group التي سيتم إضافة الButton فيها
Caption : النص الذي سيظهر على ال Button
Picture : رقم الصورة التي نريد ان نظهرها على ال Button مع العلم أن أرقام الصور مأخوذة من أداة ال ImageList
Arrow : وهي قيمة منطقية لإظهار أو إخفاء سهم صغير على ال Button
ToolTip : وهي النص الذي سيظهر في النافذة الصغير الصفراء التي تظهر عند وضع الماوس فوق ال Button
6) Refresh : وهذا الحدث يستخدم في آخر سطر في الكود ليتم إظهار ال Tabs وال Groups وال Buttons على أداة ال Ribbon
ملاحظة : يتم إضافة ال Tabs وال Groups وال Buttons بالترتيب يعني في البداية نضيف ال Tabs ثم نضيف ال Groups ثم نضيف ال Button
ملاحظة : تجنب تكرار قيمة ال ID للمكونات لكي تتمكن من التعامل مع الأداة بسكل سليم.
أحداث الأداة
1) حدث ACPRibbon1_TabClick
حيث من خلال هذا الحدث يتم تنفيذ كود بالاعتماد على قيمة ال ID أو ال Caption لكن من الأفضل استخدام قيمة الID للTabs
2)حدث ACPRibbon1_CatClick
تقريباً نفس حدث ACPRibbon1_TabClick لكن في هذه الحالة لا يتم تنفيذ الكود إلا من خلال النقر على DialogButton الذي يتم إضافته إلى ال Groups
3)حدث ACPRibbon1_ButtonClick
وفي هذا الحدث يتم تنفيذ الكود من خلال قيمة ال ID أو قيم ال Caption ولكن كما سبق وذكرت يفضل استخدام ال ID . طبعاً يتم ذلك عن طريق جمل IF أو جملة Select Case
إنشاء مثال تطبيقي
نضع أداة ال Ribbon على الفورم ونضع أداة ImageList وأداة Image
نعرف المتغير التالي في ال General
Dim Theme As Integer
في حدث ال Form_Load نضع الأكواد كما في الشرح التالي
ACPRibbon1.Theme = Theme
Theme = 0
حيث أعطينا المتغير Theme قيمة 0 ثم أعطينا هذه القيمة لخاصية Theme لأداة ال Ribbon وقيمة صفر لخاصية Theme تعبر عن اللون الأسود لل Ribbon
ثم الكود التالي
Image1.Left = 0 Image1.Top = ACPRibbon1.Height
لضبط إحداثيات أداة ال Image
ثم
Image1.Picture = ACPRibbon1.LoadBackground
لضبط خاصية Picture لأداة ال Image وهي لإظهار لمعان في الخلفية
حيث في السطر الأول مثلاً رقم ال ID = 1 لل Button يتم إضافته داخل ال Group الذي يحمل ال ID = 1 والCaption = تغيير الستايل حيث كل كلمة في سطر لهذا استخدمت vbNewLine وستم إضافة الصورة أو الإيقونة رقم 4 الموجودة داخل أداة ال ImageList
استخدام الأحداث يتم كما يلي يمكنك استخدام جملة Select Case كما يلي سنأخذ حدث ButtonClick لأنه الأكثر استعمالاً
Private Sub ACPRibbon1_ButtonClick(ByVal ID As String, ByVal Caption As String) Select Case ID Case 1 Theme = Theme + 1 If Theme > 2 Then Theme = 0 ACPRibbon1.Theme = Theme Image1.Picture = ACPRibbon1.LoadBackground Form1.BackColor = ACPRibbon1.BackColor ACPRibbon1.Refresh End Select End Sub
فمثلاً في هذا الكود باستخدام جملة Select Case في حالة كانت قيمة ال ID = 1 فإننا سنقوم بتغيير ال Theme وباقي ال Button بنفس الطريقة عن طريق قيمة ال ID يمكننا تنفيذ كود معيًن
وبالنسبة لباقى الأحداث بنفس الطريقة استخدم جملة Select Case في برمجتها
ملاحظة هامة : عندما تريد أن تستخدم هذه الأداة في برامجك يبج إضافة الملفين الظاهرين في الصورة التالية حتى تعمل أداة ال Ribbon حيث أن ملف Theme هو ملف Resuorce يحتوى على الصور المكوّنة لأداة ال Ribbon وملف Office Ribbon 2007 وهي أداة ال Ribbon
تم النشر منذ
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
في هذا الدرس إن شاء الله سأقوم بشرح أداة أعجبتني وأردت أن تستفيدوا منها في برامجكم لأنها حقاً أداة رائعة وهي أداة Office Ribbon 2007 .
وللمعلومة فإن الأداة مفتوحة المصدر ومنقولة من احد المواقع أما الشرح فمن إعدادي والحمد لله
للتعرف على ال Ribbon انظر إلى الصورة التالية
أهم خصائص هذه الأداة
1)خاصية Theme ومن خلال هذه الخاصية يمكنك تغيير لون أداة ال Ribbon ولهذه الخاصية ثلاثة قيم وهي
2) خاصية ImageList وهذه الخاصية لاستخدام الإيقونات في ال Ribbon طبعا باستخدام أداة ImageList
3) خاصية AddTab وهي لإضافة Tab وصيغتها العامة كما يلي
حيث
TabID هو رقم المعرّف للTab
Caption : وهي النص الذي تريد أن يظهر على ال Tab
4) خاصية AddCat وهي لإضافة مجموعة (Group) وصيغتها العام كما يلي
5)AddButton ويستخدم لإضافة زر أمر (Button) داخل ال Group وصيغتها العامة
حيث
ID: رقم المعرف للButton
GroupID : رقم ال Group التي سيتم إضافة الButton فيها
Caption : النص الذي سيظهر على ال Button
Picture : رقم الصورة التي نريد ان نظهرها على ال Button مع العلم أن أرقام الصور مأخوذة من أداة ال ImageList
Arrow : وهي قيمة منطقية لإظهار أو إخفاء سهم صغير على ال Button
ToolTip : وهي النص الذي سيظهر في النافذة الصغير الصفراء التي تظهر عند وضع الماوس فوق ال Button
6) Refresh : وهذا الحدث يستخدم في آخر سطر في الكود ليتم إظهار ال Tabs وال Groups وال Buttons على أداة ال Ribbon
ملاحظة : يتم إضافة ال Tabs وال Groups وال Buttons بالترتيب يعني في البداية نضيف ال Tabs ثم نضيف ال Groups ثم نضيف ال Button
ملاحظة : تجنب تكرار قيمة ال ID للمكونات لكي تتمكن من التعامل مع الأداة بسكل سليم.
أحداث الأداة
1) حدث ACPRibbon1_TabClick
حيث من خلال هذا الحدث يتم تنفيذ كود بالاعتماد على قيمة ال ID أو ال Caption لكن من الأفضل استخدام قيمة الID للTabs
2)حدث ACPRibbon1_CatClick
تقريباً نفس حدث ACPRibbon1_TabClick لكن في هذه الحالة لا يتم تنفيذ الكود إلا من خلال النقر على DialogButton الذي يتم إضافته إلى ال Groups
3)حدث ACPRibbon1_ButtonClick
وفي هذا الحدث يتم تنفيذ الكود من خلال قيمة ال ID أو قيم ال Caption ولكن كما سبق وذكرت يفضل استخدام ال ID . طبعاً يتم ذلك عن طريق جمل IF أو جملة Select Case
إنشاء مثال تطبيقي
نضع أداة ال Ribbon على الفورم ونضع أداة ImageList وأداة Image
نعرف المتغير التالي في ال General
في حدث ال Form_Load نضع الأكواد كما في الشرح التالي
ACPRibbon1.Theme = Theme
حيث أعطينا المتغير Theme قيمة 0 ثم أعطينا هذه القيمة لخاصية Theme لأداة ال Ribbon وقيمة صفر لخاصية Theme تعبر عن اللون الأسود لل Ribbon
ثم الكود التالي
Image1.Left = 0
Image1.Top = ACPRibbon1.Height
لضبط إحداثيات أداة ال Image
ثم
لضبط خاصية Picture لأداة ال Image وهي لإظهار لمعان في الخلفية
ثم
لضبط لون خلفية الفورم
ثم الكود
ثم
ACPRibbon1.AddTab "2", "Tab 2"
ACPRibbon1.AddTab "3", "Tab 3"
لاضافة 3 Tabs لاحظ أن قيمة ال ID مختلفة لكل منها
ثم
ACPRibbon1.AddCat "2", "1", "Group 2", True
ACPRibbon1.AddCat "3", "1", "Group 3", True
ACPRibbon1.AddCat "4", "2", "Group 1", True
ACPRibbon1.AddCat "5", "2", "Group 2", False
ACPRibbon1.AddCat "6", "3", "Group 1", False
لإضافة ال Groups فمثلاً في السطر الأول يتم إضافة Group برقم ID = 1 تابع للTab الذي قيمة ال ID له 1 ولا ستم إضافة DialogButton نظراً لأن القيمة = False
تذكر أن الصيغة العامة لإضافة مجموعة هي كالتالي
ثم الكود التالي لإضافة Button
ACPRibbon1.AddButton "1", "1", "تغيير" & vbNewLine & "الستايل", 4
ACPRibbon1.AddButton "2", "1", "جدول", 1, False, "إضافة جدول جديد"
ACPRibbon1.AddButton "3", "1", "إضافة صورة", 2
ACPRibbon1.AddButton "4", "1", "إضاقة" & vbNewLine & "صورة", 2
ACPRibbon1.AddButton "5", "2", "Graph", 3
ACPRibbon1.AddButton "6", "2", "Graph", 3, True
ACPRibbon1.AddButton "7", "3", "إلبوم", 4
ACPRibbon1.AddButton "8", "4", "رسم", 5
حيث في السطر الأول مثلاً رقم ال ID = 1 لل Button يتم إضافته داخل ال Group الذي يحمل ال ID = 1 والCaption = تغيير الستايل حيث كل كلمة في سطر لهذا استخدمت vbNewLine وستم إضافة الصورة أو الإيقونة رقم 4 الموجودة داخل أداة ال ImageList
و
لتحديث الاداة ورسم المكونات عليها
ليصبح الكود كاملاً داخل حدث ال Form_Load كما يلي
Private Sub Form_Load()
Theme = 0
ACPRibbon1.Theme = Theme
Image1.Left = 0
Image1.Top = ACPRibbon1.Height
Image1.Picture = ACPRibbon1.LoadBackground
Form1.BackColor = ACPRibbon1.BackColor
ACPRibbon1.ImageList = ImageList1
ACPRibbon1.AddTab "1", "Tab 1"
ACPRibbon1.AddTab "2", "Tab 2"
ACPRibbon1.AddTab "3", "Tab 3"
ACPRibbon1.AddCat "1", "1", "Group 1", False
ACPRibbon1.AddCat "2", "1", "Group 2", True
ACPRibbon1.AddCat "3", "1", "Group 3", True
ACPRibbon1.AddCat "4", "2", "Group 1", True
ACPRibbon1.AddCat "5", "2", "Group 2", False
ACPRibbon1.AddCat "6", "3", "Group 1", False
ACPRibbon1.AddButton "1", "1", "تغيير" & vbNewLine & "الستايل", 4
ACPRibbon1.AddButton "2", "1", "جدول", 1, False, "إضافة جدول جديد"
ACPRibbon1.AddButton "3", "1", "إضافة صورة", 2
ACPRibbon1.AddButton "4", "1", "إضاقة" & vbNewLine & "صورة", 2
ACPRibbon1.AddButton "5", "2", "Graph", 3
ACPRibbon1.AddButton "6", "2", "Graph", 3, True
ACPRibbon1.AddButton "7", "3", "إلبوم", 4
ACPRibbon1.AddButton "8", "4", "رسم", 5
ACPRibbon1.Refresh
End Sub
استخدام الأحداث يتم كما يلي يمكنك استخدام جملة Select Case كما يلي سنأخذ حدث ButtonClick لأنه الأكثر استعمالاً
Private Sub ACPRibbon1_ButtonClick(ByVal ID As String, ByVal Caption As String)
Select Case ID
Case 1
Theme = Theme + 1
If Theme > 2 Then Theme = 0
ACPRibbon1.Theme = Theme
Image1.Picture = ACPRibbon1.LoadBackground
Form1.BackColor = ACPRibbon1.BackColor
ACPRibbon1.Refresh
End Select
End Sub
فمثلاً في هذا الكود باستخدام جملة Select Case في حالة كانت قيمة ال ID = 1 فإننا سنقوم بتغيير ال Theme وباقي ال Button بنفس الطريقة عن طريق قيمة ال ID يمكننا تنفيذ كود معيًن
وبالنسبة لباقى الأحداث بنفس الطريقة استخدم جملة Select Case في برمجتها
ملاحظة هامة : عندما تريد أن تستخدم هذه الأداة في برامجك يبج إضافة الملفين الظاهرين في الصورة التالية حتى تعمل أداة ال Ribbon حيث أن ملف Theme هو ملف Resuorce يحتوى على الصور المكوّنة لأداة ال Ribbon وملف Office Ribbon 2007 وهي أداة ال Ribbon
والمثال في المرفقات
أتمنّى أنّ أكون قد أفدتكم
تحياتي للجميع
Ribbon Example.rar
شارك هذا الرد
رابط المشاركة
شارك الرد من خلال المواقع ادناه