如何使用VB控件Commom Dialog

　Visual Basic是一种非常有效的Windows编程工具，是目前Windows编程工具中使用最广泛的语言。在所有资料中，大多都没有介绍Visual Basic中一个非常有用的控件——通用对话框Commom Dialog。

　　在一般的程序设计中，文件操作对话框都是必不可少的。而这种对话框的设计也比较繁琐。首先，要设计一个新格式Form并设置好边框，再在上面设计一个文本框TextBox用以显示和输入文件名，一个文件列表框FileListBox，一个目录列表框DirListBox，一个驱动器列表框Drivelist， 一个小型组合框ComboBox用以显示和选择类型。而且还要编写好几个过程程序来完成总体功能。虽然整个实现过程难度并不算太大，但较为烦琐。

　　现在，有了通用对话框Commom Dialog以后，事情就简单多了。Commom Dialog共有七种用法，调用语法为：[Form.]CmDialog.Action[=Setting]

　　其中：

　　Setting Dialog Displayed

　　0 No action 不运行

　　1 Open 打开文件

　　2 Save as 换名存盘

　　3 Color 色彩

　　4 Font 字型

　　5 Printer 打印

　　6 Invokes WINHELP.EXE 调用帮助文件

　　现在，我们以打开文件对话框Open为例予以具体说明。首先，在格式上建立一个通用对话框控件CMDialog1，设置其属性如下：

　　DialogTitle=<对话框标题> ：次项空缺时，对话框标题等于

　　激活方式Setting。

　　Filename=＊.txt ：缺省文件名

　　Filter=<文本文件[＊.txt]>|＊.txt|<所有文件 [＊.＊]>|＊.＊| ：文件

　　选择类型为文本文件[＊.txt]——通配符＊.txt，或

　　所有文件[＊.＊]——通配符＊.＊。注意，以上各项均

　　以竖杠符“|”结束。

　　LnitDiv=C:\ ：文件缺省路径。

　　通用对话框Commom Dialog控件被调用后，属性Filename返回用户所选文件名。如果调用失败，Commom Dialog返回VB的错误代码为Err=32755.下面为调用程序：

　　Sub Command1_Click ()

　　CmDialog1.action = 1

　　If Err <> 32755 Then

　　fname＄ = CmDialog1.Filename

　　Caption = fname＄ ：将窗口标题改为文件名

　　End If

　　End Sub

　　现在，您已经可以调用通用对话框Commom Dialog了。