vb6 projects addin

[arafa 0]

ExampleCAIProject.zipالسلام عليكم ورحمة الله

 

اخوانى الاعزاء

 

اعمل الان على مشروع يقوم باضافة شريط ادوات للاكسيل

ولكن تواجهنى بعض المشاكل

 

اريد اضافة شريط ادوات للاكسيل بقائمة Add ins

بحيث تكون عبارة عن قائمة منسدلة تحتوى على عدة قوائم

 

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

Set ExcelToolsMenu = pExcelApp.CommandBars.FindControl(Id:=C_EXCEL_TOOLS_MENU_ID)Set MenuItem1 = ExcelToolsMenu.Controls.Add(Type:=msoControlButton, temporary:=True)With MenuItem1    .Caption = "Click Me #1"End WithControlsCollection.Add Item:=MenuItem1

اريد اضافة قائمة منسدلة تحتوى على قوائم فرعية

فكيف ذلك

وشكرا

تم تعديل 23 Jun 2014 بواسطه arafa