Discussion :

[pierrepelerin]

Bonjour,

Etant en train d'essayer de réaliser un jeu, je dispose de 100 "cases" (10x10) textbox. Désirant rentrer les valeurs saisies par l'utilisateur dans une matrice 10x10, je suis obligé de faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
if txt11.text <> "" then
matrice[1,1]= txt11.text
end if
 
if txt21.text <> "" then
matrice[2,1]= txt21.text
end if
 
if txt31.text <> "" then
matrice[3,1]= txt31.text
end if

Et cela 100 fois de 1-1 à 10-10.

Existe-il une manière d'optimiser le programme avec par exemple une boucle for ? Si oui, comment puis-je l'utiliser ? En effet, je n'arrive pas à "mettre" des variables dans la propriété text des textbox...

Code :

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

1
2
3
4
5
6
7
For x = 1 to 10
   For y = 1 To 10
      if txt??.text <> "" then
         matrice[x,x]= txt??.text
      end if
   Next x
Next y

Merci d'avance pour votre aide,

P. PElERIN

[Kelpan]

Bonjour,

A ma Connaissance, ce n'est pas possible.

Par contre, tu peux créer ton propre tableau à 2 dimensions et y affecter les réferences de tes controls

ex:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim monTableau(10,10) As TextBox
 
MonTableau(1,1) = txt11
MonTableau(1,2) = txt12
MonTableau(1,3) = txt13
MonTableau(1,4) = txt14
MonTableau(1,5) = txt15
...

Ensuite, tu n'as plus qu'à itérer sur ce tableau.

[Alexandre`]

Pourquoi ne pas créer tes controles dynamiquement ?

For x = 1 to 10
For y = 1 To 10
dim txt as new TextBox
me.controls.add(txt)
txt.left = calcul pour l'emplacement horizontal
txt.top = calcul pour l'emplacement vertical
txt.size = new size( 40, 30 )
txt.text = ta_valeur
Next x
Next y

En esperant t'aider...

[pierrepelerin]

Bonjour,

Alexandre : Les controles sont déjà créés, moi en fait je voudrais non pas afficher des textes mais lire ceux entrés par l'utilisateur et les mettre dans un tableau...

Kelpan :

Code :

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

MonTableau(1,1) = txt11.text

c'est une bonne idée mais je pense que ça ne marchera pas si certaines cases (textbox) sont vides, donc ça revient à

Code :

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

1
2
3
if txt11.text <> "" then
matrice[1,1]= txt11.text
end if

Merci quand meme d'avoir essayé de m'aider ;-)

Si quelqu'un a une autre idée, je suis preneur, sinon je vais garder ma méthode (ça ne me dérange pas de taper les 100 instuctions [copier-coller] mais je trouve seulement que ça ne fait pas un "beau" code...)

Merci à tous,

Pierre PELERIN.

[Kelpan]

Kelpan :

Code :

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

MonTableau(1,1) = txt11.text

c'est une bonne idée mais je pense que ça ne marchera pas si certaines cases (textbox) sont vides, donc ça revient à

Code :

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

1
2
3
if txt11.text <> "" then
matrice[1,1]= txt11.text
end if

Merci quand meme d'avoir essayé de m'aider ;-)

Euh non ! pas vraiment

Code :

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

1
2
3
4
5
6
7
8
 
For i = 1 to 10
    For j = 1 to 10
        If MonTableau(i,j).Text <> "" Then
            matrice(1,1) = MonTableau(i,j).Text
        End if
    Next j
Next i

est différent de ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
if txt11.text <> "" then
    matrice[1,1]= txt11.text
end if
if txt21.text <> "" then
    matrice[2,1]= txt21.text
end if
if txt31.text <> "" then
    matrice[3,1]= txt31.text
end if
...

[pierrepelerin]

Oui mais le problème est que je souhaite récupérer les chiffres entrés de textbox ; dans ton exemple tu pars d'un tableau, est-il possible de "transformer" un ensemble de textbox en tableau ?

Code :

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

1
2
3
4
5
6
7
For i = 1 to 10
    For j = 1 to 10
        If MonTableau(i,j).Text <> "" Then
            matrice(1,1) = MonTableau(i,j).Text
        End if
    Next j
Next i

Pierre PELERIN