Question technique sur textbox
Résolu
vincent
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Est -il possible de définir un nombre max de caractères par lignes dans un textbox multiligne ?
Merci
Est -il possible de définir un nombre max de caractères par lignes dans un textbox multiligne ?
Merci
1 réponse
-
Bonjour,
Il n'y a pas de propriété toute faite pour cela.
Par contre, tu peux contourner en bricolant du code comme ceci :Private Sub TextBox1_Change()
Dim NbCar As Byte
With TextBox1
NbCar = Len(TextBox1)
Select Case .LineCount
Case 0
Exit Sub
Case 1:
.MaxLength = 10 '10 carac pour la 1ère ligne
If NbCar = 10 Then .Text = .Text & Chr(10)
Case 2: .MaxLength = 25 '15 (25-10) carac pour la 2ème ligne
If NbCar = 25 Then .Text = .Text & Chr(10)
Case 3: .MaxLength = 32 '7 (32-25) carac pour la 3ème ligne
Case Else: .Text = Left(.Text, Len(.Text) - 2) 'empêche saisie 4ème ligne
End Select
End With
End Sub
