dialvb
Messages postés19Date d'inscriptionjeudi 1 juillet 2010StatutMembreDernière intervention 3 avril 2011
-
10 janv. 2011 à 20:07
dialvb
Messages postés19Date d'inscriptionjeudi 1 juillet 2010StatutMembreDernière intervention 3 avril 2011
-
13 janv. 2011 à 00:13
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.
dialvb
Messages postés19Date d'inscriptionjeudi 1 juillet 2010StatutMembreDernière intervention 3 avril 20111 12 janv. 2011 à 21:17
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
dialvb
Messages postés19Date d'inscriptionjeudi 1 juillet 2010StatutMembreDernière intervention 3 avril 20111 10 janv. 2011 à 20:11
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