VB程序设计电子教案-第5章：程序用户界面设计

第5章程序用户界面设计对话框菜单设计工具栏、状态栏设计本章学习目标InputBox函数及MsgBox函数的灵活使用正确运用通用对话框实现文件的翻开与保存、字体及颜色的设置等操作熟练掌握下拉式菜单和弹出式菜单的设计与编程掌握剪贴板对象的根本编程以及在VB在调用外部应用程序的根本方法根本掌握工具栏的设计步骤与编程方法对话框输入输出消息框通用对话框自定义对话框

常见的对话框包括输入／输出消息框、通用对话框以及用户根据实际需要自行设计的的自定义对话框。输入输出消息框输入输出消息框就是主要用于信息输出显示及用户数据输入的对话框。输入消息框输出消息框输入消息框根本格式：InputBox〔提示信息[，标题][，缺省值][，x坐标位置][，y坐标位置]〕使用例如：s=InputBox("请输入您的Email地址","用户信息输入")说明输出消息框根本格式：MsgBox〔提示信息，[，按钮数值][，标题]〕使用例如：c=MsgBox("密码错",21，"密码核对")说明〔详见教材〕用于指定按钮数目及形式的VB常数

VB符号常量对应数值功能VbOKOnly0显示“确定”按钮VbOKCancel1显示“确定”、“取消”按钮VbAbortRetryIgnore2显示“终止”、“重试”、“忽略”按钮VbYesNoCancel3显示“是”、“否”、“取消”按钮VbYesNo4显示“是”、“否”按钮VbRetryCancel5显示“重试”、“取消”按钮用于指定图标样式的VB常数VB符号常量对应数值功能VbCritical16显示“严重错误”图标VbQuestion32显示“警告询问”图标VbExclamation48显示“警告错误”图标VbInformation64显示“信息”图标用于指定默认选择按钮的VB常数VB符号常量对应数值功能VbDefaultButton10第一个按钮为默认选择按钮VbDefaultButton2256第二个按钮为默认选择按钮VbDefaultButton3512第三个按钮为默认选择按钮MsgBox函数的返回值VB符号常量对应数值用户的选择按钮VbOK1单击“确定”按钮VbCancel2单击“取消”按钮VbAbort3单击“终止”按钮VbRetry4单击“重试”按钮VbIgnore5单击“忽略”按钮VbYes6单击“是”按钮VbNo7单击“否”按钮通过对话框VB提供了一组基于Windows的常用的标准对话框界面，用户可以充分利用通用对话框〔CommonDialog〕控件在窗体上创立6种标准对话框，它们分别是翻开〔Open〕、另存为〔SaveAs〕、颜色〔Color〕、字体〔Font〕、打印机〔Printer〕和帮助〔Help〕对话框。通用对话框的使用步骤通用对话框控件不属于VB6.0的标准控件，默认情况下未出现在开发环境的工具箱中，因此必须首先将该控件添加到工具箱中方可使用。通用对话框的编程一般应包括以下三个步骤。将通用对话框添加到工具箱中在窗体上添加通用对话框控件对象，并设置其根本属性或调用其根本方法个性化属性设置及程序设计通用对话框的属性和方法Action属性Show方法打开的通用对话框的类型0无对话框显示1ShowOpen打开文件对话框2ShowSave另存对话框3ShowColor颜色对话框4ShowFont字体对话框5ShowPrinter打印机对话框6ShowHelp帮助对话框通用对话框的“属性页”通用对话框的重要属性和方法“翻开”/“另存为”对话框“颜色”对话框“字体”对话框其它对话框“翻开”/“另存为”对话框常用属性属性功能DialogTitle对话框标题FileName返回或设置用户所要打开或另存为的文件的文件路径和文件名FileTitle返回或设置用户所要打开或另存为的文件名Filter过滤器属性，是一个字符串，用于设置对话框中可以显示的文件类型FilterIndex过滤器索引属性，是一整数，表示文件列表框中默认的文件类型是Filter属性的设置的第几组。InitDir初始化路径属性，设置对话框的初始文件目录DefaultExt设置保存文件时默认的文件扩展名“颜色”对话框的常用属性颜色对话框中最重要的属性就是Color，用于设定或返回用户在颜色对话框中选定的颜色。PrivateSubForm_Click()CommonDialog1.Action=3Form1.BackColor=CommonDialog1.ColorEndSub“字体”对话框的常用属性属性功能Flags设置或返回“字体”对话框的样式。flag的值：1：对话框只列出系统支持的屏幕字体；2：只列出打印机支持的字体；3：列出可用的打印机和屏幕字体；4：对话框中显示“帮助”按钮；256：对话框中允许设置删除线、下划线和颜色效果；Color返回在“字体”对话框中选中的字体颜色。FontName返回在“字体”对话框中选中的字体名称FontSize返回在“字体”对话框中选中的字号FontBold返回在“字体”对话框中是否选中了粗体字FontItalic返回在“字体”对话框中是否选中了斜体字FontUnderline返回在“字体”对话框中是否选中了下划线FontStrikethru返回在“字体”对话框中是否选中了删除线通用对话框应用实例【实例5-1】编程在VB中用Windows画图软件mspaint.exe直接翻开相关图形文件。实例5-1程序界面实例5-1程序实现分析通用对话框的属性设置在窗体中显示图像文件的路径与文件名的实现如何调用外部程序编辑图像文件实现步骤代码清单自定义对话框创立自定义对话框就是建立一个窗体，然后根据实际需要或自己的喜好在窗体上放置控件，通过设置属性值来自定义窗体的外观。模式对话框与无模式对话框自定义对话框的显示自定义对话框的显示显示要求代码形式说明显示为模式对话框MyDialog.ShowvbModal符号常量vbModal的值为1，说明显示的类型为模式对话框显示为无模式对话框MyDialog.ShowMyDialog.ShowvbModelessvbModeless的值为0将MyDialog作为Form1的子窗体显示MyDialog.Show0,Form1可以确保对话框在它的父窗体最小化时它也最小化，或者在其父窗体关闭时它也卸载（最大化时不变），此时只能是无模式显示（否则无法对主窗体操作）菜单设计菜单编辑器菜单编程例如菜单控件数组的应用弹出式菜单菜单综合实例菜单编辑器翻开菜单编辑器菜单编辑器的界面及属性菜单的建立菜单的建立①翻开菜单编辑器；②输入标题属性，名称属性；③选择快捷键，复选、有效、可见等属性；④运用箭头键调整当前菜单位置；⑤重复上述四步直至完成菜单的输入；⑥单击“确定”按钮。菜单编程例如菜单相关知识点控制菜单项的有效性设置菜单项勾选标记菜单控件数组的应用菜单控件数组的使用场合菜单控件数组的建立用菜单控件数组修改简单菜单程序动态菜单的建立菜单控件数组的使用场合对于一些功能相似的菜单项设置成菜单数组可简化代码的书写需根据运行时的具体情况建立动态菜单项菜单控件数组的建立菜单控件数组的建立方法与普通的菜单建立相类似，只需在菜单编辑器中，将同一个菜单控件数组中的各菜单项的名称置为相同，即名称输入框中的菜单名称完全一样，而各自的索引输入框中输入不同的值动态菜单本卷须知对于要求动态显示的菜单项，其菜单项的添加与删除分别用Load和Unload语句实现，其语法格式为：添加菜单数组元素：Load菜单数组名〔index〕删除菜单数组元素UnLoad菜单数组名〔index〕其中，Index指菜单项的索引值。不能删除在设计时创立的菜单项。Unload语句是将菜单项从内存中删除，如果只想让菜单项隐藏不可见，并不想从内存中去除，那么只需调用Hide方法或令该菜单项的Visible属性为False。弹出式菜单弹出式菜单又称快捷菜单、上下文菜单，是独立于菜单栏而显示在窗体上的浮动菜单，一般通过单击鼠标右键来激活。弹出式菜单所显示的内容取决于按下鼠标右键时鼠标指针的位置。在VB中，弹出式菜单的实现要用到下拉式菜单的设计技术和PopupMenu方法。弹出式菜单使用演示〔参见教材〕菜单综合实例【实例5-2】编程建立一个可对输入的文本进行简单编辑与修饰的文本编辑窗口【实例5-2】程序功能要求简单文本编辑窗口.vbp【实例5-2】程序实现分析程序的界面设计如何实现文本框的大小随着窗体的大小变化而变化与复制、剪切、粘贴相关的操作当已有选取的文本时，那么相关菜单项应变可选剪贴板对象Clipboard剪贴板对象Clipboard的主要方法方法功能Clear清除Clipboard上的内容GetText返回保存在Clipboard上的文本SetText复制文本到Clipboard上GetData返回保存在Clipboard上的图像文件SetData使用指定的图形格式将图像保存在Clipboard上GetFormat返回Clipboard对象中的项目格式工具栏、状态栏设计工具栏设计步骤工具栏的代码设计工具栏设计步骤向工具箱中添加工具栏控件在窗体中参加工具栏控件对象为图像工具栏准备图像列表建立工具栏与图像列表控件对象之间的关联从图像列表控件对象的图像库中选择各工具栏按钮的图像，并设置其它所需属性工具栏的代码设计工具栏控件能响应的事件中最常用的就是ButtonClick事件，当用户单击工具栏中的图标按钮时激发该事件。在工具栏的ButtonClick事件代码中，一般采用SelectCase语句来处理各按钮的功能代码，而区分用户单击了哪个按钮那么可通过按钮的索引值工具栏代码的一般形式SelectCaseButton.keyCase“tbrCut”Clipboard.SetTextText1.SelTextText1.SelText=""……EndSelect动态工具栏的设计如果要在程序运行阶段对工具栏中的按钮进行动态地添加或删除，那么必须使用工具栏控件的Add方法、Remove方法等，此时，工具栏中的按钮作为一个Buttons集合的对象来访问。Add方法的使用Remove方法的使用工具栏的Add方法一般格式对象名.Button