SCROLL LOCK

 Tópico anterior Próximo tópico Novo tópico

SCROLL LOCK

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#18751 - 04/04/2004 01:00:28

USUARIO.EXCLUIDOS

Cadast. em:


Eu preciso de uma rotina que verifique se o scroll lock do teclado esta ativo...
Se ele estiver ativo ele escreve no txt1.text = "ATIVO" , se estiver inativo escreve INATIVO. Algum poderia me ajudar?
Obrigado



Resposta escolhida #18786 - 04/04/2004 14:48:45

CAJU
FORTALEZA
Cadast. em:Dezembro/2003


Pode fazer assim:


Const VK_CAPITAL = &H14
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Private Type KeyboardBytes
     kbByte(0 To 255) As Byte
End Type
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Dim kbArray As KeyboardBytes

Private Sub Form_Load()
   GetKeyboardState kbArray
   If kbArray.kbByte(VK_NUMLOCK) = 1 Then MsgBox "ATIVO"
End Sub

Resolvido?


T+,
Caju

#18802 - 04/04/2004 18:42:35

CAJU
FORTALEZA
Cadast. em:Dezembro/2003


ah....  no caso vc coloca:

Private Sub Form_Load()
   GetKeyboardState kbArray
   If kbArray.kbByte(VK_SCROLL) = 1 Then MsgBox "ATIVO"
End Sub

claro ....
vc pediu um exemplo e te dei outro

T+,
Caju

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45