58.txt

介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个API集供参考.

如何使用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了。