Пытаясь вывести более одной файловой в текстовое поле 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