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

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

Merci cs_EXCLUSIF 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 16 juil. 2005 à 17:54
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
BruNews 21054 Messages postés jeudi 23 janvier 2003Date d'inscription 7 novembre 2014 Dernière intervention - 16 juil. 2005 à 18:30
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++
cs_Stephane 551 Messages postés vendredi 5 janvier 2001Date d'inscription 23 septembre 2006 Dernière intervention - 16 juil. 2005 à 20:35
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.