vb.net - 複数のファイル名をテキストボックスvb.netに出力しようとしています

Question

これが本当に単純な場合はお詫びしますが、私はプログラミングにかなり慣れていません。開いているダイアログボックスを使用して、ファイルの名前をテキストボックスに出力するプログラムを作成しました。

問題が発生しているのは、テキストボックスに1行を書き込むだけのように見えるため、テキストボックスに複数の行を表示させようとしていることです。

私が使用しているコードは以下のとおりです。これを機能させるために変更する必要があるものを誰かに教えてもらえますか。

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