[פרסום]דבר נחמד שגיליתי ב- VB

[B1ackSn0w]

אני עושה פרויקט ב- Visual Basic, וחיפשתי דרך לבדוק מתי Caps Lock מופעל.
בגלל שהוא תו מיוחד, (הוא, ctrl ו- alt) אז אין לו קוד אסקי ואי אפשר לגשת אליו.

אז שוטטתי לי, ולבסוף מצאתי את הדבר הבא:

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

Private Function CapsLockOn() As Boolean
    Dim xState As Integer
    xState = GetKeyState(vbKeyCapital)
    CapsLockOn = (xState = 1 Or xState = -127)
End Function

את הדבר הזה כאן למעלה, מגדירים בטופס רגיל, או במודול.
אם מגדירים במודול צריך לשנות את private ל- public .


אחר כך, כשרוצים לבדוק אם Caps Lock פועל משתמשים בדבר הבא:

If CapsLockOn = True Then
    MsgBox "yup"
else
    MsgBox "Nope"
End If

וזהו.
רק רציתי לשתף אתכם

[assafz]

תודה אחי

[Avi1000R]

תודה.

[yuval50]

תודה

[ROI2289]

תודה