Discussion :

[demando77]

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

[Delbeke]

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 :

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

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

[sooprano]

bon tu dois faire comme ca

Code :

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

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