试图输出多个filenam到文本框vb.net

Question

道歉，如果这真的很简单，但是我对编程还很陌生。 我创建了一个使用打开的对话框并将文件名输出到文本框的程序。

我遇到问题的地方是试图使文本框显示多于一行，因为它似乎要做的就是在文本框中写一行。

我正在使用的代码如下，有人可以建议我需要更改的内容，以便我可以使用它。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click    
    Dim strFileName As String

    OpenFD.Multiselect = True
    OpenFD.InitialDirectory = "\\server\filename\"
    OpenFD.Title = "Open a Text File"
    OpenFD.Filter = "Text Files(.txt)|*.txt"
    Dim DidWork As Integer = OpenFD.ShowDialog()
    strFileName = OpenFD.FileName


    If DidWork = DialogResult.Cancel Then

        MsgBox("Cancel Button Clicked")

    Else

        strFileName = OpenFD.FileName
        TextBox1.Text = strFileName += 1

    End If
End Sub

我设法使其他所有东西都能正常工作，但这只是一件事。

Answer 1

Dim strFileName() As String

'...

Dim DidWork As Integer = OpenFD.ShowDialog()

If DidWork = DialogResult.Cancel Then
    MsgBox("Cancel Button Clicked")
Else
    strFileName = OpenFD.FileNames
    TextBox1.Multiline = True
    TextBox1.Text = ""

    For Each sFile as String in strFileName
        TextBox1.Text &= sFile & System.Enviroment.NewLine()
    Next
End If

Answer 2

将TextBox.Multiline属性设置为True