اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Mohameddd200300
إذهب إلى أفضل إجابة Solved by Lamyaa,

الردود الموصى بها

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

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

تم تعديل بواسطه Mohameddd200300
رابط هذا التعليق
شارك

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

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

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

منذ ساعه, Lamyaa said:

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

KeyCode = 91

 

رابط هذا التعليق
شارك

  • أفضل إجابة
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

 

 

تم تعديل بواسطه Lamyaa
  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

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

تم تعديل بواسطه مبرمج سابق
  • Like 3
  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

تحياتي

 

حلبي.gif

رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information