Discussion :

[boby35]

Bonjour,

J'ai crée une macro en VBA qui affiche une image lorsque l'on survole avec le curseur un label. En revanche, quand on quitte la zone du label, l'image ne se ferme pas. Et je n'arrive pas à solutionner mon problème. J'ai mis mon code en pièce jointe :

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
 
Option Explicit
 
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Static Fleche_On As Boolean
 
    If Fleche_On = False Then
        If X > 0 Or X < Label1.Width - 0 Or Y > 0 Or Y < Label1.Height - 0 Then
            Fleche_On = True
            Fleche_Droite.Visible = True
        End If
    End If
 
    If Fleche_On = True Then
        If X < 0 Or X > Label1.Width - 0 Or Y < 0 Or Y > Label1.Height - 0 Then
            Fleche_On = False
            Fleche_Droite.Visible = False
        End If
    End If
 
End Sub

Merci d'avance pour vos conseils

[Theze]

Bonjour,

Sous ton Label, pose un autre Label plus grand (sans cadre et transparent) et écris le code inverse sur son événement MouseMove !

[boby35]

Merci pour la réponse.

Une première question, y a-t-il une erreur déjà dans mon code initial car je ne vois pas pourquoi la deuxième condition ne s'execute pas ?

Code :

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

1
2
3
4
5
6
    If Fleche_On = True Then
        If X < 0 Or X > Label1.Width - 0 Or Y < 0 Or Y > Label1.Height - 0 Then
            Fleche_On = False
            Fleche_Droite.Visible = False
        End If
    End If

Sinon j'ai essayé votre proposition avec un deuxième label (bordure rouge pour le différencier) :

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
27
28
29
30
31
32
33
34
35
36
Option Explicit
 
 
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Static Fleche_On As Boolean
 
    If Fleche_On = False Then
        If X > 0 Or X < Label1.Width - 0 Or Y > 0 Or Y < Label1.Height - 0 Then
            Fleche_On = True
            Fleche_Droite.Visible = True
            Label2.Visible = True
        End If
    End If
 
'    If Fleche_On = True Then
'        If X < 0 Or X > Label1.Width - 0 Or Y < 0 Or Y > Label1.Height - 0 Then
'            Fleche_On = False
'            Fleche_Droite.Visible = False
'        End If
'    End If
 
End Sub
 
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Static Fleche_On As Boolean
 
'    If Fleche_On = True Then
        If X > 0 Or X < Label2.Width - 0 Or Y > 0 Or Y < Label2.Height - 0 Then
            Fleche_On = False
            Fleche_Droite.Visible = False
            Label2.Visible = False
            Fleche_On = False
        End If
'    End If
 
End Sub

J'arrive à obtenir l'effet désiré mais une seule fois Pourtant je mets bien le "Label2.Visible = False" donc lorsque je reviens sur la zone du label1 l'image devrait réapparaitre non ?

Merci encore pour votre aide,

[boby35]

J'ai réussi à solutionner le problème. Je mets le code ci-joint au cas où quelqu'un serait intéressé :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     Me.Fleche_Droite.Visible = True
End Sub
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     Me.Fleche_Droite.Visible = False
End Sub