ماهوا اختصار زر ويندوز في الكود

[Mohameddd200300]

الان اعرف اغلبيت الرموز والاكواد للزراير الكبيورد في الاكواد بس زر الوندز  الي في لوحة المفاتيح ماعرفته الي عنده فكره ياليت يساعدنا  

ارغب بعمل اختصار ممثلا لي زر وندز وحرف الM علشان يخفي  الشاشة المفتوحه او وندز و زر السفل لتصغير البرنامج المفتوح ومثل كذالك وشكرا 

تم تعديل يوليو 28, 2022 بواسطه Mohameddd200300

[Lamyaa]

بالنسبة إلى زر  الويندوز

KeyCode = 91

[Mohameddd200300]

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

يعني ابغا اختصار  في الكود  لما اضغط على زر في النموذج  يضغطلي زر الوندز  وا حرفm مع بعض  

زي اختصار كنتر وa. وز كذا   شكرا لك 

منذ ساعه, Lamyaa said:

بالنسبة إلى زر  الويندوز

KeyCode = 91

 

[Lamyaa]

48 دقائق مضت, Mohameddd200300 said:

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

يعني ابغا اختصار  في الكود  لما اضغط على زر في النموذج  يضغطلي زر الوندز  وا حرفm مع بعض  

زي اختصار كنتر وa. وز كذا   شكرا لك 

 

في البدية قم بالتصريح عن المكتبات التالية في بداية النموذج

Option Explicit

Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2

وفي كود الزر ضع :

   'مثلا أنت تريد Win+M
   
    keybd_event 91, 0, 0, 0
    keybd_event 77, 0, 0, 0
    DoEvents

    keybd_event 91, 0, KEYEVENTF_KEYUP, 0
    keybd_event 77, 0, KEYEVENTF_KEYUP, 0
    DoEvents

 

 

تم تعديل يوليو 29, 2022 بواسطه Lamyaa

[Lamyaa]

وهذا مثالWIn+M_Lamyaa.accdb

[Mohameddd200300]

 تسلم ايدك  يا غالي

تم تعديل يوليو 29, 2022 بواسطه Mohameddd200300

[الحلبي]

8 ساعات مضت, Lamyaa said:

في البدية قم بالتصريح عن المكتبات التالية في بداية النموذج

هذا الكود جميل جدا ولكنه لا يعمل مع النموذج المنبثق 

اى جعل خصائص النموذج من pop up جعلها no

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

[متقاعد]

4 ساعات مضت, الحلبي said:

هذا الكود جميل جدا ولكنه لا يعمل مع النموذج المنبثق 

بل يعمل يا د. محمد ولكن قبل ذلك نوضح الاتي

خاصية منبثق نعم مشروط لا  " يعمل الكود بدون مشكله "

------

منبثق نعم  مشروط نعم " لن يعمل الكود " لكون الخاصية مشروط تعني تعطيل اي نافذة اخرى الى ان تغلق النموذج المشروط

اخيرا اذا كنا نرغب في منبثق نعم ومشروط نعم ويعمل الكود هنا يتطلب الامر ان نعطل خاصية مشروط عند تنفيذ الامر فقط

لذا ممكن وضع الامر التالي في بداية الكود لزر الامر

Dim k As Boolean: Forms("form1").Modal = False

ليصبح الكود ⬇️

Dim k As Boolean: Forms("form1").Modal = False
    keybd_event 91, 0, 0, 0
    keybd_event 77, 0, 0, 0
    DoEvents

    keybd_event 91, 0, KEYEVENTF_KEYUP, 0
    keybd_event 77, 0, KEYEVENTF_KEYUP, 0
    DoEvents

تحياتي الملف مرفق مع الشكر للاستاذة لميا

WIn+M_Lamyaa(1).accdb

تم تعديل يوليو 29, 2022 بواسطه مبرمج سابق

[الحلبي]

تحياتي الملف مرفق مع الشكر للاستاذة لميا

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

كتبت نفس الكود وجعلته true ولكنة لم يرجع منبثق

الغرض من كل هذا انه يوجد زر يقوم بتصغير النموذج المبثق (وهذ تم بكود حضرتك) ولكن كيف ارجعه تانى منبثق

[متقاعد]

23 دقائق مضت, الحلبي said:

ولكن كيف ارجعه تانى منبثق

يامرحبا باخي واستاذي د.حلبي كما اشرت في ردي السابق ان عدم عمل الكود بسبب الخاصية مشروط وليس منبثق

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

منبثق نعم مشروط نعم

انظر الفيديو المرفق مع العلم باني اعمل على نسخة 21

تحياتي

 

[الحلبي]

استاذنا ومعملنا الكبير / @مبرمج سابق

اشكرك وتسلم ايدك فانت خير معلم لنا 

شرح واضح والان فهمت قصدك وعرفت السبب

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