Toolbar et ButtonMenus

Question

Bonjour,

J'ai créé une toolbar sous VB6 avec un bouton qui permet une liste de choix (buttonMenus). Mon problème réside dans le fait que je n'arrive pas à récupérer le choix de l'utilisateur dans cette liste.

La doc VB n'est pas très "bavarde" sur le sujet des toolbars. Y a t il qqun qui pourrai m'éclairer ?

Merci bien,
A plouch !

cs_rene38 · Answer

Le style du bouton doit être 5- tbrDropDown (une flèche à côté du bouton, où l'utilisateur doit cliquer

1. Préparer les "ButtonMenus"
Set btn = Toolbar1.Buttons.Item("Key du bouton")
            ' on efface les ButtonMenus
            btn.ButtonMenus.Clear
            ' On prépare les ButtonMenus
            btn.ButtonMenus.Add Text:="Premier", Key:="truc"
            btn.ButtonMenus.Add Text:="Second", Key:="machin"
etc ...

2. On utilise :
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
       Select Case ButtonMenu.Key
              Case "truc"
                     ce qu"il faut faire dans ce cas
              Case "machin"

etc ...

Fais-en bon usage

Toolbar et ButtonMenus

1 réponse

Discussions similaires