Un menu dans une toolbar

Question

Dans le 3eme bouton de la toolbar (toolbar1.buttons(3),
j'ai créé deux éléments de menu : toolbar1.buttons(3).buttonmenus(1) et  toolbar1.buttons(3).buttonmenus(2).

Jusqu'ici tout va bien.

Mais comment faire pour programmer chacun de ces deux éléments de menus lorsqu'on les sélectionne ?

That is the question.

Merci de votre aide.

Benedict :)

cs_rene38 · Answer

Bonsoir

Le plus simple pour éviter les confusions d'indices est de compléter le champ Key 
Exemple :
pour toolbar1.buttons(3).buttonmenus(1) tu mets Key =  "Un"
pour toolbar1.buttons(3).buttonmenus(2) tu mets Key = "Deux"
pour toolbar1.buttons( 4 ).buttonmenus(2) tu mets Key  = "Trois"

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
   Case "Un"
      ' Action à effectuer
   Case "Deux"
      ' Autre action
   Case "Trois"
      ' Etc ...
End Select
End Sub

cs_benedict · Answer

Merci Rene : ça marche !

 :big) 

Benedict :)

Un menu dans une toolbar

2 réponses

Discussions similaires