Discussion :

[boudincweole10]

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 :

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

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

[Tyrael62]

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 :

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

[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!!