Collection TextBox en lecture seule [Résolu]

Signaler
Messages postés
54
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
15 août 2007
-
Messages postés
54
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
15 août 2007
-
Bonsoir,J'ai écrit les lignes de codes suivantes servant à enregistrer diverses modifications dans plusieurs textbox à la fois. Ensuite, je veux que mes textbox soient en lecture seule. Y-a-t'il un moyen de simplifier les lignes de code pour mettre en lecture seule toute ma collection de textbox d'un coup plutôt que de les sélectionner une par une (Text1.ReadOnly True, Text2.ReadOnly True, etc....)
Private

Sub Command15_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Command15.Click

Dim TextCollection
As
New System.Collections.Generic.List(
Of System.Windows.Forms.TextBox)
TextCollection.AddRange(
New System.Windows.Forms.TextBox() {Text1, Text2, Text3, Text4, Text5})

Dim reponse
As
Short
reponse = MsgBox(
"Modifications effectuées avec succès", 64,
"Confirmation d'enregistrement !")
FileClose()

If Text20.Text =
"PAYS"
Then
Dim StrWrite
As
New System.IO.StreamWriter(
"D:\France.txt")

For
Each TextBox
As System.Windows.Forms.TextBox
In TextCollection
StrWrite.WriteLine(TextBox.Text)

Next
StrWrite.Close()
Text1.ReadOnly =
True
Text2.ReadOnly =
True
Text3.ReadOnly =
True
Text4.ReadOnly =
True
Text5.ReadOnly =
True
......
merci à tous
zazsze

2 réponses

Messages postés
54
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
15 août 2007

Bonjour
C'était presque bon
J'ai écrit ça et c'est OK:
For

Each TextBox As System.Windows.Forms.TextBox In TextCollection
StrWrite.WriteLine(TextBox.Text)
TextBox.ReadOnly =
True
Next
StrWrite.Close()

merci pour ton aide
zazsze
Messages postés
918
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 octobre 2008
10
Et bien utilises simplement ta boucle "For Each ..." sur ta collection !!

For Each TextBox As System.Windows.Forms.TextBox In TextCollection
StrWrite.WriteLine(TextBox.Text)
TextBox.Readonly = True
Next