Variable dans Nom d'une Textbox

Version imprimable

14/09/2007, 16h37
kristell

Variable dans Nom d'une Textbox
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:

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

Bonjour.

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

Code:

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.

17/09/2007, 15h28
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!
17/09/2007, 22h53
olsimare

Bonjour.

Ok.

Pense au :resolu:.

Cdt.