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

مشكلة زر NmLK


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

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

عند استخدام اي كود لي زرار Call SendKeys("{UP}", True)
  زي هذي الدالة   يطفى زر  NmLK   واذا رجعت ضغطت مره ثانية يرجع يشتغل NmLK   ليش   ايش الحل

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

  • أفضل إجابة

أيضا يمكن التحقق من حالة زر Num Lock وإعادتها إذا تم اطفاؤها.

  Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
   Private Const VK_NUMLOCK = &H90

   If GetKeyState(VK_NUMLOCK) = 0 Then
      SendKeys "{NUMLOCK}", True
   End If

 

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

السلام عليكم

سارسل لك رابط يعطيك اسماء ازرار الكيبورد في اكسس ويمكنك استخدامها في البرمجة بدلا من SENDKEYS

الرابط

وهذا مثال له

 

If KeyCode = vbKeyF3 Then


End If

يمكنك وضع هذا لكود في حدث عند مفتاح للاسفل

 

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information