Discussion :

[patrickvier]

Bonjour à tous,
Je dois faire un pack de 40 boutons (2 packs de 20) et chacun des packs doit accédé à la même procédure sub en y injectant les mêmes type de données... j’espère être assez clair...
J'ai déjà une solution du style :

Code :

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

1
2
3
4
5
 
        AddHandler Button1.Click, AddressOf getbuttondata
        AddHandler Button2.Click, AddressOf getbuttondata
        ....
        AddHandler Button20.Click, AddressOf getbuttondata

J'aimerai savoir s'il n'existerai pas une autre solution ("à la" directcast ou CType avec une boucle...) afin de ne pas avoir à saisir les 40 lignes et éviter la lourdeur des modifs s'il y en a...
Si vous avez une idée là-dessus, Merci
J'utilise VB 2010 express.
Patrick

[chrismonoye]

Bonjour,
une solution de boucle :

Code :

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

1
2
3
4
5
        For Each ctrl As Control In Me.Controls.OfType(Of Button)()
            If ctrl.Name.StartsWith("Button") Then
                AddHandler ctrl.Click, AddressOf getbuttondata
            End If
        Next

Me peut être un autre conteneur que le formulaire tel un Panel...
Le If est facultatif c'est un exemple pour affiner la sélection.

[shayw]

Bonjour

Pourquoi ne pas utiliser une list of button

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private list1 As New List(Of Button)
 
 Private sub InitList()
    Dim mybutton As Button
  for i = 0 to 19 
   mybutton = new button
     with mybutton
       'ici tu definis ton bouton couleur,position ect
      end with
      list1.Add(mybutton)
      Me.Controls.Add(mybutton)
       AddHandler list1(iter).MouseClick, AddressOf getbuttondata
end sub

[Pol63]

et

Code :

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

1
2
3
private sub getbuttondata(sender as object, e as system.eventargs)
   dim boutoncliqué = directcast(sender, button)
end sub

[patrickvier]

Bonjour à tous,

@Pol63, en effet, ton code va me permettre d'identifier le bouton clické (.name).

Code :

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

GetButname = DirectCast(sender, Button).Name

@chrismonoye et @shayw, vos solutions vont me permettre d'éviter de me taper les 40 lignes de "AddHandler Button1.Click, AddressOf ...".
De plus, je vais faire un xml de config afin de pouvoir écrire dans le buttonX.text, le label que je souhaite, son id, etc...
Et ce bien evidement s'il y a des modif a apporter aux boutons, labels, name...

Merci @tous.

Patrick