пытается вывести более одного 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

Set TextBox.Multiline свойство True