Question technique sur textbox
Résolu
vincent
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 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
A voir également:
- Question technique sur textbox
- Logiciel dessin technique gratuit - Télécharger - CAO-DAO
- Notice technique pdf - Guide
- Faux support technique - Accueil - Arnaque
- Mytf1 un problème technique est survenu - Forum Box et Streaming vidéo
- Fdj suite à une erreur technique merci de réessayer ultérieurement ✓ - Forum Réseaux sociaux
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 :
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
J'allais faire une réponse toute pourrie car je ne connaissais pas LineCount.
@vincent : De rien! Jamais deux sans trois ;-)
A+