面向对象程序设计PPT10.ppt

第10章对话框和菜单“通用对话框”是一种ActiveX控件，它随同VB提供给程序设计人员。启动VB后，在工具箱中没有对话框控件，需要把它加到工具箱中。
控件添加步骤：
(1)打开“工程”菜单，选择“部件”命令。
(2)打开“控件”选项卡，并选中“MicrosoftCommonDialogControl6.0”复选框。
(3)单击“确定”按钮，控件出现在工具箱中。ActiveX控件：CommonDialog控件与“打开/另存为”对话框有关的属性：(2)FileName属性
设置或返回要打开或保存的文件的路径及文件名。例如：H:\exefile\db.exe(4)Filter属性
指定在对话框中显示的文件类型。可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择。格式如下：
对话框名.Filter=描述符1|过滤器1|描述符2|过滤器2…(5)FilterIndex属性
指定默认的过滤器，其设置值为一个整数。
Filter属性设置多个过滤器后，每个都有一个索引值。第一个过滤器的索引值为1，第二个过滤器的索引值为2…(6)CancelError属性
①当CancelError为True时，用户单击“取消”按钮，将产生一个错误，错误号为32755（cdlCancel）以便程序判断。
②当CancelError为False时，单击“取消”按钮，将不产生错误信息。Shell函数成功执行后，返回一个任务标识（taskid）
且必须赋给一个变量
x=shell（”c:\vb98\myvb1.exe”,3）不可以省略“x=”
Shell函数采用异步方式执行其他程序，即shell启动的程序可能还没有执行完，就已执行了Shell函数后面的语句
例如:
PrivateSubcommand1_click()
m%=InputBox("shuru1~3")
SelectCasem
Case1:x=Shell("H:\exefile\db.exe",1)
Case2:x=Shell("H:\exefile\jxzd.exe",1)
Case3:x=Shell("H:\exefile\pz.exe",1)
EndSelect
EndSub例10.1显示“打开”对话框并运行选定的可执行文件。p257PrivateSubCommand1_Click()
DimRetVal
CommonDialog1.CancelError=True
OnErrorGoToEr'错误捕捉，参见第13章p326
‘以下设置过滤器
CommonDialog1.Filter="AllFiles(*.*)|*.*|EXE文件(*.EXE)|*.EXE|BAT文件(*.BAT)|*.BAT"
CommonDialog1.FilterIndex=2‘指定缺省过滤器
CommonDialog1.ShowOpen‘显示打开对话框
‘以下调用Shell函数打开指定的文件
RetVal=Shell(CommonDialog1.FileName,vbNormalFocus)
Er:
ExitSub
EndSub“颜色对话框”可以用来在调色板中选择颜色，或者创建并选定自定义颜色。
CommonDialog1.Action=3
或
CommonDialog1.ShowColor10.1.2颜色对话框例10.2显示“颜色”对话框，并把用户选择的颜色设置成窗体的背景色。10.1.3字体对话框通用对话框的属性设置：
(1)Color属性：设定字体颜色的初始值。为了使用此属性，必须先将Flags属性设置为cdlCFEffects/256(允许中划线、下划线和颜色）。
(2)FontName属性：字体的名称
(3)FontBold属性：粗体
(4)FontItalic属性：斜体
(5)FontStrickethru属性：删除线
(6)FontUnderline属性：下划线
(7)FontSize属性：字体大小为了显示“字体”对话框，Flags属性设置为下述VB常数之一：
①cdlCFScreenFonts（屏幕支持的字体）
②cdlCFPrinterFonts（打印机支持的字体）
③cdlCFBoth（即可以是屏幕字体又可以是打印机字体）

例10.3初始化并显示“字体”对话框，然后根据用户的选择设置文本框的字体属性。PrivateSubCommand1_Click()
CommonDialog1.CancelError=True
OnErrorGoToErrHandler
'设置Flags属性
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects
'设置“字体”对话框的初始值
CommonDialog1.FontName="隶书"
CommonDialog1.Fon