• 0
Sniper.ps

أداة Office Ribbon 2007 + شرح لكيفية استخدامه + مثال تطبيقي

سؤال

بسم الله الرحمن الرحيم

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

في هذا الدرس إن شاء الله سأقوم بشرح أداة أعجبتني وأردت أن تستفيدوا منها في برامجكم لأنها حقاً أداة رائعة وهي أداة Office Ribbon 2007 .

وللمعلومة فإن الأداة مفتوحة المصدر ومنقولة من احد المواقع أما الشرح فمن إعدادي والحمد لله

للتعرف على ال Ribbon انظر إلى الصورة التالية

01290611324.jpg

أهم خصائص هذه الأداة

1)خاصية Theme ومن خلال هذه الخاصية يمكنك تغيير لون أداة ال Ribbon ولهذه الخاصية ثلاثة قيم وهي

0 –Black

1 – Blue

2 – Silver

2) خاصية ImageList وهذه الخاصية لاستخدام الإيقونات في ال Ribbon طبعا باستخدام أداة ImageList

3) خاصية AddTab وهي لإضافة Tab وصيغتها العامة كما يلي

ACPRibbon1.AddTab (TabID, Caption) 

حيث

TabID هو رقم المعرّف للTab

Caption : وهي النص الذي تريد أن يظهر على ال Tab

4) خاصية AddCat وهي لإضافة مجموعة (Group) وصيغتها العام كما يلي

ACPRibbon1.AddCat (ID, TabID, Caption, DialogButton)

5)AddButton ويستخدم لإضافة زر أمر (Button) داخل ال Group وصيغتها العامة

ACPRibbon1.AddButton (ID, GroupID, Caption, Picture, Arrow, ToolTip)

حيث

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

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 وهي لإظهار لمعان في الخلفية

ثم

Form1.BackColor = ACPRibbon1.BackColor

لضبط لون خلفية الفورم

ثم الكود

ACPRibbon1.ImageList = ImageList1

ثم


ACPRibbon1.AddTab "2", "Tab 2"
ACPRibbon1.AddTab "3", "Tab 3"
ACPRibbon1.AddTab "1", "Tab 1"

لاضافة 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
ACPRibbon1.AddCat "1", "1", "Group 1", False

لإضافة ال Groups فمثلاً في السطر الأول يتم إضافة Group برقم ID = 1 تابع للTab الذي قيمة ال ID له 1 ولا ستم إضافة DialogButton نظراً لأن القيمة = False

تذكر أن الصيغة العامة لإضافة مجموعة هي كالتالي

ACPRibbon1.AddCat (ID, TabID, Caption, DialogButton)

ثم الكود التالي لإضافة 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

و

ACPRibbon1.Refresh

لتحديث الاداة ورسم المكونات عليها

ليصبح الكود كاملاً داخل حدث ال 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
Dim Theme As Integer

استخدام الأحداث يتم كما يلي يمكنك استخدام جملة 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

11290611324.jpg

والمثال في المرفقات

أتمنّى أنّ أكون قد أفدتكم

تحياتي للجميع

Ribbon Example.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

السلام عليكم

جزاك الله خيرا على هذه الأداة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله

أداة رائعة

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شرح واضح و جميل جداً ....شكراُ أخوي سنايبر والله ماقصرت جاري التطبيق على الدرس ...

تحياتي لك :clapping:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هل هناك امكانيه لاستخدامها مع الاوفيس (اكسس-اكسل)

 

و كيف

 

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .