Mousemove

[TotZ]

Saudações

Tenho um programa onde, no lugar dos botões, coloquei Images.

Fiz isso porque queria que quando o mouse passasse por cima da Image sua picture seria trocada, e quando o cursor siasse da Image, sua picture voltaria à original.

Meu código ficou basicamente este:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ImageBotao.Picture = Image1.Picture
End Sub
___________________________________________________________________

Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ImageBotao.Picture = Image2.Picture
End Sub

Entretando um pequeno problema apareceu:

Se o cursor sair da ImageBotao e for direto para outra Image, botão etc. (sem passar por cima do form própriamente) a picture da ImageBotao não volta à original.

Existe algum jeito de fazer com que a picture mude quando o mouse deixar de estar sobre a image? (Algo como LostFocus?)

Grato.

[kuroi]

Olha cara, talvez tenha um jeito melhor, mas um modo como você pode fazer, é voltar pra imagem original no mousemove da outra figura.

Por exemplo c tem duas imagens. No mousemove do form, c passa a imagem original pras duas.

No mousemove da primeira, você muda a imagem dela e poe a original na segunda.

No mousemove da segunda, você muda a imagem dela e poe a original na primeira.

[ED - Claret]

...ou...

crie uma precedure onde voce reestabelece tudo, mas no entanto terá que fazer o mesmo que fez no mousemove do form em todas as figuras.

Pare com essa trabalheira e utilize um ImageList e um Toolbar, fica mais versátil e suas figuras ficam carregadas somente no Image. Basta referenciar o Key em cada botão.

[Graymalkin]

O ideal é utilizar as APIs SetCapture e ReleaseCapture para dar esse efeito. Dê uma procurada aqui no fórum e acho que você encontrará exemplos.

Abraços,

Graymalkin