Discussion :

[kristell]

Bonjour !

Etant débutante, je trouve en général la réponse à mes questions sur le forum .. mais là, je trouve pas !
J'ai des textbox dans lesquelles l'utilisateur rentre les coordonnées, elle s'intitule Coord1N, Coord1W, Coord2N, Coord2W ect....
Le problème c'est que je voudrais faire une boucle qui parcourt les textbox mais je sais pas comment insérer une variable dans le nom de la textbox, j'ai essayer

Code :

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

1
2
3
4
For i=3 to NbCoord
 
RecapText.Text = RecapText.Text & "Coordonnées" & i & ":" & vbTab & Coord & i & N.Text & "  " & coordY & vbTab & Coord & i & W.Text & "  " & coordX & vbCrLf
Next

Bien sur ca ne fonctionne pas.
RecapText est la fenêtre ou se résume les coordonnées mais ce n'est pas le seul endroit ou j'aurais besoin d'une telle boucle.

Faudrait-il faire un truc du genre ?

CoordN(Valeur).Name = ("Coord" & Valeur & "N").Name
(c'est complètement faux mais c'est l'idée)

Si quelqu'un a une petite idee sur le sujet. Merci d'avance.
J'utilise Visual Basic 2005 express edition

[olsimare]

Bonjour.

Cela doit pouvoir t'aiguiller :
Nota : une form avec 2 textbox et ce code dans le load.

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
 
Dim s As String = "Test2"
        Dim b1 As Boolean
        Dim b2 As Boolean
 
        b1 = s = "Test1"
        b2 = s = "Test2"
 
        Console.WriteLine("b1 = " & b1 & " b2 = " & b2)
 
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox2.Name = "TextBox2"
 
        Me.TextBox1.Text = "A"
        Me.TextBox2.Text = "B"
 
        Dim st As String = ""
        For i As Integer = 1 To 2
            st = st & Me.Controls("TextBox" & i).Text
        Next
 
        MsgBox(st)

C'est juste pour illustrer l'utilisation du .controls(nomDuControle).

Cdt.

[kristell]

Merci !!!
Ca marche bien mais à condition que je renomme mes textbox "CoordN1", "CoordN2" ect ... au lieu de "Coord1N", "Coord2N" ect...
Car ca ne fonctionne pas sinon même en faisant
st = st & Me.Controls("Coord" & i &"N").Text
Encore merci! Ca m'a bien rendu service!

[olsimare]

Bonjour.

Ok.

Pense au .

Cdt.