vb通用对话框过滤 文件类型

通过使用CommonDialog 控件的Filter 属性来过滤。

可以设置它的Filter 属性，这样对话就只显示某种文件类型，如文本文件。

Filter 属性（公共对话框），返回或设置在对话框的类型列表框中所显示的过滤器。

CommonDialog

控件（“打开”、“另存为宴游肢”对话框）示例

下例显示“打开”对话框只能选文本文件，然后在信息框中显示所选文本文件的文件名：

Private Sub Command1_Click()

    ' 设置“CancelError”为 True

    CommonDialog1.CancelError = True

    On Error GoTo ErrHandler

    ' 设置标志

    CommonDialog1.Flags = cdlOFNHideReadOnly

    ' 设置过滤器

'    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _

'    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

    CommonDialog1.Filter = "Text Files" & "(*.txt)|*.txt|" '本行代码设置只显示文本文件的过滤器

    ' 指定缺省的过滤器

    CommonDialog1.FilterIndex = 2

    ' 显示“打开”晌世对话框

    CommonDialog1.ShowOpen

    ' 显示选定文件的名字

  磨知  MsgBox CommonDialog1.FileName

    Exit Sub

ErrHandler:

    ' 用户按了“取消”按钮

    Exit Sub

End Sub

返回或设置“打开”或“另存为”对话框中一个缺省的过滤器。

Private

Sub

Command1_Click()

CommonDialog1.Filter

=

"All

Files(*.*)|*.*|Text

Files

(*.txt)|*.txt|Batch

Files

(*.bat)|*.bat

"

'设置对话框过毕滚滤器

CommonDialog1.FilterIndex

=

2

'如是1默认文件判羡类型是表示所有文件，是掘数拍2默认文件类型就表示文本文件，选择3默认表示的文件类型是批处理文件

CommonDialog1.ShowSave

'显示保存对话框

End

Sub

---