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

Messages postés
59
Date d'inscription
mercredi 5 février 2003
Dernière intervention
9 août 2007
- - Dernière réponse : cs_Stephane
Messages postés
551
Date d'inscription
vendredi 5 janvier 2001
Dernière intervention
23 septembre 2006
- 16 juil. 2005 à 20:35
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
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
59
Date d'inscription
mercredi 5 février 2003
Dernière intervention
9 août 2007
1
3
Merci
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

Dire « Merci » 3

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

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

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
25
0
Merci
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
21054
Date d'inscription
jeudi 23 janvier 2003
Dernière intervention
7 novembre 2014
34
0
Merci
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
551
Date d'inscription
vendredi 5 janvier 2001
Dernière intervention
23 septembre 2006
0
Merci
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.