SCROLL LOCK

USUARIO.EXCLUIDOS 04/04/2004 01:00:28
#18751
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. Alguém poderia me ajudar?
Obrigado
CAJU 04/04/2004 14:48:45
#18786 Resposta escolhida
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?
CAJU 04/04/2004 18:42:35
#18802
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 [S54]
Tópico encerrado , respostas não são mais permitidas
Voltar