Notifications
Clear all

MouseMove

6 Posts
2 Usuários
0 Reactions
3,966 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá a todo!
Como programar o evento MouseMove?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/06/2011 11:34 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Como não especificou qual a ação pretende, segue um exemplo basico :
As instruções abaixo altera a cor do Label1 quando o cursor passa por cima dele :
Na janela do VBA selecione a palavra MouseMove e tecle F1, e terá outras informações.

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1.ForeColor = &HFF&
End Sub
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1.ForeColor = &H80000012
End Sub

abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/06/2011 12:21 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Desculpe a demora em responder mas o bicho ta pegando no trampo, serviço demais.

Na verdade tava pensando em botão, mas acho que não muda muito a logica.

Pergunta :

Quando programo 2 vezes é pra quando o mause passar acontecer um evento e quando ele sair voltar ao normal?

Abusando um pouco queria que quando o mouse passar sobre o botão abra uma msgbox e quando ele sair a msgbox feche, é possivel?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/07/2011 11:51 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Andereson, as duas rotinas são pelo fato de captar o Foco por onde o mouse passa:

Label1_MouseMove - Quando passa pelo Label, e quando sai do Label ele perde o Foco, chamando a segunda rotina,
UserForm_MouseMove, que é o que acabou de receber o foco, devolvendo a formatação original ao Label.

Quanto a usar um MSGBOX, você até poderia usar - msgbox "OK" no evento do Label1, mas o problema é queo msgbox utiliza Botão para fecha-lo, então o ideal seria utilizar um Label ou TextBox com uma mensagem personalizada, e utilizar a propriedade Visible.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/07/2011 6:12 pm
(@julias)
Posts: 19
Active Member
 

Oi
Tem alguma planilha de modelo pra mim baixar?
Tentei fazer inserindo duas fotos pelo menu Inserir e depois imagem - do arquivo, mas não consegui.

 
Postado : 09/06/2013 1:52 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Oi
Tem alguma planilha de modelo pra mim baixar?
Tentei fazer inserindo duas fotos pelo menu Inserir e depois imagem - do arquivo, mas não consegui.

Em seu outro Tópico postei algumas sugestões:
viewtopic.php?f=10&t=8444

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/06/2013 4:08 pm