Initialisation des textbox d'une form [Résolu]

Signaler
Messages postés
19
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
3 avril 2011
-
Messages postés
19
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
3 avril 2011
-
Bonjour,
je cherche à remplacer le texte de plusieurs textbox par un autre texte de façon "automatique".

J'ai commencé à faire ca:

Private Sub remplacement() Dim ctl As ControlFor Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
If ctl.text = "Texte à remplacer" Then
ctl.text = "Texte de remplacement"
End If
End If
Next ctl
End Sub

mais le ctl.text pose problème.
Ca me dit:
'text' n'est pas un membre de 'System.Web.UI.Control'.
'text' doit être une propriété "enfant" non accessible directement mais je vois pas comment y accéder...
Par 'controls' peut-être mais je sèche.

3 réponses

Messages postés
19
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
3 avril 2011
1
C'est bon j'ai trouvé:
Je remplace le texte si il vaut "texte à remplacer" avec:
remplissage(False, "texte de remplacement", "texte à remplacer")

J'écrase le texte avec:
remplissage(True, "texte de remplacement")

Private Sub remplissage(ByVal ecraser As Boolean, ByVal nouv_txt As String, Optional ByVal test_txt As String = "")
For Each ctl As Control In Me.Form.Controls
If TypeOf (ctl) Is TextBox Then
If CType(ctl, TextBox).Text = test_txt Or ecraser Then
CType(ctl, TextBox).Text = nouv_txt
End If
End If
Next
End Sub
Messages postés
19
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
3 avril 2011
1
Houlà! c'est moche en couleur!
On y voit rien en jaune. Je remets le code ici:

Private Sub remplacement()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
If ctl.text = "Texte à remplacer" Then
ctl.text = "Texte de remplacement"
End If
End If
Next ctl
End Sub
Messages postés
19
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
3 avril 2011
1
il y a encore un petit problème.
Lorsque les textbox sont mis dans un updatepanel, ils ne sont pas vu par le "for each control".

Si quelqu'un a une idée pour gérer l'arborescence du form pour trouver les textbox où qu'ils puissent être... Merci.