vb.net 教程 3-5 窗体编程 对话框2 OpenFileDialog & FolderBrowserDialog

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
本节继续谈一下 打开文件对话框OpenFileDialog 选择多个文件的情况

先将 Multiselect 属性设置为 True，这样就可以选择多个文件了。

多个文件的选择，可以使用鼠标在对话框中拉一个选择框来选择，或者按下Ctrl+鼠标左键单击选择单个，或者按下Shift多选。

主要代码如下：

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim filenames() As String
 
        '如果打开文件对话框中按下了“打开”按钮，那么
        If OpenFileDialog2.ShowDialog() = DialogResult.OK Then
            '获得选中文件的文件名
            filenames = OpenFileDialog2.FileNames
        Else '如果按下的不是“打开”按钮，实际也只有“取消”，那么
            Exit Sub
        End If
 
        '以下被注释掉的部分可以不用，因为按下“打开”按钮，至少也选择了一个文件
        'If filenames.Length < 1 Then
        '    Exit Sub
        'Else
        For i As Integer = 0 To filenames.Length - 1
            ListBox1.Items.Add(filenames(i))
        Next
        'End If
    End Sub
运行时如下：

FolderBrowserDialog：文件夹对话框，用于选择文件夹

重要属性：

Description：对话框的提示信息

RootFolder：打开时候的根文件夹

SelectedPath：选定的文件夹，如果设置了，弹出对话框后直接按下确定，那么就会返回设置的文件夹；如果设置的文件夹不存在，那么会返回RootFolder中的根文件夹

ShowNewFolderButton：是否显示“新建文件夹”按钮

如下代码：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FolderBrowserDialog1.Description = "这里是Description的内容"
        FolderBrowserDialog1.SelectedPath = "c:\windows"
        FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.Desktop
        FolderBrowserDialog1.ShowNewFolderButton = True
 
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            Label1.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub
运行如下：

学习更多vb.net知识，请参看  vb.net教程目录

 
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。