第10章对话框和菜单.ppt

第10章对话框和菜单通用对话框对象允许在程序中显示六种标准对话框
通用对话框是一种ActiveX控件,需要加到工具箱中
步骤：
1)打开“工程”菜单，选择“部件”命令
2)打开“控件”选项卡，并选中“MicrosoftCommon
DialogControl6.0”复选框
单击“确定”按钮，控件出现在工具箱中10.1.1打开/另存为对话框
与打开/另存为对话框有关的属性：
DefaultEXT属性
设置对话框中默认文件类型（扩展名）
2）DialogTitle属性
设置对话框的标题，缺省时为“打开”、“保存”
3)FileName属性
设置或返回要打开或保存的文件的路径及文件名
4)FileTitle属性，用来指定所选择的文件名（不含路径）5)Filter属性
指定在对话框中显示的文件类型。可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择
Filter属性值由多个字符串段构成，字符串段之间要用管道符“|”隔开，在它前面的部分称为描述符，后面的部分一般为通配符和文件扩展名，称为“过滤器”
格式如下：
对话框名.Filter=描述符1|过滤器1|描述符2|过滤器2…
例如：
CommonDialog1.Filter="AllFiles(*.*)|*.*|BMP文件(*.bmp)|*.bmp"6)FilterIndex属性
指定默认的过滤器，其设置值为一个整数
Filter属性设置多个过滤器后，每个都有一个索引值
第一个过滤器的索引值为1，第二个过滤器的索引值为2…
CommonDialog1.FilterIndex=2
7)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(“c:\my1.exe”,1)
case2:x=shell(“d:\my2.exe”,1)
case3:x=shell(“e:\my3.exe”,1)
endselect10.1.2颜色对话框
“颜色”对话框可以用来在调色板中选择颜色，或者创建并选定自定义颜色。打开后，选定颜色并关闭对话框后可以用Color属性获取选定的颜色
使用“颜色”对话框时，应注意将Flags属性设置成常数
cdlCCRGBInit10.1.3字体对话框
“字体”对话框根据大小、样式、颜色选择字体
1)Color属性：必须先将Flags属性设置为cdlCFEffects
2)FontName属性：返回用户选定的字体的名称/设置对话框缺省的字体
3)FontBold属性：返回/设置“粗体”
4)FontItalic属性：返回/设置“斜体”
5)FontStrickethru属性：返回/设置“删除线”
6)FontUnderline属性：返回/设置“下划线”
7)FontSize属性：返回/设置“字体大小”Flags属性设置为下述VB常数之一：
①cdlCFScreenFonts（屏幕支持的字体）
②cdlCFPrinterFonts（打印机支持的字体）
③cdlCFBoth（即可以是屏幕字体又可以是打印机字体）
例如：程序实现初始化并显示“字体”对话框，然后根据用户的选择设置文本框的字体属性10.1.4打印对话框
1)Copies属性：返回/设置要打印的份数
2)FromPage属性：返回/设置打印的起始页
3)ToPage属性：返回/设置打印的终止页
4)Orientation属性：返回/设置打印的方向PrivateSubCommand1_Click()
DimBeginPage,EndPage,NumCopies,k
CommonDialog1.CancelError=True
OnErrorGoToout
CommonDialog1.ShowPrinter
BeginPage=CommonDialog1.FromPage
EndPage=CommonDialog1.ToPage
NumCopies=CommonDialog1.Copies
Fork=1ToNumCopies
'在此放置打印代码
Nextk
out:
ExitSub
EndSub
10.1