vb.net 教程 3-5 窗体编程 对话框2 OpenFileDialog & Folder
发布时间：2020-12-17 07:33:28 所属栏目：百科 来源：网络整理
导读：本节继续谈一下 打开文件对话框OpenFileDialog 选择多个文件的情况 先将 Multiselect 属性设置为 True，这样就可以选择多个文件了。 多个文件的选择，可以使用鼠标在对话框中拉一个选择框来选择，或者按下Ctrl+鼠标左键单击选择单个，或者按下Shift多
|
本节继续谈一下 打开文件对话框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 教程 目录
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |