Discussion :

[bastou93]

Bonjour a tous,

Je souhaite faire un bouton du style la croix rouge d'une fenetre , 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 , 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 . 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

merci a tous,

Bastien

[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

[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

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[bastou93]

Bonjour Theze,

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

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

Je fais un retour

[bastou93]

Bon le retour:

PARFAIT merci encore