Création de controls à la volée et action

Bonjour tout le monde,

je cherche à créer des boutons et labels à la volée (ça pas de soucis), et SURTOUT à leur associer des actions sur les évènements click ou double-click, par exemple.
J'imagine que c'est possible, vu que créer un bouton, même à la volée, sans lui associer d'action... je n'en vois pas l'intérêt.

Vous auriez des pistes??

Dans ta création de liste de contrôles tu dois rajouter un AddHandler.
La syntaxe c'est AddHandler nomdel'event, AddressOf nomdelasubappelée
Pour le click tu as un event appelé Click.
Après dans ta sub tu peux y mettre ce que tu veux.

Sauvé!!!

Merci beaucoup, c'est EXACTEMENT ce que je cherchais.

:ccool:

Edit: sauf que, vu que je crée plusieurs boutons, je me demande comment savoir lequel a été cliqué... Parce que appeler 1 procédure, ok, mais comment réagir en fonction du dit-bouton?

Normalement quand tu créés dynamiquement des controls tu donne à chacun un nom, genre si tu fais une boucle For avec i = 0 to ... puis control.name = "..." & i tu peux très bien faire la même chose pour la sub appelée en mettant AddressOf Sub avec au préalable Sub = "sub" & i par exemple.

Ensuite tu n'as plus qu'à faire tes sub0, sub1, sub2, ...

Oui, mais le problème, c'est que ceci nécessiterait que je connaisse le nombre de sub à pré-écrire, et évidemment, ce n'est pas le cas.

Et vu qu'il peut y avoir un nombre assez conséquent de bouton ajouté dynamiquement, je ne peux absolument pas prévoir. L'idéal étant donc de créer à la volée autant de sub que de boutons... mais là, faudrait m'éclairer davantage...

Une piste??

Tu peux créer de la même manière les sub de façon dynamique comme les control.
Théoriquement tu sais quelle sera la fonction de chaque control.

Bonjour,

Merci pour cette info, je cherche dans ce sens, mais si jamais tu as la ligne de commande en exemple, je suis très intéressé ;)

Alors en fait j'arrive pas vraiment à créer de sub dynamiquement (pas sur que celà soit possible). Donc tous tes controls créés dans la boucle aurons pour référence la même sub.

Code:

---

1 2 3 4 5 6 7 8 9

For i As Integer = 0 To 5 Dim btn As New Button btn.Name = "btn" & i btn.Top = i * 25 Me.Controls.Add(btn) AddHandler btn.Click, AddressOf btnsub   Next

---

Puis

Code:

---

1 2 3 4 5 6

Sub btnsub()   MsgBox("ok")   End Sub

---

Après rien ne t'empêche de faire des tests en fonction du nom du bouton puisque une fois qu'ils seront créés tu auras leur nombre.
Peut-être que dans ce genre de cas il vaut mieux créer une classe mais là ça dépasse mes compétences.

Merci beaucoup,

j'ai suivi ce principe et effectivement, ça marche.
J'avais moi aussi pensé à la classe, mais... :aie:

Encore merci.