|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Alternando NumLock e CapsLock por código
|
 |
|
|
|
Postada em 10/6/2005 por ATS
Você pode inserir esse fragmento de código em seu programa e fazer com que seja acionado ou desacionado as teclas NUM e CAPS Lock
por botões ou eventos de seu programa, para isso é só chamar a sub rotina AlternaCAPS() para o Caps Lock e
AlternaNUM() para o NUM Lock.
Public Const VK_CAPITAL = &H14
Public Const VK_NUMLOCK = &H90
Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Public kbArray As KeyboardBytes
Public Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As Long
Public Declare Function GetKeyboardState Lib "User32" (kbArray As KeyboardBytes) As Long
Public Declare Function SetKeyboardState Lib "User32" (kbArray As KeyboardBytes) As Long
Public Sub AlternaCAPS()
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = IIf(kbArray.kbByte(VK_CAPITAL) = 1, 0, 1)
SetKeyboardState kbArray
End Sub
Public Sub AlternaNUM()
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = IIf(kbArray.kbByte(VK_NUMLOCK) = 1, 0, 1)
SetKeyboardState kbArray
End Sub
|
|
|
|
|
