هدية أبو غفران : برنامج إنشاء شريط القوائم .

[صالح حمادي]

10 ساعات مضت, nogom said:

هل استطيع ان ادرج قائمة ضمن القائمة المردجة

نعم لقد طلبه مني أحد الإخوة من قبل و وعدته بأن أنجز ذلك، بعد أنتهي من أعمالي التي تمنعني من الدخول كثيرا للمنتدى.

10 ساعات مضت, nogom said:

هل بإمكاني اخفاء الوميض

نعم يمكن ذلك

لاحظ هذا المرفق في في قائمة ملف لا يوجد وميض

و بقية القوائم يوجد وميض

أدخل على الأكواد البرمجية و ستعرف السر في ذلك

 

مثال.rar

[nogom]

في ١٢‏/٧‏/٢٠١٨ at 21:41, صالح حمادي said:

نعم يمكن ذلك

لاحظ هذا المرفق في في قائمة ملف لا يوجد وميض

و بقية القوائم يوجد وميض

أدخل على الأكواد البرمجية و ستعرف السر في ذلك

 

مثال.rar

الله يعطيك العافية

هل يمكنني ان ادخل قائمة دمن قائمة 

مثال:

عند المرور على زر ملف يظهر لي ادعية ومن الادعية اختار الدعاء

هل توجد طريقة في البرنامج المقترح

 

تم تعديل يوليو 15, 2018 بواسطه nogom

[صالح حمادي]

4 ساعات مضت, nogom said:

هل يمكنني ان ادخل قائمة دمن قائمة

إن شاء الله راح أضيفها للبرنامج أخي لكن بعد أن أنهي العمل الذي بين يدي مدة 4 أو 5 أيام

[Hosam Shehata]

راااااائع 

تسلم الايادى اخ @صالح حمادي

[عمرو العاصى]

بارك الله فيك أخى الفاضل على المجهود الرائع

[HUSSIN]

 

 السلام عليكم
  
  بسراحه موضوع مميز جداً
  
 على الرغم من قدم تاريخ كتابته إلا أنه على حد علمي المتواضع حتى الآن هو الحل الوحيد لإنشاء شريط قوائم للنموذج بهذا الشكل الرائع. 

 

 

[waheidi2005]

الزملاء الافاضل

هل تم انشاء قوائم فرعية واذا تم يا ليت تزودونا بالبرنامج

ودمتم مع الشكر

 

[عمر ضاحى]

9 ساعات مضت, waheidi2005 said:

الزملاء الافاضل

هل تم انشاء قوائم فرعية واذا تم يا ليت تزودونا بالبرنامج

ودمتم مع الشكر

 

ممكن تجرب الكود هذا 
 

Dim cbMenu1 As CommandBar
Dim menultems1 As CommandBarControl
Dim subMenu As CommandBarPopup
Dim FPath, SFileName01, SFileName02, SFileName03, SFileName04, SFileName05, SFileName06, SFileName07, SFileName08, SFileName09, SFileName10 As String
Dim Aa01, Aa02, Aa03, Aa04, Aa05, Aa06, Aa07, Aa08, Aa09, Aa10 As IPictureDisp
FPath = CurrentProject.Path
SFileName01 = FPath & "\ICONS\01.bmp"
Set Aa01 = stdole.StdFunctions.LoadPicture(SFileName01)
SFileName02 = FPath & "\ICONS\02.bmp"
Set Aa02 = stdole.StdFunctions.LoadPicture(SFileName02)
SFileName03 = FPath & "\ICONS\03.bmp"
Set Aa03 = stdole.StdFunctions.LoadPicture(SFileName03)
SFileName04 = FPath & "\ICONS\04.bmp"
Set Aa04 = stdole.StdFunctions.LoadPicture(SFileName04)
SFileName05 = FPath & "\ICONS\05.bmp"
Set Aa05 = stdole.StdFunctions.LoadPicture(SFileName05)
SFileName06 = FPath & "\ICONS\06.bmp"
Set Aa06 = stdole.StdFunctions.LoadPicture(SFileName06)
SFileName07 = FPath & "\ICONS\07.bmp"
Set Aa07 = stdole.StdFunctions.LoadPicture(SFileName07)
SFileName08 = FPath & "\ICONS\08.bmp"
Set Aa08 = stdole.StdFunctions.LoadPicture(SFileName08)
SFileName09 = FPath & "\ICONS\09.bmp"
Set Aa09 = stdole.StdFunctions.LoadPicture(SFileName09)
SFileName10 = FPath & "\ICONS\10.bmp"
Set Aa10 = stdole.StdFunctions.LoadPicture(SFileName10)
'Debug.Print FPath
'Debug.Print SFileName10
'Debug.Print Aa01

On Error Resume Next
CommandBars("Menu1").Delete

' Create the main menu
Set cbMenu1 = CommandBars.Add("", 5, , True)
    ' Create a submenu
Set subMenu = cbMenu1.Controls.Add(Type:=msoControlPopup): subMenu.Caption = "MAIN MENU 1"
Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 1": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01
Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 2": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01
Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 3": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01

Set subMenu = cbMenu1.Controls.Add(Type:=msoControlPopup): subMenu.Caption = "MAIN MENU 2"
Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 4": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01
Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 5": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01
Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 6": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01



Set menultems1 = cbMenu1.Controls.Add: menultems1.Caption = "TEST 1": menultems1.OnAction = "cmdChangeUser": menultems1.Picture = Aa01
Set menultems1 = cbMenu1.Controls.Add: menultems1.BeginGroup = True: menultems1.Caption = "TEST 2": menultems1.OnAction = "CmD053": menultems1.Picture = Aa05
Set menultems1 = cbMenu1.Controls.Add: menultems1.Caption = "TEST 3": menultems1.OnAction = "CmD003": menultems1.Picture = Aa02
Set menultems1 = cbMenu1.Controls.Add: menultems1.Caption = "TEST 4": menultems1.OnAction = "CmD004": menultems1.Picture = Aa02


cbMenu1.ShowPopup

 

[waheidi2005]

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