为什么当我将文本框值附加到新消息时显示不正确？

Question

我想附加发件人的信息和收件人的信息。但是当我使用

Me.MainDisplay.Text = Me.MainDisplay.Text & MessageToDisplay & Environment.NewLine

消息没有附加，而是显示不正确。例如我发送

1
2
3

会显示

我想让我的程序显示我已发送的内容，并将我将要发送的下一条消息或接收者将回复的消息添加到列表中。请帮忙。

为了进一步参考，您可以参考以下代码：

For Each filename In SortedFilenames
    If filename.Folder = "User" Then
        RecipientFolder = "C:\Users\bele\Desktop\" + CurrentUser + "'sInbox\" + CurrentRecipient + "'sFolder\"
    ElseIf filename.Folder = "Recipient" Then
        RecipientFolder = "C:\Users\bele\Desktop\" + CurrentRecipient + "'sInbox\" + CurrentUser + "'sFolder\"
    End If

    FileContents = My.Computer.FileSystem.ReadAllText(RecipientFolder + filename.Id.ToString("MMddyyyyhhmmss") + ".txt")

    If MessageToDisplay = "" Then
        If filename.Folder = "User" Then
            MessageToDisplay = CurrentRecipient + ": " + FileContents + Environment.NewLine + filename.Id.ToString("MM/dd/yyyy hh:mm:ss")
        ElseIf filename.Folder = "Recipient" Then
            MessageToDisplay = CurrentUser + ": " + FileContents + Environment.NewLine + filename.Id.ToString("MM/dd/yyyy hh:mm:ss")
        End If

    Else
        If filename.Folder = "User" Then
            MessageToDisplay = MessageToDisplay + Environment.NewLine + CurrentRecipient + ": " + FileContents + Environment.NewLine + filename.Id.ToString("MM/dd/yyyy hh:mm:ss")
        ElseIf filename.Folder = "Recipient" Then
            MessageToDisplay = MessageToDisplay + Environment.NewLine + CurrentUser + ": " + FileContents + Environment.NewLine + filename.Id.ToString("MM/dd/yyyy hh:mm:ss")
        End If

    End If
    Me.MainDisplay.Text = Me.MainDisplay.Text + MessageToDisplay & Environment.NewLine

    My.Computer.FileSystem.MoveFile(RecipientFolder + filename.Id.ToString("MMddyyyyhhmmss") + ".txt",
                                    "C:\Users\bele\Desktop\" + User + "'sInbox\" + User + "'sReadMessage\" & filename.Id.ToString("MMddyyyyhhmmss") + ".txt")
Next

请帮忙

Answer 1

变化：

If MessageToDisplay = "" Then
    If filename.Folder = "User" Then
        MessageToDisplay = CurrentRecipient + ": " + FileContents + Environment.NewLine + filename.Id.ToString("MM/dd/yyyy hh:mm:ss")
    ElseIf filename.Folder = "Recipient" Then
        MessageToDisplay = CurrentUser + ": " + FileContents + Environment.NewLine + filename.Id.ToString("MM/dd/yyyy hh:mm:ss")
    End If

Else
    If filename.Folder = "User" Then
        MessageToDisplay = MessageToDisplay + Environment.NewLine + CurrentRecipient + ": " + FileContents + Environment.NewLine + filename.Id.ToString("MM/dd/yyyy hh:mm:ss")
    ElseIf filename.Folder = "Recipient" Then
        MessageToDisplay = MessageToDisplay + Environment.NewLine + CurrentUser + ": " + FileContents + Environment.NewLine + filename.Id.ToString("MM/dd/yyyy hh:mm:ss")
    End If

End If
Me.MainDisplay.Text = Me.MainDisplay.Text + MessageToDisplay & Environment.NewLine

收件人：

If filename.Folder = "User" Then
    MessageToDisplay = CurrentRecipient + ": " + FileContents + Environment.NewLine + filename.Id.ToString("MM/dd/yyyy hh:mm:ss")
ElseIf filename.Folder = "Recipient" Then
    MessageToDisplay = CurrentUser + ": " + FileContents + Environment.NewLine + filename.Id.ToString("MM/dd/yyyy hh:mm:ss")
End If

Me.MainDisplay.Text = Me.MainDisplay.Text + MessageToDisplay & Environment.NewLine

为什么当我将文本框值附加到新消息时显示不正确？

Why does when I append the textbox value to the new message it gives me incorrect display?

vb.net

message

chat

concatenation

append