VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何使用VB控件Commom Dialog
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:11345, 日期:2000-10-29
如何使用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了。