vbVB4第7章幻灯片.pptxVIP

第七章 用户界面设计 7.1 菜单设计7.2 对话框设计 37.3 工具栏 7.4 综合应用 7.5 自主学习—鼠标和键盘初学者：编写应用程序 = 界面设计 + 编写事件过程 ../../VB实验及答案/VB6第7章1-11教案例子/例7.1-10/记事本程序.vbp引例 ../../VB实验及答案/VB6第7章1-11教案例子/例7.1-10/记事本程序.vbp7.1 类似Windows记事本的应用程序 菜单：下拉式菜单、弹出式菜单。对话框：通用对话框、自定义对话框。 7.1 菜单设计一、下拉式菜单 例7.2 实现例7.1程序的菜单标题名称快捷键标题名称快捷键文件(F)FileMenu编辑(E)EditMenu …新建(N)FileNewCtrl+N …复制EditCopy …打开(O)…FileOpenCtrl+O …剪切EditCut …另存为(A)…FileSaveAsCtrl+S …粘贴Paste …分隔线FileSeparate格式(O)FormatMenu …退出(X)FileExit …字体FormatFont帮助(H)HelpMenu …颜色FormatColor …关于HelpAbout工具/菜单编辑器 设计菜单热键 显示(F) 菜单标题Caption 菜单项名称(控件名)定义快捷键Shortcut Checked是不是选项 √ 下一位置上一位置上一级下一级定义的分隔线 “协调位置” 如何在容器窗体中显示菜单(0-none 1-Left 2-Middle 3-Right)“显示窗口列表” 在 MDI(多文档用户界面-Multiple Document Interface)应用程序中,确定菜单控件是否包含一个打开的 MDI子窗体列表。 “索引”可指定一个数字值来确定控件在控件数组中的位置。控件数组....VB 里所有的index都是为数组准备的。(名称相同时才需要填此项)◆ 编写事件过程 “新建”菜单项的事件过程 Sub FileNew_Click() Text1.Text = End Sub “退出”菜单项的事件过程 Sub FileExit_Click() End End Sub../../VB实验及答案/VB6第7章1-11教案例子/例7.11/vb4-7-11.vbp例../../VB实验及答案/VB6第7章1-11教案例子/例7.11/vb4-7-11.vbp7-11二、弹出菜单 [,标志，X,Y]缺省时，在鼠标右键按下时的位置处弹出菜单。◆ 也使用菜单编辑器设计 通常Visible属性为False◆ 显示弹出菜单 [对象.]PopupMenu 菜单名[,标志，X,Y] 例7.3 为例7.1中的文本框配置弹出菜单。Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EditMenuEnd Sub说明：Button = 2表示按下鼠标右键,EditMenu为编辑菜单名。../../VB实验及答案/VB6第7章1-11教案例子/例7.12/例7.12.VBP例../../VB实验及答案/VB6第7章1-11教案例子/例7.12/例7.12.VBP7-12多重窗体弹出式菜单1../菜单-test.vbp实例演示对标签右击鼠标，弹出的快捷菜单2Sub label1_MouseDown(button As Integer, shift As Integer, x As Single, y As Single) If button = 2 Then PopupMenu MenuSize ‘字号的菜单名称为MenuSizeEnd Sub7.2 对话框设计一、通用对话框 ◆ 不是ActiveX控件 位于Microsoft Common Dialog Control 6.0部件 需用“工程/部件”加载 ◆ 显示对话框通用对话框的类型Action属性Show方法打开（Open)文件对话框1ShowOpen另存为（Save As)对话框2ShowSave颜色（Color）对话框3ShowColor字体（Font）对话框4ShowFont打印机（Printer）对话框5ShowPrinter帮助（Help）对话框6ShowHelp例:CommonDialog1.Action=1 或 CommonDialog1.ShowOpenDialogTiltle◆ DialogTiltle 标题属性◆ CancelError属性 True：按下“取消”按钮，出现错误警告 自动将错误标志Err置为32755（cd