FabioPaes 18/2/2017, 20: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!