ماكرو لجعل مفتاح Num Lock شغال دائما

[kamelnet5]

السلام عليكم ورحمة الله وبركاته

بعد اذن الاساتذة الكرام

عندي برنامج كلما اقوم بعمل اضافة اصناف على الفواتير يقوم بإغلاق مفتاح NUm Lock بشكل تلقائي , اريد من حضراتكم حلا لهذا الامر , ( عن طريق ماكرو أو أي أمر يجعل المفتاح شغال بشكل دائم )

 

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

[AbuuAhmed]

استخدم هذا الإجراء بدلا من الأصل (من جلب الأستاذ جعفر) ولن تشاهد هذه المشكلة مرة أخرى.
 

Sub mySendKeys(String_ As String, Optional Wait As Boolean = False)
    Dim WshShell As Object
       
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys String_, Wait
    Set WshShell = Nothing
End Sub

 

[kamelnet5]

18 ساعات مضت, AbuuAhmed said:

استخدم هذا الإجراء بدلا من الأصل (من جلب الأستاذ جعفر) ولن تشاهد هذه المشكلة مرة أخرى.

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

سوال ( اين اضع هذا الاجراء باي حدث بالنموذج ام اعمل مديول ؟؟؟؟)

[AbuuAhmed]

اعمل مديول
وما عليك إلا إضافة حرفي "my" في بداية استدعاء Sendkeys لتصبح mySendkeys

[kamelnet5]

3 ساعات مضت, AbuuAhmed said:

عمل مديول
وما عليك إلا إضافة حرفي "my" في بداية استدعاء Sendkeys لتصبح mySendkeys

الف شكر

[kamelnet5]

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

وما عليك إلا إضافة حرفي "my" في بداية استدعاء Sendkeys لتصبح mySendkeys

السلام عليكم

قمت باستدعاء على الكشل التالي :

    mySendKeys "{NUMLOCK}"
وضعتها في حديث عند الفتح اول مرة يتم تشغيل المفتاح وعند الفتح مرة اخرة يقوم باغلاق المفتاح ...

هل طريقتي هذه صحيحة ام اني لم تكن صحيحة ...

اريد ان يبقى المفتاح بحالة التشغيل في كل الحالات ....
اشكر لكم حلمكم 

[AbuuAhmed]

لا تضيف أي أمر جديد ، فقط قم بزيادة الحرفين لكل أوامر مناداة Sendkeys

- تخلص من الأوامر التي لها علاقة بلوحة المفاتيح بالحذف تماما الموجودة في البرنامج
 

SendKeys "{NUMLOCK}"

ثم قم بتعديل الأوامر الأخرى بإضافة الحرفين إليها والتي كانت هكذا:
 

SendKeys "{}"

إلى هذا الشكل بعد التعديل:
 

mySendKeys "{}"

والسبب لأن هذه الأوامر هي سبب المشكلة ونحتاج إلى استئصالها من الأساس ولا داعي أبدا أبدا لاستعمال أمر لوحة المفاتيح.

[AbuuAhmed]

ارفع مثالك عزيزي وستجد العون من الجميع إن شاء الله.

[AbuuAhmed]

فحص المفتاح وتشغيله عندما يكون لا يعمل:
 

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Sub NumLockCheck()
    If GetKeyState(&H90) = 0 Then mySendKeys "{NUMLOCK}"
End Sub

 

[abouelhassan]

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

فحص المفتاح وتشغيله عندما يكون لا يعمل:
 

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Sub NumLockCheck()
    If GetKeyState(&H90) = 0 Then mySendKeys "{NUMLOCK}"
End Sub

 

اخى ممكن مثال بارك الله فيك اخي الكريم 

[AbuuAhmed]

المثال

NumLock_TurnOn_01.accdb