USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página