打印本文 
关闭窗口 在一般的程序设计中，文件操作对话框都是必不可少的。而这种对话框的设计也比较繁琐。首先，要设计一个新格式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了。
打印本文 关闭窗口