Discussion :

[kazhar]

rebonjour,

Je suis désolé d'enchainer les questions.
J'ai une boucle qui me permet la génération de boutons dans mon formulaire.
A chaque itération de ma boucle, je crée un bouton, ayant comme pour non Buttoni
Ou i est mon itérateur.

Cependant, je ne peux faire

Code :

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

Me.Buttoni = New System.windows.Forms.button

ce qui semble logique

Code :

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

Me."Button" + i =  New System.windows.Forms.button

Ne fonctionnant plus, j'avoue que je sèche.

Existe-t-il une solution ? Genre fonction qui me permette de définir ma variable comme nom de l'autre ?

Merci d'avance.

[Tnopy]

Non, par contre que tu fait est parfait pour être gerer au sein d'une collection de bouton, ce qui reglera ton problème.

[More]

salut,

je crois que cette solution peux t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 Dim task As New TextBox
for i=0 to 5
 
 task.Name = "".Concat("text", i)
 task.Text = "contenu"
 task.Size = New Size(110, 20)
 task.Location = New System.Drawing.Point(16, 40)
 Me.Controls.Add(task)
 
next

Bonne chance

[kazhar]

Merci à vous deux. Comment ais-je pu ne pas penser à la collection ...
En fait, je n'avais pas vu le Controls.Add, et ait pensé au premier abord que le simple fait de définir la variable en tant que bouton ajoutait le bouton dans le formulaire.

Pour information :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Height = hauteur * 16
        Width = largeur * 16
 
        Dim Boutons As New Collection
        Dim Button As System.Windows.Forms.Button
        Dim i As Integer = 0
        While (i < largeur * 16)
            Dim j As Integer = 0
            While (j < hauteur * 16)
                Button = New System.Windows.Forms.Button
 
                Button.Location = New System.Drawing.Point(i, j)
                Button.Name = "Button" + i.ToString() + "-" + j.ToString()
                Button.Size = New System.Drawing.Size(16, 16)
                Button.TabIndex = 0
 
                'Ajout à la collection
                Boutons.Add(Button)
                'Ajout à la grille
                Me.Controls.Add(Button)
 
                j = j + 16
            End While
            i = i + 16
        End While