第10章对话框和菜单.pptVIP

第10章 对话框和菜单 10.1通用对话框 10.2菜单设计 * * 通用对话框对象允许在程序中显示六种标准对话框 通用对话框是一种ActiveX控件,需要加到工具箱中 步骤： 1)打开“工程”菜单，选择“部件”命令 2)打开“控件”选项卡，并选中“Microsoft Common Dialog Control 6.0”复选框 单击“确定”按钮，控件出现在工具箱中 10.1通用对话框(CommonDialog) ShowHelp 6 帮助对话框 ShowPrinter 5 打印对话框 ShowFont 4 字体对话框 ShowColor 3 颜色对话框 ShowSave 2 保存文件对话框 ShowOpen 1 打开文件对话框 方法 Action 属性值 对话框类型 10.1.1打开/另存为对话框 与打开/另存为对话框有关的属性 ： DefaultEXT属性 设置对话框中默认文件类型（扩展名） 2） DialogTitle属性 设置对话框的标题，缺省时为“打开”、“保存” 3) FileName属性 设置或返回要打开或保存的文件的路径及文件名 4) FileTitle属性，用来指定所选择的文件名（不含路径） 5) Filter属性 指定在对话框中显示的文件类型。可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择 Filter属性值由多个字符串段构成，字符串段之间要用管道符“|”隔开，在它前面的部分称为描述符，后面的部分一般为通配符和文件扩展名，称为“过滤器” 格式如下： 对话框名.Filter=描述符1|过滤器1|描述符2|过滤器2… 例如： CommonDialog1.Filter= All Files(*.*) | *.* | BMP文件(*.bmp) |*.bmp 6) FilterIndex属性 指定默认的过滤器，其设置值为一个整数 Filter属性设置多个过滤器后，每个都有一个索引值 第一个过滤器的索引值为1，第二个过滤器的索引值为2… CommonDialog1.FilterIndex=2 7) CancelError属性 ①CancelError为True，且用户单击了对话框的“取消”按钮时，将产生一个错误，错误号为32755，符号常量为cdlCancel ②CancelError为False时，单击“取消”按钮，将不产生错误信息 增加： Shell函数 ——调用应用程序 格式：shell（命令字符串[，窗口类型]） 1）命令字符串：必须是可执行文件，扩展名：COM、 EXE、BAT、PIF其他不可 2）窗口类型：0、1、2、3、4、6 vbhide:窗口被隐藏，具有焦点 vbnormalfocus：窗口正常大小，具有焦点 vbminimizefocus：窗口最小化，具有焦点 vbmaximizefocus：窗口最大化，具有焦点 vbnormalnofocus：窗口正常，不具有焦点 vbminimizenofocus：窗口最小化，不具有焦点 Shell函数成功执行后，返回一个任务标识（task id） 且必须赋给一个变量 x=shell（”c:\vb98\myvb1.exe”,3）不可以省略“x=“ Shell函数采用异步方式执行其他程序，即shell启动的 程序可能还没有执行完，就已执行了Shell函数后面的语句 例如:private sub command1-click() m%=inputbox(“shuru 1~3”) select case m case 1 : x=shell(“c:\my1.exe”,1) case 2 : x=shell(“d:\my2.exe”,1) case 3 : x=shell(“e:\my3.exe”,1) end select 10.1.2 颜色对话框 “颜色”对话框可以用来在调色板中选择颜色，或者创建并选定自定义颜色。打开后，选定颜色并关闭对话框后可以用Color属性获取选定的颜色 使用“颜色”对话框时，应注意将Flags属性设置成常数 cdlCCRGBInit 10.1.3字体对话框 “字体”对话框根据大小、样式、颜色选择字体 1)Color属性：必须先将Flags属性设置为cdlCFEffects 2) FontName属性：返回用户选定的字体