LIMITER LE NOMBRE DE LIGNES DANS UN TEXTBOX

Commentaire de bouv le 30/01/2008 15:30:29

2 petits problèmes :
1°- Le retour à la ligne est remplacé par un caractère spécial.
2°- On peut passer outre cette limitation avec un simple COPIER/COLLER

Le premier problème peut être résolu ainsi :

Dim bReturn As Boolean

Private Sub Text1_Change()
    If (SendMessageLong(Text1.hWnd, EM_NOMBRELIGNE, 0&, 0&) = 4) Then
        bReturn = True
    Else
        bReturn = False
    End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If bReturn And (KeyAscii = 10 Or KeyAscii = 13) Then
        KeyAscii = 0
    End If
End Sub

Pour le deuxième problème c'est un peu plus complexe, il faut sous-classer le controle, récupérer l'evenement COLLER et supprimer à la volée tous les retours à la ligne en trop.

++

Commentaire de bouv le 30/01/2008 18:06:30

Désolé d'insister mais il y a bien un problème avec le COPIER/COLLER avec en prime une erreur 'Espace de pile insuffisant' lorsque le text collé est trop long. Une dixaine de ligne suffit. Test simplement avec le code ci-dessus.

Sinon pour la simplification de Textbox1_KeyPress, bien vu, je sais pas pourquoi je me suis pris la tête avec une variable supplementaire.

++

Commentaire de bouv le 30/01/2008 18:34:44

Par ailleurs, je trouve un peu dommage de supprimer purement et simplement tout ce qui depasse la 4eme ligne.

Pourquoi ne pas supprimer que les retour chariots en trop.

Voici une suggestion qui corrige également le problème d'espace pile :

Private Sub Textbox1_Change()
    Dim i   As Integer
    Dim i2  As Integer
    If (SendMessageLong(Textbox1.hWnd, EM_NOMBRELIGNE, 0&, 0&) > 4) Then
        'On passe les 4 premiers retour chariots
        For i = 1 To 3
            i2 = InStr(i2 + 1, Textbox1.Text, vbCrLf)
        Next i
        If i2 > 0 Then
            'On remplace les retours chariots suivants par un caractere au choix
            'Ici vbNullString pour supprimer sans remplacer
            Textbox1.Text = Left(Textbox1.Text, i2) & Replace(Mid(Textbox1.Text, i2 + 1), vbCrLf, vbNullString)
        End If
    End If
End Sub