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

صباح الخير اصحابى و اخوانى فى الله

بعد فترة غياب اقدم لكم اداة القوائم الرائعة SmartMenuXP Control و التى قوم بعمل افضل القوائم لمشروعك بدلا من استخدام محرر القوائم التقليدية Menu editer ...حيث أن تلك الاداة تعطيك مظهر قوائم OfficeXP كما فى الشكل التالى :


خطوات الاستخدام :

1_ قم بتحميل الملف المرفق و بعد فك الضغط ستجد من ضمن ملفات المشروع الاداة SmartMenuXP.ocx بالاضافة الى المكتبة SmartMenuXP.dll و التى تعتمد عليها الاداة

2_ قم بوضع هذان الملفان فى مجلد النظام system32 وقم بتسجيلهم فى نظامك

3_قم بادراج الاداة الى المشروع كما فى الاشكال التالية :


4_ لانشاء اول قائمة لك عليك كتابة الكود التالى :

الكود:

With SmartMenuXP1.MenuItems
    .Add 0, "keyFile", , "&File"
    .Add "keyFile", , , "&Open...", GetPic(1), vbCtrlMask, vbKeyO
    .Add "keyFile", , , "&Save...", GetPic(2), vbCtrlMask, vbKeyS
    .Add "keyFile", , smiSeparator
    .Add "keyFile", , , "E&xit", , vbAltMask, vbKeyQ
End With

فى السطر الاول قمنا بانشاء قائمة رئسية باسم File و المفتاح keyFile
ومن بداية السطر الثانى قمنا باضافة قوائم فرعية للقائمة الرئسية باستخدام المفتاح keyFile

5_ لتنفيذ أى كود برمجى من خلال النقر على تلك القوائم يتم على النحو التالى :

الكود:

Private Sub SmartMenuXP1_Click(ByVal ID As Long)

    With SmartMenuXP1.MenuItems
        Select Case .Key(ID)
            Case "keyOpen"
                ' - Open a file...
            
            Case "keySave"
                ' - Save a file...
            
            Case "keyExit"
                ' - Exit the application...
        End Select
        
    End With
    
End Sub

6_كما يمكنك إضافة ايقونات لك القوائم كما فى الاشكال التالية :






ArrowColor, BackColor, CheckBackColor, CheckBoxColor, CheckMarkColor, FontBackColor, FontForeColor, SelBackColor, SelForeColor, SelBoxColor and SeparatorColor.

رابط تحميل المشروع بالادوات

روعة .....حمد الله على السلامة يا غالى

اسمح لى اخى السنى ان ارفع لك القبة احتراما و تقديرا لمجهودك هذا

جملية جدا ....شكرا لك اخى السنى

أخى جورج شكر لك ...أخى next أخجلتم تواضعنا والله يبارك فيك .....أختى زهراء بل شكر لك أنتى أتيها الفاضلة

مشكور جدا رائعة    ولكن قمت بتحميل المكتبة وقمت بفك الضغط وقمت بنسخ الملفين الى سيستم 32    ولكن كيف اقوم بتسجيلهم  
وكيف يمكنني اضافتها الى مشروع    وشكرا مجددا

أيمن الإبراهيم كتب:مشكور جدا رائعة    ولكن قمت بتحميل المكتبة وقمت بفك الضغط وقمت بنسخ الملفين الى سيستم 32    ولكن كيف اقوم بتسجيلهم  
وكيف يمكنني اضافتها الى مشروع    وشكرا مجددا

شوف هدا المقال

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]