[vb.net] définir un textbox dynamiquement

**arnolem** · 05/12/2005, 14h09

bonjour, j'ai un petit soucis pour définir une variable dans le code afin de définir un objet dynamiquement

Code :

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

1
2
3
4
5
 
        For i = 1 To 5 Step 1
            Dim txtContent As TextBox = "textbox" & i
            GrammarCheck(txtContent)
        Next

voila, j'ai un problème de type car mon txtContent est une texte box or ma boucle ne génère que un string, le nom de la textbox en fait.

**graphicsxp** · 05/12/2005, 15h32

Salut,
Je ne suis pas bien sur de comprendre ton probleme. De ce que j'ai compris, "textbox" & i est un string (normal) et tu essayes de l'assigner à un objet de type Textbox... Pourquoi n'assignes tu pas la string à la propriété Name de ton textbox ?

@+

**arnolem** · 05/12/2005, 15h40

ben ça marche pas, j'ai essayé, en fait je mi prend mal car je ne sait pas comment faire, voici se que je veux.

Je veux une boucle qui appel une fonction 5 fois, mais qui l'appel pour 5 textbox différente, or je ne sais pas le faire, moi je sais mettre une boucle qui donne un string [textebox1, textebox2, textebox3, textebox4, textebox5] mais ça reste du string, non un texte box.
C'est plus clair
ma boucle doit faire ça au final :

Code :

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

1
2
3
4
5
6
 
fonction(textbox1)
fonction(textbox2)
fonction(textbox3)
fonction(textbox4)
fonction(textbox5)

**graphicsxp** · 05/12/2005, 15h46

ben avant d'appeller ta fonction qui prend une textbox en argument, tu fais une autre boucle:

Code :

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

1
2
3
4
5
for each ctrl as control in myForm.Controls
 if ctrl.name = taString then
  function(directcast(ctrl, textbox))
 endif
next

essaye pour voir

:

**arnolem** · 05/12/2005, 15h53

arf, ben déja j'ai plein d'erreurs se qui donne ça pour ce que je comprend :

Code :

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

1
2
3
4
5
6
        Dim MyString As String
        For Each ctrl As Control In Me.Controls
            If (ctrl.Name = MyString) Then
                  function(directcast(ctrl, textbox)) 
            End If
        Next

ensuite, je vois pas à quoi sert "function(directcast(ctrl, textbox)) " et en plus sa sort en erreur.

**arnolem** · 05/12/2005, 15h55

a ok, c'est pour convertir mon string en control ?

**graphicsxp** · 05/12/2005, 15h59

directcast(ctrl, textbox) convertie le control en textbox mais comme je n'ais pas la declaration de ta fonction, j'ai juste déduis qu'elle prenait une textbox en parametre. Si ce n'est pas le cas c'est normal que ca genere une erreur.

Ce que je fais c'est que je boucle sur les controls dans ton form et s'il y en a un dont le nom est égal a ta String (textbox1, texbox2 ...) je le passe en parametre a ta fonction en faisant un cast. C'est ca que tu veux faire non ?

**arnolem** · 05/12/2005, 16h02

j'ai essayé ça, sans succès :

Code :

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

1
2
3
4
5
 
For i = 1 To 5 Step 1
            Dim txtContent As TextBox = DirectCast("textbox" & i, TextBox)
            GrammarCheck(txtContent)
        Next

edite : Oui elle prend un textbox en paramètre, c'est une fonction qui lance la correction orthographique de word pour le champs donnée et moi je veux que ça le fasse pour chaque champs, d'ou ma boucle

**graphicsxp** · 05/12/2005, 16h06

As tu regarde mon code plus haut

:

Tu essayes de convertir du text en textbox, ca ne marchera jamais !

Tu dois faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
for i as integer = 0 to 5
 
dim textboxName as string = "textbox" & i.toString
for each ctrl as control in myForm.Controls
 if ctrl.Name = textboxName then
  TaFunction (directcast(ctrl, textbox))
 endif
next
 
next

**arnolem** · 05/12/2005, 16h18

a oki ça marche, c'est que j'ai nommé mes textbox TextBox1 et non textbox1.
Par contre c'est pas un peu long de vérifier pour tous les control, moi ça va en faire 50 multiplier par une boucle qui va monter au 20, ça nous fait 1000 vérifications, c'est pas un peu beaucoup ? j'en sais rien

merci au fait !!

**graphicsxp** · 05/12/2005, 16h23

Ben sinon ne vérifie pas le nom... :

Code :

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

1
2
3
4
5
for each ctrl as control in myForm.Controls 
  If TypeOf (ctrl) Is TextBox Then
      TaFunction (directcast(ctrl, textbox)) 
   End If
next