قوائم مختصرة شرح : قوائم مختصرة منبثقة من ازرار التحكم Command Buttons Shortcut Menus

[Amr Ashraf]

السلام عليكم .. الاخوة الافاضل

الموضوع اليوم بسيط وسريع ويتحدث عن طريقة عمل قوائم مختصرة منبثقة من الازرار مثل الصورة التالية :

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

اول خطوة عمل موديول جديد به الكود التالى :

Sub MyMenu2()
Dim Mnu As CommandBar, Itm As CommandBarControl
Set Mnu = CommandBars.Add("", MsoBarPopUp, , True)
Set Itm = Mnu.Controls.Add: Itm.Caption = "Export To PDF": Itm.OnAction = "amr3"
Set Itm = Mnu.Controls.Add: Itm.Caption = "Export To Excel": Itm.OnAction = "amr4"
Mnu.ShowPopup
End Sub

القائمة السابقة فيها امرين 2 فقط ويمكن زيادتها كما تريد بتكرار السطور وتغيير الاسماء , بالنسبة لAmr1 فى نهاية الجملة هو الامر المطلوب تنفيذه وسيتضح الموضوع من المثال المرفق .

الخطوة الثانية : فى النموذج المطلوب تنفيذ الفكرة عليه , خلف زر الامر يتم وضع كود استدعاء للكود السابق كالتالى :

Private Sub Command0_Click()
MyMenu2
End Sub

والنتيجة عند الضغط على الزر تنبثق القائمة كما فى الصورة السابقة .

ملاحظات :

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

اترككم مع المثال لمزيد من التوضيح .. دمتم بخير

 

Amr Magic Button.accdbFetching info...

تم تعديل يناير 29, 2022 بواسطه Amr Ashraf

[سرمد البعيد]

مثال جميل
عاشت ايدك

[abouelhassan]

شكر وتقدير واحترام من اخيك

[Amr Ashraf]

  في 10‏/2‏/2022 at 07:36, abouelhassan said:

شكر وتقدير واحترام من اخيك

Expand  

شرفنى مرورك اخى الكريم

[Moosak]

رائع ما شاء الله عليك أخي @Amr Ashraf

فكرة جميلة من شأنها أن تبسط تصميم النماذج .. 🙂 

[Amr Ashraf]

  في 10‏/2‏/2022 at 14:58, Moosak said:

رائع ما شاء الله عليك أخي @Amr Ashraf

Expand  

شرفنى مرورك استاذ موسى

[ابوخليل]

جميل جدا استاذنا

بهذه الفكرة  يمكن الاستغناء عن الازرار باستخدام عناصر اخرى او صور ، ايضا يمكن  تنفيذ الحدث عند تحريك الماوس

سلمت اناملك

[Eng.Qassim]

رائع ومدهش استاذ عمر @Amr Ashraf

[jjafferr]

السلام عليكم 🙂

 

انا كنت عامل موضوع موسع عن القائمة المختصرة هنا:

.

ولكن استخدامك القائمة بهذه الطريقة على الازرار ، يجعل موضوعك مميز 🙂

شكرا على هذه الافكار 🙂

 

جعفر

[Amr Ashraf]

  في 10‏/2‏/2022 at 19:12, jjafferr said:

ولكن استخدامك القائمة بهذه الطريقة على الازرار ، يجعل موضوعك مميز 🙂

Expand  

مرورك شرف لنا استاذنا الكبير وتأكد ان كل ما نتوصل اليه هو نتاج تأسيسكم لنا حتى الوصول الى المستوى الذى يتيح لنا البحث والتفكير بالحلول .. جزاكم الله خير

  في 10‏/2‏/2022 at 19:11, Eng.Qassim said:

رائع ومدهش استاذ عمر @Amr Ashraf

Expand  

تشرفنا بمرورك يا هندسة

  في 10‏/2‏/2022 at 18:46, ابوخليل said:

جميل جدا استاذنا

