OpenFileDialog控件的小小学习

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pathvalue() As String
        Dim i As Integer
        Dim textBox As TextBox
        Dim bt As Integer = Button1.Top
        Dim bl As Integer = Button1.Left
        OpenFileDialog1.InitialDirectory = ("c:\") '初始目录
        OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"  '选择文本类型
        OpenFileDialog1.Multiselect = True  '是否可以多选
        OpenFileDialog1.ShowDialog()
        pathvalue = OpenFileDialog1.FileNames  '将选择的个数附值给pathvalue
        Dim pathNum(pathvalue.Length - 1) As Integer
        For i = 0 To pathvalue.Length - 1
            textBox = New TextBox()
            textBox.Text = pathvalue(i)
            textBox.Top = bt + 30 + 30 * i  '确定出现在form1的位置
            textBox.Left = bl
            Me.Controls.Add(textBox)
            textBox.Name = i + 1
            pathNum(i) = textBox.Name
        Next
    End Sub