Problème avec le toolbar

slt!
Je développe en VB6.0 et j'ai un petit problème:
J'ai créé un toolbar nommé toolbar1, mais je ne sais pas comment

attribuer des évènements à chacun des éléments constituant le toolbar1,

qui sont au total à 5.
J'ai essayer de mettre le code en général, mais il s'applique à tous

les boutons.
Qui peut m'aider?

Merci

TM018

Les boutons que tu as placés dans ton toolbar on chacun une propriété Key
tu peux savoir facilement quel bouton a été actionné avec l'evenement suivant

Code:

---

1 2 3 4 5 6 7 8

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "Quit" Unload Me Case Else MsgBox "Le bouton " & Button.Key & " n'est pas encore géré", vbInformation End Select End Sub

---

bon tu dois faire comme ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) select case button.index case is=1 ' ajout des informations tu va Mettre ton Programme case is=2 'Modification des information ton programme ici case is=3 'Suppression des informations ton programme ici end select end sub

---

tu peux mettre autant Case is sa depent ton toolbar de c qu'il contient (valider,modifier,supprimer,autre,fermer) par exemple la j'dois commancer de case is=1 jusqua 5