مثال عن الجدول الازرق الموجود فى الاكسبلورر للويندوز

شرح شريط الأدوات Office 2007




رقم 1= هو عبارة عن قائمة CommandBarControl





نسمية ControlFile

الكود:


Set ControlFile = RibbonBar.AddSystemButton()
    ControlFile.IconId = 500
    ControlFile.CommandBar.Controls.Add xtpControlButton, 101, "&New"
    ControlFile.CommandBar.Controls.Add xtpControlButton, 102, "&Open..."
    Set Control = ControlFile.CommandBar.Controls.Add(xtpControlButton, 104, "Pr∫ Setup...")
    Control.BeginGroup = True
    Set Control = ControlFile.CommandBar.Controls.Add(xtpControlButton, 105, "Recent File")
    Control.BeginGroup = True
    Control.Enabled = False
    Set Control = ControlFile.CommandBar.Controls.Add(xtpControlButton, 106, "E&xit")
    Control.BeginGroup = True
    ControlFile.CommandBar.SetIconSize 32, 32

طبعاً الرقم الموجود في ControlFile.IconId=500

يعبر عن رقم الأيقونة Tag الموجودة في ImageList



والسطر التالي أضفنا كونترول New إلى قائمة البرنامج ورقم الأيقونه 101 الموجود أيضاً في ImageList

و &New هو الإسم الي هيظهر في القائمة

الكود:

ControlFile.CommandBar.Controls.Add xtpControlButton, 101, "&New"

والكود التالي نفس الي قبله ولكن حبينا نضيف فاصل بينهما

الكود:

Set Control = ControlFile.CommandBar.Controls.Add(xtpControlButton, 104, "Pr∫ Setup...")
    Control.BeginGroup = True

أما الكود التالي إذا حبينا نظهر الأيقونات بشكل كبير

الكود:

ControlFile.CommandBar.SetIconSize 32, 32

والكود التالي يعرض لنا في الجهة المقابة أيقونة صغيرة للمساعدة

و Flags يحدد مكانها على اليمين

الكود:


Set ControlAbout = RibbonBar.Controls.Add(xtpControlButton, 107, "&About")
    ControlAbout.Flags = xtpFlagRightAlign

وهذا تحميل

1- الأداة
2- مثال بسيط
3- مثال الموجود من قبل الشركة