[Resolvido]Função ao mover mouse

Coloquei em um formulário uma Rótulo uma função ao mover mouse onde faz aparecer uma figura, só que quando passo mouse em cima do rotulo aparece a figura mas fica tipo piscando. queria que isso pare...

tem como fazer???

Fala rapaz,

Teria como vc postar o código que utilizou no mouse_move? Assim as pessoas do fórum podem ajudar mais.

Abs  

Private Sub Sub1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SubMenuLinhas
Call CorSub

If Me.Linha10.Visible = False Then
Me.Sub1.ForeColor = 65280
Me.Sub1.BorderColor = 65280
Me.Linha10.Visible = True
Else: Me.Linha10.Visible = True
Exit Sub
End If
End Sub

mas ja tentei esse aqui tambem e foi a mesma coisa

Private Sub Sub1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SubMenuLinhas
Call CorSub

Me.Sub1.ForeColor = 65280
Me.Linha10.Visible = True

End Sub

Sub1 é o nome do rótulo?

O que provavelmente está acontecendo é que qualquer milímetro que você movimente sobre o rótulo, o código que você citou é executado, fazendo aparecer ou desaparecer a imagem.
Mas ficou uma dúvida sobre qual o nome do controle que tem a imagem, no código abaixo não tem nada que de a entender que tenha uma imagem, é esse Linha10?

Eu analisei o seu código, seguem algumas notas:

Código:


'Tente sempre identar bem o seu código para que você possa entender melhor a estrutura e como as coisas estão sendo executadas

Private Sub Sub1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call SubMenuLinhas
   Call CorSub

   If Me.Linha10.Visible = False Then
      Me.Sub1.ForeColor = 65280
      Me.Sub1.BorderColor = 65280
      Me.Linha10.Visible = True
   Else
      Me.Linha10.Visible = True
      Exit Sub 'Esse exit sub é desnecessário pois após o término do If o procedimento já iria finalizar
   End If
End Sub


 

continua a mesma coisa, toda que que movimento o mouse em cima do rotulo a imagem aparece mas se continuo passando em cima fica piscando, o que quer é que assim que a imagem fique visivel ele pare a função, eu acho que assim ele vai parar de piscar.

Mas cara, eu não mudei quase nada no seu código, você viu as perguntas que eu te fiz no post anterior? Fiz as perguntas pra entender melhor o seu problema.
Eu nem sei exatamente qual é o nome do seu controle que usa a imagem...

Repito:


Sub1 é o nome do rótulo?

O que provavelmente está acontecendo é que qualquer milímetro que você movimente sobre o rótulo, o código que você citou é executado, fazendo aparecer ou desaparecer a imagem.
Mas ficou uma dúvida sobre qual o nome do controle que tem a imagem, no código abaixo não tem nada que de a entender que tenha uma imagem, é esse Linha10?

Abs

a imagem é a Linha10
o rótulo é o Sub1

Dentro de algum desses dois procedimentos tem alguma linha de código que faça o Linha10 ficar invisível de novo?


Call SubMenuLinhas
Call CorSub

é isso mesmo, tem sim.

é por isso que fica meio que piscando...

agora uma pergunta como faço para que as figuras sumam e apareça só a que eu quero em uma função

Marco Messa, valeu cara, deu certo, era exatamente isso, toda vez que eu movia o mouse ele fazia sumir por causa da função e reexibia. deu certo, resolvido o problema

Grato

Vamos lá, uma coisa de cada vez rs.

Como você disse que possui uma parte do código que executa no mouse move que faz a imagem desaparecer se ela já estiver aparecendo, é exatamente isso que faz ela ficar piscando.

Até aí tudo bem, porque pelo visto você entendeu que é o que acontece. Então o que deve ser feito é que o mouse_move no rótulo faça apenas aparecer a imagem, e no mouse_move do formulário faça desaparecer a imagem. Entendeu? Assim a imagem não vai ficar aparecendo e desaparecendo toda vez que você passa o mouse sobre o rótulo.
Como o rótulo não possui um evento como o hover, que seria algo como quando o mouse está sobre o elemento, temos que fazer um paleativo para ativar e desativar a sua imagem.

Abs

Que bom que você conseguiu resolver e principalmente entender. É o melhor que podemos tirar de um fórum, que é conhecimento e não código pronto.
Eu poderia pedir pra você subir sua base, eu arrumaria e mandaria pra você, porém não iria lhe agregar nenhum conhecimento.

É isso ae manolo, precisando estamos aí o/

 

Boa tarde,

Criei um menu que no evento ao mover do mouse ele abre submenus.
O problema é que a medida que eu mexo o cursor os submenus não param de piscar:

Private Sub Comando129_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

'Botão Quantitativo.
Me.Comando135.Visible = True
Me.Comando136.Visible = True
Me.Comando137.Visible = True

End Sub

Como faço para deixá-los estáticos ao mover o mouse?

foi o meu mesmo erro, dar uma olhada se você alem de colocar para exibir também não colocou para ocultar ao mover o mouse.