【vb精品源码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。
网学会员整理了vb精品源码-【精品】面向对象程序设计PPT10 - 大学课件的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
第10章 对话框和菜单 10.1 通用对话框控件 10.2 菜单设计 10.1 通用对话框控件-- CommonDialog“通用对话框”是一种ActiveX控件,它随同
VB提供给程序设计人员。
启动
VB后,在工具箱中没有对话框控件,需要把它加到工具箱中。
控件添加步骤:1打开“工程”菜单,选择“部件”命令。
2打开“控件”选项卡,并选中“MicrosoftCommon Dialog Control 6.0”复选框。
3单击“确定”按钮,控件出现在工具箱中 。
ActiveX控件: 根据微软权威的软件开发指南MSDN(Microsoft Developer Network)的定义,ActiveX插件以前也叫做 OLE(对象连接与嵌入)控件OCX控件,它是一些软件组 件或对象,可以将其插入到WEB网页或其它应用程序中。
ActiveX控件是可重用的软件组件。
使用它可以很快地在网 址、应用程序以及开发工具中加入特殊的功能。
ActiveX控 件的使用者可以无需知道这些组件是如何开发的,便可以完 成网页或应用程序的设计。
通用对话框控件提供了六种类型的对话框 ,对话框的类型需要在程序中设置,具体方法有两种:1设置属性:CommonDialog1.Action n2执行方法:CommonDialog1.ShowOpen通 对话框类型 Action属性值 方法用 打开文件对话框 1 ShowOpen对话 保存文件对话框 2 ShowSave框的 颜色对话框 3 ShowColor类 字体对话框 4 ShowFont型设 打印对话框 5 ShowPrinter置 帮助对话框 6 ShowHelp一、打开/另存为对话框CommonDialog控件与“打开/另存 为”对话框有关的属性 :1 DialogTitle 属性设置对话框的标题,缺省时为“打开”或“保存” 。
2 FileName属性设置或返回要打开或保存的文件的路径及 文件名。
例如:H:exefiledb.exe 2 FileTitle属性 用来返回所选择的文 件名(不含路径)。
例如:db.exe 只能在程序中使用该 属性。
4 Filter属性 指定在对话框中显示的文件类型。
可以设置多个文 件类型,供用户在对话框的“文件类型”的下拉列 表中选择。
格式如下: 对话框名.Filter描述符1过滤器1描述符2过滤器2… 通配符和扩展名例如:CommonDialog1.Filter “All Files. .EXE文件.EXE .EXEBAT文件.BAT.BAT5 FilterIndex属性指定默认的过滤器,其设置值为一个整数。
Filter属性设置多个过滤器后,每个都有一个索引值。
第一个过滤器的索引值为1,第二个过滤器的索引值为2…例如:CommonDialog1.Filter “All Files. .EXE文件.EXE .EXEBAT文件.BAT.BATCommonDialog1.FilterIndex26 CancelError属性①当CancelError为True时,用 户单击“取消”按钮,将产生 一个错误,错误号为32755 (cdlCancel)以便程序判断。
②当CancelError为False时,单 击“取消”按钮,将不产生错 误信息。
补充: Shell函数——调用应用程序格式:shell(命令字符串,窗口类型)1 命令字符串:必须是可执行文件,即扩展名必须为COM、 EXE、BAT、PIF,其他不可 。
注:目录及文件名不能包含汉字。
2 窗口类型:0、1、2、3、4、6 vbHide/0: 窗口被隐藏,具有焦点 vbNormalFocus/1:窗口正常大小,具有焦点 vbMinimizeFocus/2:窗口最小化,具有焦点 vbMaximizeFocus/3:窗口最大化,具有焦点 vbNormalNoFocus/4:窗口正常,不具有焦点 vbMinimizeNoFocus/6:窗口最小化,不具有焦点Shell函数成功执行后,返回一个任务标识(task id)且必须赋给一个变量xshell(”c:
vb98myvb1.exe”3)不可以省略“x”Shell函数采用异步方式执行其他程序,即shell启动的 程序可能还没有执行完,就已执行了Shell函数后面的语句例如:Private Sub command1_click m InputBoxshuru 13 Select Case m Case 1: x ShellH:exefiledb.exe 1 Case 2: x ShellH:exefilejxzd.exe 1 Case 3: x ShellH:exefilepz.exe 1 End SelectEnd Sub 例10.1 显示“打开”对话框并运行选定的可执行文 件。
p2571界面设计2程序代码Private Sub Command1_ClickDim RetValCommonDialog1.CancelError TrueOn Error GoTo Er 错误捕捉,参见第13章p326 ‘以下设置过滤器CommonDialog1.Filter All Files. .EXE文件.EXE .EXEBAT文件.BAT.BATCommonDialog1.FilterIndex 2 ‘指定缺省过滤器CommonDialog1.ShowOpen ‘显示打开对话框 ‘以下调用Shell函数打开指定的文件RetVal ShellCommonDialog1.FileName vbNormalFocusEr: Exit SubEnd Sub 10.1.2 颜色对话框“颜色对话框”可以用来在调色板中选择颜色,或者创建并选定自定义颜色。
CommonDialog1.Action 3 或CommonDialog1. ShowColor 10.1.2 颜色对话框“颜色对话框”控件的重要属性: DialogTitle, CancelError,Color,Flags。
Color: 用来设置初始颜色。
Flags: 用来设置对话框的选项,其中,属性值为 cdlCCRGBInit或1时,使得Color属性定义的颜色在首次显 示对话框时作为选定颜色。
例如:Private Sub Form_Load CommonDialog1.ShowColor CommonDialog1.Color H000000FF 红色 CommonDialog1.Flags 1End Sub例10.2 显示“颜色”对话框,并把用户选择的颜色设置成窗体的背景色。
Private Sub Command1_Click CommonDialog1.CancelError True On Error GoTo ErrHandler CommonDialog1.Color HFF0000 兰色 CommonDialog1.Flags 1 设置Flags属性 CommonDialog1.ShowColor Color属性值作为窗体背景颜色 Form1.BackColor CommonDialog1.ColorErrHandler: Exit SubEnd Sub 10.1.3 字体对话框“字体”对话框用来设定字体大小、样式、颜色。
CommonDialog1.Action 4 或CommonDialog1. ShowFont通用对话框的属性设置: 1Color属性:设定字体颜色的初始值。
为了使用 此属性,必须先将Flags属性设置为 cdlCFEffects/256允许中划线、下划线和颜色)。
2 FontName属性:字体的名称3 FontBold属性:粗体4 FontItalic属性:斜体5 FontStrickethru属性:删除线6 FontUnderline属性:下划线7 FontSize属性:字体大小为了显示“字体”对话框,Flags属性设置为下述
VB常数之一:①cdlCFScreenFonts(屏幕支持的字体)②cdlCFPrinterFonts(打印机支持的字体)③cdlCFBoth(即可以是屏幕字体又可以是打印机字体)例10.3 初始化并显示“字体”对话框,然后根据用户的选择设置文本框的字体属性 。
Private Sub Command1_Click CommonDialog1.CancelError True On Error GoTo ErrHandler 设置Flags属性 CommonDialog1.Flags cdlCFBoth Or cdlCFEffects 设置“字体”对话框的初始值 CommonDialog1.FontName 隶书 CommonDialog1.FontSize 50 CommonDialog1.FontBold True CommonDialog1.FontItalic True CommonDialog1.FontUnderline True CommonDialog1.FontStrikethru True CommonDialog1.Color RGB255 0 0