IsCapsActive
Option Explicit Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long Const VK_CAPITAL = &H14 Private Sub Command1_Click() MsgBox (IIf(GetKeyState(VK_CAPITAL), "Attivo", "non attivo")) End Sub
Option Explicit
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Const VK_CAPITAL = &H14
Private Sub Command1_Click()
MsgBox (IIf(GetKeyState(VK_CAPITAL), "Attivo", "non attivo"))
End Sub
( iscapsactive.html )- by Paolo Puglisi
- Modifica del 17/12/2023