Déclaration de variable ayant pour nom la valeur d'une autre

Version imprimable

26/02/2007, 10h20
kazhar

Déclaration de variable ayant pour nom la valeur d'une autre

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:

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

ce qui semble logique

Code:

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.
26/02/2007, 10h27
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.

salut,

je crois que cette solution peux t'aider :

Code:

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 ;)

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:

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