OpenFileDialog控件的小小学习

最新推荐文章于 2022-05-17 09:32:18 发布

冰山上的绿叶

最新推荐文章于 2022-05-17 09:32:18 发布

阅读量706

点赞数

CC 4.0 BY-SA版权

分类专栏： vb.net

本文链接：https://blog.youkuaiyun.com/u010052030/article/details/12379721

vb.net 专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一个使用VB.NET实现的简单示例程序，该程序能够打开文件对话框让用户选择一个或多个文本文件，并在窗体上显示所选文件的路径。此程序展示了如何利用OpenFileDialog组件进行文件选择及如何动态创建并放置TextBox控件来显示文件路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

   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