[Resolvido]Verificar se o CapsLock esta On

Senhores boa tarde,

Gostaria de Saber se tem algum código para avisar através de msgbox, ou textbox que o capslock esta ligado, até encontrei algumas coisas por ai mas não deu certo.

agradeço

Acabei de testar uma ideia aqui e funcionou certinho. Criei um botão chamado btnStatusCapsLock para chamar a função:

Código:

' Declarando a biblioteca que gerencia o estado das teclas
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long

' Criando a função que retorna o estado da tecla
Function EstadoCapsLock() As Boolean
    EstadoCapsLock = GetKeyState(vbKeyCapital)
End Function

Private Sub btnStatusCapsLock_Click()
    ' Os estados possíveis são Verdadeiro ou Falso. Damos um Replace() para converter isso em texto informativo
    ' ou pode deixar sem o Replace para exibir o estado em si.
    ' Se o Access estiver em inglês, mudar "Verdadeiro" e "Falso" para "True" e "False" no Replace.
    MsgBox Replace(Replace(EstadoCapsLock, "Verdadeiro", "A tecla CapsLock está ativada."), "Falso", "A tecla CapsLock está desativada."), vbInformation, "Status da tecla CapsLock"
End Sub

Boa! funcionou perfeito.

valeu mesmo.

Só pra deixar registrado

em uma textbox sinalizei se esta ativado ou não no evento ao apertar tecla


Private Sub txtSenha_KeyDown(KeyCode As Integer, Shift As Integer)

If EstadoCapsLock = "Verdadeiro" Then

Me.Texto42.Visible = True

Else

Me.Texto42.Visible = False

End If

End Sub




até mais tks!

Esta função GetKeyState sugerida pelo colega, funciona bem numa sequência de uso de até 2 vezes do SendKeys. Fazendo usos sucessivos do Sendkeys e tentando ativar a tecla Numlock pelo GetKeyState, haverá falha no terceiro e quarto acionamento. Isso é, é funciona em dois acionamento e falha em dois e vai alternando sucessivamente.
Eu fiz um teste usando procedimento do ON timer com prazo de 2000 milisegundos, mas o numlock só é ativado se o usuário clicar em outra tela fora do Access, tipo um Alt + TAB do teclado.
Estava tentando usar o SendKey para mudar o foco de textbox, pois o setfocus faz piscar os formulários. Se alguém tiver uma dica de como usar o setfocus sem piscar o formulário, me ajudaria e muito.