Passage de la souris sur image

Version imprimable

Bonjour a tous,

Je souhaite faire un bouton du style la croix rouge d'une fenetre 8-), pour cela j'ai fais 3 imprimes écran que j'ai découpé nikel un normal, un lorsque l'on passe dessus et un lors d'un clique.

Le clique et le normal marche.. normal :mouarf:, cependant je souhaite faire marcher celui ou l'on passe avec la souris dessus et la rien n'y fait.

J'utilise la methode MouseMove, le problème c'est que tant que la souris et dans la zone de l'image bah on l'exécute...

Ce qui fait que mon idée suivante ne marche pas:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private inverse as boolean Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) if inverse=true then image1.Picture=loadpicture("clik.gif") inverse = false else image1.Picture=loadpicture("no_clik.gif") inverse = true end if End Sub
Forcément sa clignote de cette facon :mouarf::cry:. J'ai beau chercher le seul truc que je trouve c'est genre faire un test de la position de la souris, si elle est encore dans l'image on change pas... etc
Mais pas très court comme méthode mais au pire je ferai sa :ccool:

merci a tous,

Bastien

03/08/2011, 21h33
SfJ5Rpw8

et il est placé ou ton bouton ...;) , ton raisonnement pose un problème : si tu n'est pas sur ton image tu n'auras pas d'événement : Image1_MouseMove
04/08/2011, 08h08
bastou93

Bonjour,

Mon bouton est placer dans un userform comme une image.
Je l'initialise lors de Initialize de cet userform avec "noclick"

Merci pour ton aide

Bastien

Bonjour,

Il te faut utiliser le MouseMove du formulaire pour remettre l'image normale sur ton contrôle. J'ai testé avec un contrôle Label (plus léger) et j'ai de meilleurs résultats qu'avec le contrôle Image mais fait un essai :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Afficher As Boolean
 
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    Label1.Picture = LoadPicture("Image cliquer.bmp")
 
End Sub
 
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    If Afficher = False Then
        Label1.Picture = LoadPicture("Image survol.bmp")
        Afficher = True
    End If
 
End Sub
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    If Afficher = True Then
        Label1.Picture = LoadPicture("Image normale.bmp")
        Afficher = False
    End If
 
End Sub

Hervé.

08/08/2011, 08h18
bastou93

Bonjour Theze,

A oui j'avais pas pensé à la méthode MouseMove mais de ma Frame :mouarf::mouarf:

Je vais tester, si cela ne donne rien bah c'est qu'il n'y a rien de prévu faut bidouiller!

Merci en tout cas :ccool:

Je fais un retour
08/08/2011, 08h22
bastou93

Bon le retour:

PARFAIT :ccool::ccool::ccool: merci encore