Limiter un RichTextBox en nombre de lignes

pausezero Messages postés 15 Date d'inscription samedi 21 juin 2003 Statut Membre Dernière intervention 19 avril 2006 - 1 août 2005 à 12:57
pausezero Messages postés 15 Date d'inscription samedi 21 juin 2003 Statut Membre Dernière intervention 19 avril 2006 - 1 août 2005 à 23:55
VB6 > Salut. Soit un FileListBox et un RichTextBox. Dans mon FileListBox, quand je sélectionne un fichier (fichier texte) qui contient plus de 10 lignes, je voudrais que seules les 10 premieres lignes (pas caracteres) soit affichées dans le RichTextbox (les lignes suivantes étant supprimées mais pas cachées). Merci de m'aider. (suis novice, un bout de code m'arrangerais)

OvO

2 réponses

cs_hassen Messages postés 338 Date d'inscription mardi 28 janvier 2003 Statut Membre Dernière intervention 4 novembre 2008
1 août 2005 à 17:43
Const NombreLigne = 3


Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)


If KeyAscii = 13 Then
NombreEntrer = Len(RichTextBox1.Text) - Len(Replace(RichTextBox1.Text, vbCr, ""))
If NombreEntrer >= NombreLigne Then
KeyAscii = 0
End If
End If
End Sub


mais ca ne resoud pas le probleme du copier coller
cad que si tu copie du text et puis tu le colle dans ton RichTextBox il n'y aucun controle

Hassen TUNISIE
0
pausezero Messages postés 15 Date d'inscription samedi 21 juin 2003 Statut Membre Dernière intervention 19 avril 2006
1 août 2005 à 23:55
Ta solution limite l'écriture au nombre de lignes préfini mais ne bloque l'ouverture de fichiers au nombre de lignes préfini. Merci qd meme Hassen. Autre solution ?

OvO
0