Discussion :

[Bex92]

Bonjour,

Sous VB2008Ex, je souhaiterais créer, par exemple, une centaine de textbox (nommées de Textbox100 à Textbox199 et vides) qui puissent être utilisées (lues et écrites) par la suite.
J'ai donc essayé en ajoutant les contrôles dans la partie form1_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
 
Dim txtb As TextBox() = New TextBox(100) {}
        Dim cmpt As Integer = 0
        Dim xpos As Integer = 100
        Dim ypos As Integer = 300
        For cmpt = 0 To 100
            txtb(cmpt) = New TextBox
            txtb(cmpt).Location = New System.Drawing.Point(xpos, ypos)
            txtb(cmpt).Size = New System.Drawing.Size(120, 20)
            txtb(cmpt).MaxLength = 20
            txtb(cmpt).Name = "Textbox" & cmpt + 100
            txtb(cmpt).Text = ""
            Me.Controls.Add(txtb(cmpt))
            ypos = ypos + 40
        Next

Mon problème est le suivant, je n'arrive ensuite pas à récupérer ou écrire le contenu de ces textbox.
Exemple :

Code :

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

1
2
3
 
Dim lalala As String = "test"
        Textbox100.Text = lalala

1 erreur :

Le nom Textbox100 n'est pas déclaré.

Ne devrait-il pas l'être lors de la 1ère boucle avec "txtb(cmpt).Name = "Textbox" & cmpt + 100". ?

[methylene]

Hum, et cela ne marche pour aucune textbox ? ou spécifiquement pour la 100ème ?

Autre suggestion, n'essaierais-tu pas de donner une valeur à ta textbox, avant d'avoir appeler form1_Load (c'est à dire avant d'avoir affiché ta form1) ?

[methylene]

Et sinon pourquoi commencer ta première textbox à 100 et pas à 0 ?

Code :

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

            txtb(cmpt).Name = "Textbox" & cmpt + 100

Enfin mets une parenthèse comme je l'ai mis, cela devrait mieux marcher :

Code :

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

            txtb(cmpt).Name = "Textbox" & (cmpt + 100)

[Pol63]

methylene tu me décois ^^
on ne peut pas appeler une variable n'existant pas, et le name d'un control n'est pas forcément utile


avoir 100 textbox sur une interface graphique c'est du n'importe quoi, mais bon je vais quand meme te donner la solution

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
 
private _Textboxes as new system.collections.generic.list(of textbox)
 
 
sub machin
 
  for i as integer = 100 to 199
    dim t as new textbox
    _textboxes.add(t)
    me.controls.add(t)
  next
 
end sub
 
 
sub autre
 
   _textboxes(150).text = "le textbox numéro 150"
 
end sub

ou encore en moins propre en gardant ta sub de création de textbox

Code :

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

1
2
3
4
5
6
 
sub autre
 
  me.controls("textbox150").text = "le textbox numéro 150"
 
end sub

[Pol63]

Enfin mets une parenthèse comme je l'ai mis, cela devrait mieux marcher :

!?



essaye de prendre un peu de niveau (langage des rpg) avant de répondre sur ce forum peut etre ... parce que c'est souvent que tu dis des "conneries" je trouve

[methylene]

En même temps je suis avant tout là pour apprendre, après je n'ai jamais déclaré être "expert", et je me suis même appelé il n'y a pas longtemps encore comme "débutant", et je le resterais bien longtemps.

Des conneries ça peut arriver d'en dire, et c'est oujours un moyen d emontrer ce qu'il ne faut pas faire !

Et en effet si je dois créer plusieurs Textbox à la volée par du code, j'ai toujours utuilisé la propriété Name pour les renommer, je vois donc aujourd'hui que ceci n'est pas nécessaire, et comme notifié au-dessus j'apprend davantage.

A bon entendeur,

Salut .

[Pol63]

en fait t'as surement raison, vaut mieux que tu postes comme ca on peut te corriger
c'est un forum d'entraide, donc même si tu aides pas les autres ca peux t'aider au final ^^

<mode joke>
sinon tu préviens quand tu postes qu'il ne faut pas t'écouter
</mode joke>

[Bex92]

Bien, merci Pol, tout fonctionne correctement. (avec _textboxes(50).text pour ta 1ère proposition)
Merci encore.

[Pol63]

j'ai mis un conneries dans mon code en fait, le list(of ) est indexé à partir de 0 donc de 0 à 99 pour les textbox 100 à 199

si tu veux spécifier la clé, il faut un dictionary( of integer, textbox)
et faire mestextbox.Add(i,t) pour un i allant de 100 à 199


en complément d'information un list of est un peu comme un tableau (array) sauf qu'on peut l'utiliser sans connaitre le nombre d'éléments à l'avance, et puis c'est un peu plus performant qu'un tableau