Discussion :

[zest]

Bonjour,

Voilà quelques jours que j'ai débuté sous VB.net et je cale devant un problème:
J'ai une Form avec une Textbox et une RichTextBox...jusque là tout va bien.

J'aimerais qu'à la fermeture de l'application par la croix ou par un "quitter" le contenu de la TextBox et de la RichTextBox soit enregistré dans un fichier texte.

À la réouverture de l'application, la TextBox et la RichTectBox sont remplies avec l'enregistrement qui se trouve dans le fichier texte créé précédemment.

J'ai trouvé comment copier le contenu de la TextBox, mais les deux en même temps je ne trouve pas....

Merci

[wallace1]

Comme ceci pour une Richtextbox par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Imports System.IO
Public Class Form1
 
    Private TxtFile As String = My.Application.Info.DirectoryPath & "\Saving.txt"
 
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If Not Me.RichTextBox1.Text Is Nothing Then
            System.IO.File.WriteAllText(TxtFile, Me.RichTextBox1.Text)
        End If
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If File.Exists(TxtFile) Then
            Me.RichTextBox1.AppendText(System.IO.File.ReadAllText(TxtFile))
        End If
    End Sub
End Class

[zest]

ok, merci.

J'ai trouvé pour le faire individuellement pour une TextBox ou RichTextBox, mais le faire pour toutes les deux en même temps, ça ne marche pas.

La mise en forme de la RichTextBox n'est pas gardé....

[rv26t]

Bonjour,

Pour le richtextbox, il vaut mieux utilisser les méthodes de celui-ci (SaveFile et LoadFile)
La sauvegarde de la mise en forme est ainsi effectuée.

Maintenant si vous souhaitez aussi intégrer le texte du textBox, (textBox simple ligne, une seule, donc pas multiligne) il suffit
A la sauvegarde : de rajouter ce texte sur une ligne supplémentaire à la fin du richTextBox avant de sauvegarder avec RichTextBox1.SaveFile,
A la lecture du fichier rtf : apès lecture du fichier rtf (RichTextBox1.LoadFile) de remettre cette dernière ligne dans le textBox puis de la supprimer du richtextBox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        RichTextBox1.AppendText(Environment.NewLine & TextBox1.Text)
        RichTextBox1.SaveFile("d:\data\rtb.rtf")
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBox1.LoadFile("d:\data\rtb.rtf")
        TextBox1.Text = RichTextBox1.Lines(RichTextBox1.Lines.Length - 1)
        RichTextBox1.SelectionStart = (RichTextBox1.Text.Length - TextBox1.Text.Length) - 1
        RichTextBox1.SelectionLength = TextBox1.Text.Length + 1
        RichTextBox1.SelectedText = ""
    End Sub

[zest]

Le code m'a l'air très intéressant, mais j'ai une erreur "L'index se trouve en dehors des limites du tableau."

la ligne:

Code :

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

TextBox1.Text = RichTextBox1.Lines(RichTextBox1.Lines.Length - 1

pose problème.

Je pense que c'est le fichier de départ qui pose souci...

La RichTextBox rajoute un saut de ligne à l'enregistrement.

[rv26t]

J'avais juste mis le code pour le principe de fonctionnement.
Dans le cas ou le fichier est vide au départ, il n'y a pas de ligne, (on se retrouve donc avec un indice à -1, ce qui est en dehors des limites du tableau) il faut donc faire un test. (ceci n'est utile que la pemière fois, ensuite, même si le TextBox et le RichTextBox sont vides il existera quand même une ligne (pour le TextBox, et l'indice sera 0).

Code :

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

1
2
3
4
5
6
7
        RichTextBox1.LoadFile("d:\data\rtb.rtf")
        If Not (RichTextBox1.Lines.Length = 0) Then
            TextBox1.Text = RichTextBox1.Lines(RichTextBox1.Lines.Length - 1)
            RichTextBox1.SelectionStart = (RichTextBox1.Text.Length - TextBox1.Text.Length) - 1
            RichTextBox1.SelectionLength = TextBox1.Text.Length + 1
            RichTextBox1.SelectedText = ""
        End If