[VB6] Problème de ButtonMenu

Version imprimable

Bonjour,

A mon programme, j'ai inséré une barre d'outils (Toolbar1). Au bouton numéro 7, je lui ai adjoint 2buttonmenus...mais je n'arrive pas à définir le code correspondant à ces 2 menus boutons. J'ai été voir l'aide en ligne et voilà ce que j'ai trouvé comme solution mais on me dit "Type défini par l'utilisateur non défini". Comment faire?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ComctlLib.ButtonMenu) Select Case ButtonMenu.index Case 1 Text2.Visible = True Label6.Visible = True cmdValider.Visible = True rcFilm.Find "Numéro_Salle = " & txtEdit(0).Text & " " Case 2 MsgBox "Vous avez cliqué sur l'option 2" End Select End Sub

Je peux te donner un exemple si tu veux , en fait c'est pas bien compliqué , il suffit une fois tes boutons créer avec le style DropDown pour tes menus de bouttons!Tu ajoutes et éxécute tes menus de la manière suivante :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
 
 
Private Sub Form_Load()
 
    Bt = Navig_bar.Buttons.Item(1).ButtonMenus.Add(1, , "salut")
    Bt2 = Navig_bar.Buttons.Item(1).ButtonMenus.Add(2, , "en revoir")
 
End Sub
 
'Evenements liés aux boutons de la toolbar du navigateur
Private Sub Navig_bar_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim bt_1 As Variant
 
Select Case Button.Index
    Case 1
        On Error Resume Next
        Navigator.GoBack
 
    Case 2
        On Error Resume Next
        Navigator.GoForward
    Case 3
        Navigator.Stop
    Case 4
        Navigator.Refresh
    Case 5
        Navigator.Navigate2 (phrase(1))
End Select
 
End Sub
 
Private Sub Navig_bar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
 
 
   Select Case ButtonMenu.Index
 
      Case 1
         MsgBox ("Bonjour à vous")
      Case 2
         MsgBox ("COucou tout le monde")
   End Select
 
 
End Sub

J'espère avoir pu répondre à ta question!

04/05/2006, 22h26
boudincweole10

En fait je faisais comme toi...sauf que dans la déclaration des paramètres, je n'avais pas mis MSComctlLib mais seulement ComctlLib...Merci bcp pr ton aide!!