Incrémenter nom de variable

Version imprimable

Bonjour à toutes et à tous,

Je débute dans le monde de VB.Net, et je cherche à optimiser ma fonction.
Ma fonction se présente de la façon suivante :
Code:

1 2 3 4 5 6 7 8 9 Public Sub ReloadCurrentConf() Form1.TextBox_1.Text = GestionReseau.GetUNC(Form1.Label_1.Text) Form1.TextBox_2.Text = GestionReseau.GetUNC(Form1.Label_2.Text) Form1.TextBox_3.Text = GestionReseau.GetUNC(Form1.Label_3.Text) ... Form1.TextBox_24.Text = GestionReseau.GetUNC(Form1.Label_24.Text) Form1.TextBox_25.Text = GestionReseau.GetUNC(Form1.Label_25.Text) Form1.TextBox_26.Text = GestionReseau.GetUNC(Form1.Label_26.Text) End Sub
Je cherche à optimiser mon code en insérant une boucle FOR. Cependant je ne sais pas comment gérer l'incrémentation des TextBox.
J'ai trouvé sur ce forum cette solution pour VBA. Mais je n'arrive pas à l'adapter pour VB.Net.
Est-ce que quelqu'un à une idée pouvant m'aider ?

Merci par avance,
Cdt,

areg67

Bonjour,

Une bonne solution consiste à placer tous les TextBox dans un tableau de TextBox. Une fois cela fait, tu accèdes à chaque TextBox par son indice.

Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
       Dim MesTextBox(16) As TextBox   ' Indices de 0 à 16 mais seulement usage de 1 à 16. En supposant que tu utilises 16 TextBox !!!
 ' ... ... ...
       MesTextBox(1) = TextBox1
       MesTextBox(2) = TextBox2
' ...
 
' Si tous les TextBox sont déposés dans le "bon" ordre, de 1 à N,  le tableau peut être rempli à l'aide d'une boucle :
       For T As Integer = 1 To 16
            MesTextBox(T) = Me.Controls("TextBox" & T)
       Next
 
' Après cela, on peut traiter chaque TextBox en le désignant par son indice :
 
' Remplir le TextBox n° 1 par 3 astérisques :
       MesTextBox(1).Text = "***"
 
'Remplir les autres TextBox, chacun avec la valeur de son indice :
       For T As Integer = 2 To 16
            MesTextBox(T).Text = T
       Next
 ' ... ... ...

J’espère que ceci t'aidera ... :D

Bonjour Phil Rob
Un grand merci pour ton exemple qui m'a permis de me débloquer.

Voici mon code au final :

Code:

1
2
3
4
5
6
7
8
Dim MesTextbox(26) As TextBox
Dim MesLabel(26) As Label
 
For T As Integer = 1 To 26
      MesTextbox(T) = Me.Controls("TextBox_" & T)
      MesLabel(T) = Me.Controls("Label_" & T)
      MesTextbox(T).Text = GetUNC(MesLabel(T).Text)
Next T

Sujet résolu ! :D

Bonjour,
Il semble plus indiqué d'utiliser des objets avec une List(of T) qui n’oblige de connaitre le nombre de d’occurrence :
Code:

1 2 3 4 5 6 7 8 9 10 11 MyTextboxList as New List(Of Textbox) 'Pour ajouter TextBox_1 as new TextBox MyTextboxList.Add(TextBox) 'Pour boucler : For each MyTextBox as TextBox in MyTextboxList '... Next