Bonjour à tous
J’ai une application Vb6, j’ai trouvé sur le net le code suivant pour Toolbar_MouseMove
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
Private Sub Toolbar1_MouseMove(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
Dim i As Integer
 
    Flag = False
 
    With Toolbar1
        For i = 1 To Toolbar1.Buttons.Count
            If ((X > .Buttons(i).Left) And (X < _
                .Buttons(i).Left + .Buttons(i).Width)) Then
                DisplayToolbarMessage .Buttons(i).Tag
                Flag = True
                Exit For
            End If
        Next i
    End With
 
    If Not Flag Then StatusBar1.Panels(1).Text = ""
End Sub
 
Private Sub DisplayToolbarMessage(Msg As String)
    StatusBar1.Panels(1).Text = Msg
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    If Flag Then
        StatusBar1.Panels(1).Text = ""
        Flag = False
    End If
End Sub
Existe-il un événement MouseMove pour la barre de menu créé par le Menu Editor vb6.
Merci d’avance.