二级VB程序设计教程

《二级VB程序设计教程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB程序设计教程主讲老师：韩维良2005.3第十二章通用对话框设计一、对话框的分类与特点如大小不可改变，是模式对话框等。二、通用对话框控件为了操作界面一致起见，如果设计如：打开文件、保存文件、颜色、字体、打印、帮助等六种形式的对话框时，可以直接借用Windows原有的对话框，使得设计出来的应用程序与Windows原有的此类对话框相同，既保持了界面的一致性，也省去了诸多设计过程。1、向工程工具箱中添加通用对话框控件不是标准控件，是Action控件。①、选择“工程”——“部件”。②、选择“控件”标签，再选“

2、MicrosoftCommonDialogControl6.0”，最后单击确定。2、产生通用对话框在窗体上用对话框控件（））制造一个通用对话框控件通过右击选“属性”，可对其做一些基本的设置；然后再调用通用对话框控件的相应方法来产生具体需要的通用对话框；如:CommonDialog1.Filter="Html文件(*.htm)

3、*.htm

4、Exe文件(*.exe)

5、*.exe"设置打开时的文件类型,类似于文件列表框的Pattern匹配属性，双引号内为：“描述

6、类型名

7、描述

8、类型名

9、描述

10、类型名”，显示成下

11、拉列表形式。调用方法：通用对话框名.方法名或者为其Action属性赋值：通用对话框名.ACTION=值方法名功能ActionShowOpen打开文件的通用对话框1ShowSave保存文件的通用对话框2ShowPrinter打印文件的通用对话框3ShowColor设置颜色的通用对话框4ShowFont设置字体的通用对话框5ShowHelp显示帮助的通用对话框6如：产生一个打开文件的对话框：CommonDialog1.ShowOpen3、通用对话框中操作结果的返回当用户在通用对话框中完成选择以后，用户的选择

12、会在通用对话框相应的属性中反映出来。下一步的工作根据用户的选择让程序进行相应的反应。如打开文件对话框中用户选择完成后，选择的文件在通用对话框的FILENAME属性中，如是可执行文件，可用下面的方法执行：Shell(CommonDialog1.Filename)又如：Form1.Backcolor=CommonDialog1.colorFNM=CommonDialog1.Filename又如：CommonDialog1.Flags=cdlCFBothCommonDialog1.ShowFontText1.

13、FontName=CommonDialog1.FontNameText1.FontSize=CommonDialog1.FontSizeText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDialog1.FontItalicText1.FontUnderline=CommonDialog1.FontUnderlineText1.FontStrikethru=CommonDialog1.FontStrikethruText1.ForeCo

14、lor=CommonDialog1.Color4、通用对话框应用实例设计一个产生通用对话框的应用程序，新建一个标准窗体，产生一个单选按钮（在程序中要用于产生单选按钮数组）、一个通用对话框；PrivateSubForm_load()Fori=1To5LoadOption1(i)Option1(i).Top=Option1(i-1).Top+350Option1(i).Visible=TrueNextiOption1(0).Caption="打开文件"Option1(1).Caption="保存文件"Opt

15、ion1(2).Caption="颜色"Option1(3).Caption="字体"Option1(4).Caption="打印"Option1(5).Caption="帮助"Command1.Caption="显示对话框"EndSubPrivateSubCommand1_Click()IfOption1(0).ValueThenCommonDialog1.Filter="Html文件(*.htm)

16、*.htm

17、Exe文件(*.exe)

18、*.exe"CommonDialog1.ShowOpenShel

19、l(CommonDialog1.Filename)ElseIfOption1(1).ValueThenCommonDialog1.ShowSaveElseIfOption1(2).ValueThenCommonDialog1.ShowColorElseIfOption1(3).ValueThenCommonDialog1.Flags=cdlCFBothCommonDialog1.ShowFontElseIfOption1(4).ValueT