بهذه الفكرة  يمكن الاستغناء عن الازرار باستخدام عناصر اخرى او صور ، ايضا يمكن  تنفيذ الحدث عند تحريك الماوس

سلمت اناملك

Expand  

مرورك شرف لنا استاذنا الكبير وتأكد ان كل ما نتوصل اليه هو نتاج تأسيسكم لنا حتى الوصول الى المستوى الذى يتيح لنا البحث والتفكير بالحلول .. جزاكم الله خير

[at_aziz]

بارك الله فيك وجزاك الله خير استاذنا الفاضل عمر

اضافة جدا رائعه  ومفيده 

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

[Amr Ashraf]

  في 12‏/2‏/2022 at 09:27, at_aziz said:

بارك الله فيك وجزاك الله خير استاذنا الفاضل عمر

Expand  

ولك مثله اخى الكريم , شرفنى مرورك

[Amr Ashraf]

السلام عليكم ..

#اضافة وتأكيد معلومة :

كما أشار استاذنا ابو خليل ان الطريقة ليست حصراً على الزر فقط ولكن لها تطبيقات اخرى كثيرة

  في 10‏/2‏/2022 at 18:46, ابوخليل said:

بهذه الفكرة  يمكن الاستغناء عن الازرار باستخدام عناصر اخرى او صور ، ايضا يمكن  تنفيذ الحدث عند تحريك الماوس

Expand  

يمكنك الاطلاع على المرفق لمزيد من التطبيقات على الفكرة ( قائمة عند الضغط على صورة - قائمة عند الضغط على F2 او F3 من الكيبورد - قائمة عند تحريك بكرة الماوس ) طبعاً مجرد امثلة والتطبيقات كثيرة جدا ..

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

 

دمتم بخير ..

Amr Magic Button V2.0.accdbFetching info...

[أبو إبراهيم الغامدي]

  في 29‏/1‏/2022 at 12:07, Amr Ashraf said:

يجب تفعيل المكتبات الموجودة بالصورة حتى لا تواجه مشاكل .

Expand  

 

للتخلص من استخدام مكتبة الأوفس ومشكلة عدم التوافق يمكن عمل التالي

-- الإعلان عن متغير غرضي عام (Object) بدلا من التخصيص لشريط الأدوات أو قائمة الأدوت (CommandBar, CommandBarControl).

-- عمل قائمة دلالية بأرقم خيارات موقع الأدوات أو استخدام الرقم مباشرة..

 

Public Enum MsoBarPosition
   msoBarBottom = 3      '..Command bar is docked at the bottom of the application window.
   msoBarFloating = 4    '..Command bar floats on top of the application window.
   msoBarLeft = 0        '..Command bar is docked on the left side of the application window.
   msoBarMenuBar = 6     '..Command bar will be a menu bar (Macintosh only).
   msoBarPopup = 5       '..Command bar will be a shortcut menu.
   msoBarRight = 2       '..Command bar is docked on the right side of the application window.
   msoBarTop = 1         '..Command bar is docked at the top of the application window.
End Enum
'--- يكون الأعلان بهذه الطريقة
Sub MyMenu2()
Dim Mnu As Object, Itm As Object
Set Mnu = CommandBars.Add("", MsoBarPopUp, , True)
Set Itm = Mnu.Controls.Add: Itm.Caption = "Export To PDF": Itm.OnAction = "amr3"
Set Itm = Mnu.Controls.Add: Itm.Caption = "Export To Excel": Itm.OnAction = "amr4"
Mnu.ShowPopup
End Sub

 

[Amr Ashraf]

  في 12‏/2‏/2022 at 18:00, أبو إبراهيم الغامدي said:

للتخلص من استخدام مكتبة الأوفس ومشكلة عدم التوافق يمكن عمل التالي

Expand  

اضافة جميلة منك استاذنا الفاضل .. جزاك الله خير وزادك من علمه

[mrbakr]

جزاك الله كل خير