Comment le nombre de ligne max d'une textbox multiline [Résolu]

Signaler
Messages postés
59
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
9 août 2007
-
Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
-
Bonjour a tous,



Comment peut-on limiter le nombre maximum de ligne à 3 dans une textbox MultiLine ?



Merci pour la rapidité de vos réponses.

eXclusif

4 réponses

Messages postés
59
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
9 août 2007
1
Grace à PCPUNCH j'ai ma solution ! Pas la peine de vous casser la tête :)



Private Sub TextAdresse_KeyPress(KeyAscii As Integer)

Dim Nbl As Integer, Pos As Integer, Pos2 As Integer



If InStr(TextAdresse.Text, vbCrLf) <> 0 Then

Pos InStr(TextAdresse.Text, vbCrLf): Nbl 1

Do While Pos <> 0

Nbl = Nbl + 1

Pos2 = Pos

Pos = InStr(Pos2 + 1, TextAdresse.Text, vbCrLf)

Loop

End If



If Nbl 3 And KeyAscii 13 Then KeyAscii = 0



End Sub

eXclusif
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
23
Bonjour,

Je viens d'essayer ton code, et bien chez moi celà ne marche pas. Le nombre de ligne ne se limite pas à 3 .



jpleroisse
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
24
et le CTRL+V (coller), etc... ???
Pour complète gestion perso, faut sous classer le edit, pas d'autre solution.

ciao...
BruNews, MVP VC++
Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006

une methode me parait simple :



Private Sub Text1_Change()

If InStr(1, Text1.Text, vbCrLf) Then

Dim SelS As Long

SelS = Text1.SelStart

Dim lignes() As String

lignes = Split(Text1.Text, vbCrLf)

If UBound(lignes) > 2 Then


Text1.Text = lignes(0) & vbCrLf & lignes(1) & vbCrLf &
lignes(2)

Text1.SelStart = SelS

End If

End If

End Sub




A+



Utilisateurs du forum : Merci de lire http://www.vbfrance.com/forum.v2.aspx?ID=445871