asoaomar
Messages postés28Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention19 novembre 2009
-
17 mai 2007 à 21:12
asoaomar
Messages postés28Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention19 novembre 2009
-
17 mai 2007 à 23:31
Salut
comment je peut savoir la longueur d'un textBox (nombre de caracteres)?
merci...
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 17 mai 2007 à 22:46
Salut,
ou en utilisant d'autres trucs
Private Sub Form_Load()
Text1.Text = "ABCDEFGHIJKLM"
End Sub
Private Sub Command1_Click()
SupprimeCaractere 5
End Sub
Private Function SupprimeCaractere(pos As Integer)
If pos < 1 Or pos > Len(Text1.Text) Then Exit Function
Text1.SelStart = pos - 1
Text1.SelLength = 1
Text1.SelText = ""
End Function
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 17 mai 2007 à 23:23
Re,
je sais pas pourquoi j'ai fais une fonction, une sub suffit, oups !
pour me corriger, je rajoute une longueur
supprimer n caractères à partir de telle position
Private Sub Form_Load()
Text1.Text = "ABCDEFGHIJKLM"
End Sub
Private Sub Command1_Click()
SupprimeCaractere 5, 3
End Sub
Private Sub SupprimeCaractere(pos As Integer, Lg As Integer)
If pos < 1 Or pos > Len(Text1.Text) Then Exit Sub
If pos + Lg - 1 > Len(Text1.Text) Then Lg = Len(Text1.Text)
Text1.SelStart = pos - 1
Text1.SelLength = Lg
Text1.SelText = ""
End Sub