هل تتوفر وحدة نمطية لتشغيل مفتاح numlock بعد استخدام امر sendkeys

[waledstar]

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

احتاج لوحدة نمطية يمكن وضعها فى كود تحميل الفورد لان مفتاح sendkeys يتسبب فى تعطيل مفتاح numlock

بحيث تقوم الوحدة النمطية بالكشف لو كانت numlock مقفوله يتم فتحها تلقائيا

بارك الله فيكم

[محمد أبوعبدالله]

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

تفضل اخي الكريم

وجدت لك هذه الطريقة

ضع التالي في وحدة نمطية

Option Compare Database
Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, _
                                                              ByVal dwFlags As LongPtr, ByVal dwExtraInfo As LongPtr)
    Private Declare PtrSafe Function GetKeyboardState Lib "user32.dll" (ByVal lpKeyState As LongPtr) As Boolean
#Else
    Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, _
                                                      ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Declare Function GetKeyboardState Lib "user32.dll" (ByVal lpKeyState As Long) As Boolean
#End If

Private Const KEYEVENTF_EXTENDEDKEY As Long = &H1
Private Const KEYEVENTF_KEYUP As Long = &H2
Private Const VK_NUMLOCK As Byte = &H90
Private Const NumLockScanCode As Byte = &H45

Public Sub ToggleNumlock(enabled As Boolean)
    Dim keystate(255) As Byte
    'Test current keyboard state.
    GetKeyboardState (VarPtr(keystate(0)))
    If (Not keystate(VK_NUMLOCK) And enabled) Or (keystate(VK_NUMLOCK) And Not enabled) Then
        'Send a keydown
        keybd_event VK_NUMLOCK, NumLockScanCode, KEYEVENTF_EXTENDEDKEY, 0&
        'Send a keyup
        keybd_event VK_NUMLOCK, NumLockScanCode, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0&
    End If
End Sub

واستخدمها بالكود التالي

    'Turn Numlock off.
    ToggleNumlock False
    'Turn Numlock on.
    ToggleNumlock True

تحياتي

[abouelhassan]

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

[محمد أبوعبدالله]

في ١٥‏/١١‏/٢٠٢١ at 10:32, abouelhassan said:

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

تفضل اخي الكريم

db1.rar

تحياتي

[abouelhassan]

زادك الله من فضله استاذى محمد أبوعبدالله

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

[waledstar]

تحياتى لحضرتك استاذ محمد أبوعبدالله

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

هل ممكن استاذ /  محمد أبوعبدالله استدعاء هذه السطور فى شاشة الماكرو

    'Turn Numlock off.
    ToggleNumlock False
    'Turn Numlock on.
    ToggleNumlock True
بارك الله فيك