说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何使用VB控件Commom Dialog

HTML文档下载 WORD文档下载 PDF文档下载
VB如何使用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了。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