Menu bar mousemove

Version imprimable

Menu bar mousemove

Bonjour à tous
J’ai une application Vb6, j’ai trouvé sur le net le code suivant pour Toolbar_MouseMove

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

16/09/2009, 18h51
OhMonBato

Bonjour,

pas à ma connaissance, mais que veux tu faire avec cet événement ?
17/09/2009, 12h29
dhiouf

Bonjour OhMonBato
je veux avec cet événement afficher un texte dans le panel 1 du statusbar lorsque la sourie survol sur un menu ou sur un sous menu de la barre de menu.
exactement comme l'événement Toolbar1_mousemove
Merci d'avance.
19/09/2009, 13h09
dhiouf

Bonjour
j'ai chercher par tout il n'existe pas une événement mousemove pour une barre de menu créée par l'editeur de menu vb6, exite-il une autre solution de créer une barre de menu sans l'editeur de menu vb6.
19/09/2009, 13h31
ucfoutu

Bonjour,

Mille et une raisons (dont la gestion de l'adaptation à des résolutions d'écran différentes) font que les développeurs avertis préfèrent éviter scrupuleusement l'éditeur de menu "offert" par VB.
Tu viens d'en montrer une auitre du doigt.

Que faire ? Rien ne t'oblige à accepter le cadeau empoisonné de VB. Tu peux toujours t'y prendre autrement et rester totalement maître de ce que tu décides...

Lis, à partir du message n° 12, la discussion suivante :
http://www.developpez.net/forums/d47...venement-clic/
en restant conscient de ce qu'elle ne fait que "survoler", proposer une solution "bâclée" pour aller vite et au plus simple... et qu'il est toujours possible de la perfectionner pour répondre, au cas par cas, aux besoins spécifiques à chaque cas de figure (c'est cela, le développement intelligent).
Amuse-toi bien.

Bonjour à tous
j'ai trouver le code suivant sur le site Microsoft

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub MenuSelected(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles menuOpen.Select, menuExit.Select, menuSave.Select
If sender Is menuOpen Then
StatusBar1.Panels(1).Text = "Opens a file to edit"
Else
If sender Is menuSave Then
StatusBar1.Panels(1).Text = "Saves the current file"
Else
If sender Is menuExit Then
StatusBar1.Panels(1).Text = "Exits the application"
Else
StatusBar1.Panels(1).Text = "Ready"
End If
End If
End If
End Sub

Mais à l'execution il m'affiche un message d'erreur (type not defined)

20/10/2009, 17h21
OhMonBato

C'est sûr qu'en copiant un code VB.NEt pour le mettre dans un projet VB6, ça risque de coincer :mouarf:
20/10/2009, 17h25
dhiouf

Mille merci OhMonBato pour la réponse, car je debute en vb6