vb.net入门——OpenFileDialog 组件的使用

7、DereferenceLinks 属性：指示对话框返回的是快捷方式引用的文件的位置(设置为True)还是返回快捷方式(.lnk)的位置(设置为False)。

默认值为True，即选中快捷方式的时候，FileName 返回的是文件的真实路径，如果该值为False，则返回的是该快捷方式所在的位置。

8、Filter 属性：当前文件名筛选器字符串，该字符串决定对话框的“另存为文件类型”或“文件类型”框中出现的选择内容。

9、FilterIndex 属性：获取或设置文件对话框中当前选定筛选器的索引。

10、InitialDirectory 属性：文件对话框显示的初始目录。

11、Multiselect 属性：指示对话框是否允许选择多个文件。

12、ShowReadOnly 属性：指示对话框是否包含只读复选框。当它为True的时候，将会在如图一红圈的位置显示“以只读方式打开”的复选框。ReadOnlyChecked 属性：指示是否选定只读复选框，默认为False，需要与 ShowReadOnly 属性配合使用。

13、RestoreDirectory 属性：指示对话框在关闭前是否还原当前目录。

14、Title 属性：获取或设置文件对话框标题。

[art_myurl]

我们通过 ShowDialog 方法来显示“打开”对话框。通过 OpenFile 方法以只读方式打开一个选定的文件，如果需要进行写操作，则必须使用 StreamReader 类的实例打开文件。

下面我们就演示如何使用 OpenFileDialog 组件来打开文件。

二、以只读方式打开文件

在窗体的Button按钮添加如下代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim myStream As System.IO.Stream

openFileDialog1.InitialDirectory = "c:\"

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

openFileDialog1.FilterIndex = 2

OpenFileDialog1.RestoreDirectory = True

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

MsgBox(OpenFileDialog1.FileName)

myStream = OpenFileDialog1.OpenFile()

If Not (myStream Is Nothing) Then

MessageBox.Show(myStream.Length.ToString)

myStream.Close()

End If

End If

End Sub

更多内容请看PCdog.com--.NET实用开发  vb入门教程  电脑入门教程专题