MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Verificar se o CapsLock esta On

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    [Resolvido]Verificar se o CapsLock esta On Empty Verificar se o CapsLock esta On

    Mensagem  =>Nois 2/5/2013, 18:19

    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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Verificar se o CapsLock esta On Empty Re: [Resolvido]Verificar se o CapsLock esta On

    Mensagem  criquio 2/5/2013, 19:40

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    [Resolvido]Verificar se o CapsLock esta On Empty Re: [Resolvido]Verificar se o CapsLock esta On

    Mensagem  =>Nois 2/5/2013, 21:19

    Boa! funcionou perfeito.

    valeu mesmo. cheers


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    [Resolvido]Verificar se o CapsLock esta On Empty Re: [Resolvido]Verificar se o CapsLock esta On

    Mensagem  =>Nois 3/5/2013, 10:27

    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!




    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    Lauro Ribeiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 15/02/2023

    [Resolvido]Verificar se o CapsLock esta On Empty Função GetKeyState

    Mensagem  Lauro Ribeiro 20/4/2023, 02:44

    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.

    Conteúdo patrocinado


    [Resolvido]Verificar se o CapsLock esta On Empty Re: [Resolvido]Verificar se o CapsLock esta On

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/5/2024, 05:26