第10章对话框和菜单.ppt

《第10章对话框和菜单.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第10章对话框和菜单10.1通用对话框10.2菜单设计通用对话框对象允许在程序中显示六种标准对话框通用对话框是一种ActiveX控件,需要加到工具箱中步骤：1)打开“工程”菜单，选择“部件”命令2)打开“控件”选项卡，并选中“MicrosoftCommonDialogControl6.0”复选框单击“确定”按钮，控件出现在工具箱中10.1通用对话框(CommonDialog)对话框类型Action属性值方法打开文件对话框1ShowOpen保存文件对话框2ShowSave颜色对话框3ShowColor字体对话框4ShowFon

2、t打印对话框5ShowPrinter帮助对话框6ShowHelp10.1.1打开/另存为对话框与打开/另存为对话框有关的属性：DefaultEXT属性设置对话框中默认文件类型（扩展名）2）DialogTitle属性设置对话框的标题，缺省时为“打开”、“保存”3)FileName属性设置或返回要打开或保存的文件的路径及文件名4)FileTitle属性，用来指定所选择的文件名（不含路径）5)Filter属性指定在对话框中显示的文件类型。可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择Filter属性值由多个字符

3、串段构成，字符串段之间要用管道符“

4、”隔开，在它前面的部分称为描述符，后面的部分一般为通配符和文件扩展名，称为“过滤器”格式如下：对话框名.Filter=描述符1

5、过滤器1

6、描述符2

7、过滤器2…例如：CommonDialog1.Filter="AllFiles(*.*)

8、*.*

9、BMP文件(*.bmp)

10、*.bmp"6)FilterIndex属性指定默认的过滤器，其设置值为一个整数Filter属性设置多个过滤器后，每个都有一个索引值第一个过滤器的索引值为1，第二个过滤器的索引值为2…CommonDialog1.FilterI

11、ndex=27)CancelError属性①CancelError为True，且用户单击了对话框的“取消”按钮时，将产生一个错误，错误号为32755，符号常量为cdlCancel②CancelError为False时，单击“取消”按钮，将不产生错误信息增加：Shell函数——调用应用程序格式：shell（命令字符串[，窗口类型]）1）命令字符串：必须是可执行文件，扩展名：COM、EXE、BAT、PIF其他不可2）窗口类型：0、1、2、3、4、6vbhide:窗口被隐藏，具有焦点vbnormalfocus：窗口正常大小，具有焦

12、点vbminimizefocus：窗口最小化，具有焦点vbmaximizefocus：窗口最大化，具有焦点vbnormalnofocus：窗口正常，不具有焦点vbminimizenofocus：窗口最小化，不具有焦点Shell函数成功执行后，返回一个任务标识（taskid）且必须赋给一个变量x=shell（”c:vb98myvb1.exe”,3）不可以省略“x=“Shell函数采用异步方式执行其他程序，即shell启动的程序可能还没有执行完，就已执行了Shell函数后面的语句例如:privatesubcommand1-c

13、lick()m%=inputbox(“shuru1~3”)selectcasemcase1: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字体对话框“字

14、体”对话框根据大小、样式、颜色选择字体1)Color属性：必须先将Flags属性设置为cdlCFEffects2)FontName属性：返回用户选定的字体的名称/设置对话框缺省的字体3)FontBold属性：返回/设置“粗体”4)FontItalic属性：返回/设置“斜体”5)FontStrickethru属性：返回/设置“删除线”6)FontUnderline属性：返回/设置“下划线”7)FontSize属性：返回/设置“字体大小”Flags属性设置为下述VB常数之一：①cdlCFScreenFonts（屏幕支持的字体）②

15、cdlCFPrinterFonts（打印机支持的字体）③cdlCFBoth（即可以是屏幕字体又可以是打印机字体）例如：程序实现初始化并显示“字体”对话框，然后根据用户的选择设置文本框的字体属性10.1.4打印对话框1)Copies属性：返回/设置要打印的份数2)FromPage属性：返回/