Question technique sur textbox

Résolu/Fermé
vincent - 9 sept. 2013 à 16:46
pijaku Messages postés 12259 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 - 10 sept. 2013 à 10:46
Bonjour,

Est -il possible de définir un nombre max de caractères par lignes dans un textbox multiligne ?

Merci



1 réponse

pijaku Messages postés 12259 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 703
10 sept. 2013 à 09:42
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

0
Zoul67 Messages postés 1954 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 3 février 2022 147
Modifié par Zoul67 le 10/09/2013 à 10:02
Bravo pijaku !

J'allais faire une réponse toute pourrie car je ne connaissais pas LineCount.
0
c'est good merci @+
0
pijaku Messages postés 12259 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 703
10 sept. 2013 à 10:46
@zoul67 : Il n'y a pas de réponse toute pourrie...

@vincent : De rien! Jamais deux sans trois ;-)

A+
0