Discussion :

[maan]

bonjour,
dans un richtextbox, je dois limiter les caractaires dans chaque ligne à 40 et passer à un nouvelle ligne et ainsi de suite...
si le dernier mot sur la ligne va être coupé, il dois passer automatiquement à la ligne suivante ...
en fin après toutes les 14 lignes faire un saut de page et passer à une nouvelle page...
quelqu'un a une idée?
merci de votre aide cordialement

[anonymousse]

bonjour,

Propriétés MaxLength, WordWrap, ...

voir lien http://www.vbdotnetheaven.com/UploadFile/mahesh/3032/

[maan]

je n'ai pas encore trouvé la solution!
quelqu'un peut m'aider?
merci bien

[anonymousse]

As-tu fait un essai avec ce que je t'ai donné ?

Donnes un extrait de ton code.

[maan]

je te remerci bien,
j'ai essayé le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim allLines() As String = note.Lines
 
For lineCounter as intger = 0 To allLines.GetUpperBound(0)
 
    MessageBox.Show(allLines(lineCounter))
 
Next

mais ca donne le text de chaque ligne.

aussi j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim curligne As Integer = note.GetLineFromCharIndex(positionCurseur)
                    Dim lastspace As Integer = 0
                    Dim newligne As Integer = note.GetFirstCharIndexOfCurrentLine() + lastspace
 
                    lastspace = note.Lines(curligne).LastIndexOf(" ")
 
                    If note.Lines(curligne).Length > 40 And note.Lines(curligne).Length > 0 Then
 
                        note.Lines(curligne) = Trim(note.Lines(curligne))
                            note.Text = note.Text.Insert(newligne, vbCrLf)
                    End If

ca marche, mais il y a un problemme de curseur
surtout si je vais modifier la ligne pressédante.

[anonymousse]

bonjour,

est-ce que ce bricolage te suffirait ?
il semble que ça fonctionne pour la saisie directe, reste à tester pour un chargement auto de la RichTextBox1 !

Saut de ligne OK
Saut de page (connais pas la commande)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        If RichTextBox1.Lines.Last.Length = 40 Then RichTextBox1.AppendText(Environment.NewLine)
        If RichTextBox1.Lines.Count / 15 = RichTextBox1.Lines.Count \ 15 Then RichTextBox1.AppendText(Environment.NewLine)
    End Sub

[maan]

il me donne une erreur!
lst n'est pas membre de system.array et count n'est pas un membre de system.array!
je suis sous vb.net 2005
j'ai ajouté la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
imports system.array

merci de ton aide.
on va y arriver