Boucle sur TextBox en VB.NET

Question

Bonjour,
J'ai un formulaire en VB.NET qui contient 81 Textbox. J'aimerais savoir comment faire  une boucle afin de lire le contenu de chaque. 
Si  quelqu'un sait ???

Merci

PCPT · Answer

je connais pas du tout le .NET
dans l'id&#233;e, peut-&#234;tre que ceci pourra tout de m&#234;me t'aider
(&#224; interpr&#233;ter, fonctionnel sous VB6)

Dim MyTB As Object, Temp As String, Cpt As IntegerTemp "": Cpt 0
For Each MyTB In Me
    If TypeOf MyTB Is TextBox Then
        Cpt = Cpt + 1
        Temp = Temp & Cpt & " : " & MyTB.Text & vbCrLf
    End If
Next
Debug.Print Temp
End Sub

PCPT

cs_drahcir · Answer

Salut,

For Each txtBox as Control in  Me.Controls
   MessageBox.Show(txtBox.Text)
Next

marche si tu n'as que des TextBox sur ton formulaire, sinon, &#231;a te renvoir aussi le contenu de la propri&#233;&#233; Text de tes autres contr&#244;les... Si tu ne veux que les TextBox, fais un test sur txtBox pour savoir si c'est bien un TextBox.

@+

benoitbva · Answer

Salut,
vos exemples de codes m'ont bien aid&#233;, cela dit si l'on veut faire un "reset" sur le form, c'est &#224; fire mettre toutes les textbox &#224; blanc mais aussi tous les radios buttons &#224; false... cela ne marche pas... 

Explication :


For 
Each leControl 
In 
Me.Controls                                      'On boucle sur tous les controls du form



If 
TypeOf leControl 
Is TextBox 
Then                                  'Si le Control est une textbox on  la met &#224; ""


leControl.Text = ""



End 
If



If 
TypeOf leControlRadio 
Is System.Windows.Forms.RadioButton 
Then


leControlRadio.Checked = 
False                       'ICI ON A UNE ERREUR CAR CHECKED N'EST PAS UN ATTRIBUT DE CONTROLS



End 
If



Next

Donc ma question, comment faire une boucle sur tous les radiobutonns du form pour mettre checked &#224; false ??

PCPT · Answer

VB.Net, donc toujours sous r&#233;serve

*si ton premier test de TypeOf est bon avec un simple TextBox, &#231;&#224; ne devrait pas &#234;tre pareil pour CheckBox????

*ensuite, tu es dans une boucle.
"leControl" est le nom que tu donnes au fur et &#224; mesure, &#224; tous les contr&#244;les list&#233;s
donc "leControlRadio" n'existe pas.
il faudrait donc :
leControl.Checked = False

*instruction qui serait, sous VB6 :
leControl.Value = 0

PCPT

cs_drahcir · Answer

Comme le dit pcpt, il faut que tu conserves le m&#234;me nom (leControl
) et &#231;a devrait marcher...

@+

Boucle sur TextBox en VB.NET

5 réponses

Discussions similaires