Comment ajouter un nouvel affichage dans la zone de texte sans remplacer la première entrée

Question

Bonjour, Je crée une application de discussion. Pouvez-vous m'aider aimablement? Quand je suis entrée un nouveau message, le message initial affiché est maintenant remplacé :(

S'il vous plaît voir mes codes ci-dessous:

Private Sub saveMessage()  

    FileName = Format(Now, "MMddyyyyhhmmss") 
    Dim RecipientFile As String 

    If CurrentRecipient = "Edward" Then 
     RecipientFile = RecipientFolder & FileName & ".txt" 
    ElseIf CurrentRecipient = "Criziel" Then 
     RecipientFile = RecipientFolder & FileName & ".txt" 
    ElseIf CurrentRecipient = "Jerome" Then 
     RecipientFile = RecipientFile & FileName & ".txt" 
    Else 
     Exit Sub 
    End If 

    Dim Writer As IO.StreamWriter 
    Writer = New IO.StreamWriter(RecipientFile) 
    Writer.Write(MainRichTextBox.Text) 

    Writer.Close() 

    ShowtextRichTextBox.Text = (User & " : ") & MainRichTextBox.Text 
    MainRichTextBox.Clear() 
End Sub 

Merci à l'avance: *

Answer 1

Votre code ci-dessous est juste l'attribution (en remplaçant) la dernière valeur du texte enrichi,

ShowtextRichTextBox.Text = (User & " : ") & MainRichTextBox.Text 

, vous devriez plutôt ajouter le texte ci-dessous,

ShowtextRichTextBox.Text &= (User & " : ") & MainRichTextBox.Text 

, vous pouvez également essayer la méthode inbuild de RichTextBox pour ajouter le texte comme, ShowtextRichTextBox.AppendText((User & " : ") & MainRichTextBox.Text)

Remarque: Lorsque vous ajoutez, vous devez également ajouter avant le saut de ligne nouveau texte comme, ShowtextRichTextBox.Text &= Environment.NewLine & (User & " : ") & MainRichTextBox.Text.

Code modifié,

Private Sub saveMessage() 

    FileName = Format(Now, "MMddyyyyhhmmss") 
    Dim RecipientFile As String 

    If CurrentRecipient = "Edward" Then 
     RecipientFile = RecipientFolder & FileName & ".txt" 
    ElseIf CurrentRecipient = "Criziel" Then 
     RecipientFile = RecipientFolder & FileName & ".txt" 
    ElseIf CurrentRecipient = "Jerome" Then 
     RecipientFile = RecipientFile & FileName & ".txt" 
    Else 
     Exit Sub 
    End If 

    Dim Writer As IO.StreamWriter 
    Writer = New IO.StreamWriter(RecipientFile) 
    Writer.Write(MainRichTextBox.Text) 

    Writer.Close() 

    ShowtextRichTextBox.Text &= Environment.NewLine & (User & " : ") & MainRichTextBox.Text 
    MainRichTextBox.Clear() 
End Sub