fighters

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

    شاطر
    avatar
    fighter
    الـمـديـرالـعـام
    الـمـديـرالـعـام

    عدد الرسائل : 226
    العمر : 29
    مزاجى :
    تاريخ التسجيل : 16/04/2008

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

    مُساهمة من طرف fighter في الخميس مايو 01, 2008 6:08 pm

    شرح شريط الأدوات 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- مثال الموجود من قبل الشركة









    _________________

      الوقت/التاريخ الآن هو الأحد أغسطس 19, 2018 3:50 pm