[vb 6] rollover con Image

[altrencatè]

Devo sostituire al passaggio del mouse su un'immagine di tipo image un'altra immagine e poi quando si toglie il mouse dall'immagine risostituirla con quella originale! così nn funziona!!! come mai?

vchiudi2 = App.Path & "image1.gif"
Private Sub Chiudi_Onmouseover()
image1.Picture = LoadPicture(vChiudi2)
End Sub

grazie!!!!!

[Jupy64]

Ciao, c'è qualcosa che non va nel codice...

Originariamente inviato da altrencatè

vchiudi2 = App.Path & "image1.gif"
Private Sub Chiudi_Onmouseover()
image1.Picture = LoadPicture(vChiudi2)
End Sub

vchiudi2 = App.Path & "\image1.gif"

"Chiudi" che oggetto è??
in vb6 mi sembra che non c'è l'evento "OnMouseOver", ma "MouseMove"
pertanto, a meno che non usi un controllo personalizzato, il tuo codice dovrebbe essere cosi:

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Image1.Picture = LoadPicture(vchiudi2)
End Sub

[altrencatè]

non so come mai ma quando ci passo sopra invece di inserire una nuova immagine, cancella quella che c'era prima lasciando vuoto
?

[MMarzia]

ho modificato il titolo

[altrencatè]

[MMarzia]

Originariamente inviato da altrencatè

invece di piangere prova a rispondere alla domanda di jupy:

Originariamente inviato da Jupy64
"Chiudi" che oggetto è??

hai almeno provato il suo codice? c'è qualcosa che non va?

[altrencatè]

Marzia ho risposto!
ho utilizzato il suo codice!
non viene nessun errore di debug ma quando vado sull'immagine col puntatore mi scompare l'immagine non la cambia con quella dell'evento!
Non perchè il percorso dell'immagine sia sbagliato, c'e qualche problema forse nel codice?

[altrencatè]

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("c:\menu2.gif")
End Sub

funziona!!!

Ora come posso ricambiare l'immagine quando il puntatore esce dall'immagine?

grazzieeeeeeeeeeeeeeeeeeeeeeeeeeeee

[altrencatè]

up

[TrigunXX]

Dovresti mettere il codice MouseMove sulla form

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("c:\AltraImmagine.gif")
End Sub

Altrimenti si potrebbe anche intercettare l'evento in cui il mouse va fuori dal controllo ma è una cosa + complicata che VB6 non gestisce di Default

Inoltre questo non funzione

vchiudi2 = App.Path & "image1.gif"

perchè deve essere messo così

vchiudi2 = App.Path & "\image1.gif"