易语言：怎么改变通用对话框的文件类型？

通用对话框共有4种类型

以下是通用对话框的类型调用方法，改变通用对话框的类型直接负值数字即可

通用对话框1.类型 ＝ 0 ' 零代表 打开文件

通用对话框1.类型 ＝ 1 ' 一代表 保存文件

通用对话框1.类型 ＝ 2 ' 二代表 字体选择

通用对话框1.类型 ＝ 3 ' 三代表 打开帮助

是FilterIndex属性，该属性要和Filter属性结合起来设置默认文件类型。假设先有代码：

CommonDialog1.Filter="All Files(*.*)| Word Files |(*.doc)|text Files(*.txt)"

如果你要把Word文档（.Doc）设为默认，则：

Commondialog1.FilterIndex=2

而Commondialog1.FilterIndex=3则把文本文档设为默认。

也就是看你要的默认类型在Filter属性中排列在第几位，就把FilterIndex属性设为几。

VB的通用对话框通过Filter 属性筛选用户所需的文件类型，再用Instr函数读取CommonDialog 控件获得FileName 属性取得的路径和文件名的逗号(.)位置。用Mid函数取出文件的扩展名获知所读取文件的类型。

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

InStr 函数，返回 Variant(Long)，指定一字符串在另一字符串中最先出现的位置。

Mid 函数，返回 Variant (String)，其中包含字符串中指定数量的字符。

代码实例：

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.FilterIndex = 2

  ' 显示“打开”对话框

  CommonDialog1.ShowOpen

  ' 显示选定文件的扩展名

  Debug.Print Mid(CommonDialog1.FileName, InStr(CommonDialog1.FileName, ".") + 1)

  Exit Sub

ErrHandler:

  ' 用户按了“取消”按钮

  Exit Sub

End Sub

---