barre outils fenetres actives

Bonjour,

1°/ Voici le principe :
Il s'agit d'abonner l'évènement de votre contrôle à une procédure
d'évènement contenant le code que vous souhaitez exécuter, lorsque
l'évènement sur le contrôle est levé. La signature de la procédure
d'évènement doit respecter la signature de l'évènement.

2°/ Voici la pratique (sur l'évènement Click du bouton de la ToolBar) :
- Créer une procédure d'évènement respectant la signature de l'évènement
Click du bouton :
Private Sub BtnTlb_click(ByVal o As Object, ByVal e As EventArgs)
MessageBox.Show("OK!")
End Sub

- Abonner dynamiquement cette procédure d'évènement BtnTlb_click, à
l'évènement Click du bouton de la ToolBar (par exemple, à la suite de la
création du bouton) :
AddHandler button1.Click, AddressOf button1_click

- Remarques :
- RemoveHandler permet de supprimer un abonnement.
- Dans la procédure d'évènement BtnTlb_click, vous pouvez savoir
via le paramètre o, sur quel bouton de la ToolBar l'utilisateur a cliqué :
Dim oButton As Button
oButton = DirectCast(o, Button)
MessageBox.Show("Vous avez cliqué sur le bonton '" & oButton.Text & "'")
A vous d'éffectuer un Select Case sur l'identifiant du bouton.

Cordialement,

--
James RAVAILLE.
MCAD .NET et MCT .NET
http://www.certifdotnet.com


"armin" a écrit :

Je voudrais creer par programm des boutons dans la barre d'outil.

pas de problèmes pour creer le bouton :

Dim button1 As Button

ToolBar1.Controls.Clear()

button1 = New Button

button1.Text = " text de test"

button1.Left = 0

button1.Width = 100

ToolBar1.Controls.Add(button1)



mais comment fait on pour declencher du code par ce bouton?