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

2 participantes

    [Resolvido]passar o mouse no botão e enviar mensagens

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 867
    Registrado : 12/04/2016

    [Resolvido]passar o mouse no botão e enviar mensagens Empty [Resolvido]passar o mouse no botão e enviar mensagens

    Mensagem  marcelo marques Sab 18 Fev - 10:11

    boa tarde pessoal eu gostaria de implementar em meu menu mais não sei se seria possível, bom gostaria de ao passar o mouse sobre o botão exibirá uma mensagem no "clique para abrir o formulário do cliente "mais ou menos assim porem esta mensagem seria exibida no rodapé do menu


    obrigado
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]passar o mouse no botão e enviar mensagens Empty Re: [Resolvido]passar o mouse no botão e enviar mensagens

    Mensagem  FabioPaes Sab 18 Fev - 15:24

    A dica que vou passar e baseada na seguinte situação:

    No Formulario XXX tem uma caixa de texto chamada txtDica;
    No formulario tem um Botão Comando4, e ao passar o Mause sobre ele aparecerá a dica no campo txtDica.

    No evento Ao move o Mause do Botão, coloque:

    Código:
    Private Sub Comando4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.txtDica = "Sua dica Aqui...!"
    End Sub

    Agora na guia Detalhe do Formulário, no evento Ao mover o Mause coloque:

    Código:
    Private Sub Detalhe_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.txtDica <> "" Then
    Me.txtDica = ""
    End If
    End Sub

    Dessa forma, sempre que o mause passar sobre o Botão ele mostrará a dica... E quando o mause estiver na are do formulario, ele limpara o caixa de texto.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 867
    Registrado : 12/04/2016

    [Resolvido]passar o mouse no botão e enviar mensagens Empty Re: [Resolvido]passar o mouse no botão e enviar mensagens

    Mensagem  marcelo marques Sab 18 Fev - 16:07

    muito obrigado Fabio mais uma vez
    deu certo

    bom fim de semana
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]passar o mouse no botão e enviar mensagens Empty Re: [Resolvido]passar o mouse no botão e enviar mensagens

    Mensagem  FabioPaes Sab 18 Fev - 18:52

    Grato pelo retorno amigo e ate a próxima se Deus quiser.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Qui 20 Jan - 6:26