vb菜单与工具栏设计.ppt

第4章菜单与工具栏设计 主要内容 1 菜单设计 2 弹出式菜单设计 3 工具栏设计 4 状态栏设计 4 1菜单设计 在Windows中 菜单可以分为两种基本类型 下拉式菜单和弹出式菜单 下拉式菜单一般通过单击菜单栏中菜单名称的方式打开 而弹出式菜单一般通过在某一区域右击的方式打开 如图4 1所示 分别是VB 工程 菜单的下拉式菜单和窗体的弹出式菜单 4 1 1任务一菜单控件 在VisualBasic中 菜单也是一个图形对象 即控件 与其他控件一样 菜单也需要定义它的外观和属性 在设计菜单和运行菜单时可以设置菜单的Caption属性 Enable属性 Visible属性 Checked属性及其他属性 每个菜单项都可以接收Click事件 当用鼠标或键盘选中该菜单项时 将调用该事件 4 1 2任务二菜单编辑器 VisualBasic中 用菜单编辑器设计菜单和菜单项 或在已有的菜单上添加新菜单项 编辑已有的菜单选项以及修改和删除已有的菜单和菜单项 进入菜单编辑器的方式有如下几种 l选择 工具 菜单编辑器 命令 l单击常用工具栏中的 菜单编辑器 按钮 l按Ctrl E组合键 l在要建立菜单的窗体 此窗体为活动窗体 上右击 在弹出的快捷菜单中选择 菜单编辑器 命令 弹出 菜单编辑器 对话框 如图4 2所示 图4 2 菜单编辑器 对话框 菜单编辑器 窗口分为3部分 数据区 编辑区和菜单项显示区 现分别介绍各部分的功能 1 数据区数据区是菜单控件的属性区 用于输入和修改菜单项 设置菜单项的属性 由10个部分组成 各部分的作用如下 1 标题 此文本框用于输入所建立菜单的标题及菜单中每个菜单项的标题 相当于菜单控件的Caption属性 也是显示在菜单中的字符 可以在标题中设置热键 如果要在菜单中添加一条分隔线 就在此输入一个减号 2 名称 此文本框用于输入所建立的菜单和各菜单项的控制名 即菜单控件的Name属性 此项不在菜单中显示出来 VisualBasic中的菜单和每个菜单项都是控件 所以都要有一个控制名 其Name属性 3 索引 此文本框用来为用户建立的控件数组设立下标 相当于控件数组的Index属性 4 快捷键 此下拉列表框用来设置与某菜单项等价的快捷键 在程序运行时 按下快捷键会立刻运行一个菜单项 快捷键的赋值包括功能键与控制键的组合 它们出现在菜单中相应菜单项的右边 5 帮助上下文 此文本框用于输入在帮助文件 用HelpFile属性设置 中查找相应的帮助主题的数值 6 协调位置 此下拉列表框用于确定相应的菜单或菜单项的显示位置 该下拉列表框中有4个选项 其作用如下 l0 None 菜单项不显示 l1 Left 菜单项靠左显示 l2 Middle 菜单项居中显示 l3 Right 菜单项靠右显示 7 复选 此复选框用于设置该菜单项标记 即菜单项的Checked属性 此选项通常是动态地加上或取消的 一般应当在程序代码中 根据执行情况设置 当 复选 属性设置为True时 可在相应的菜单项旁加上标记 表明该菜单项当前处于活动状态 8 有效 该复选框用于设置菜单项的操作状态 即Enable属性 默认情况下 该属性为True 表示该选项为有效 可以对用户事件做出响应 若设置该选项为False 则相应的菜单项不响应用户事件 9 可见 该复选框用于确定相应的菜单项是否可见 即Visible属性 若菜单项是可以执行的 则其可见属性为True 否则相应的菜单项不能执行 即其可见属性为False 此时可以把它的 可见 属性设置为True 那么该菜单项将重新出现在菜单中 10 显示窗口列表 该复选框被选中 即框内为 时 将显示当前打开的一系列子窗口 该选项用于多文档应用程序 2 编辑区编辑区有7个按钮 用于对输入的菜单项进行简单编辑 菜单在数据区输入 在菜单项显示区显示 这7个按钮的作用如下 1 左 右箭头 用来产生和取消内缩符号 单击一次右箭头可以产生一个内缩符号 4个点 其作用是使当前菜单项的层次下降一层 单击一次左箭头 可以删除一个内缩符号 其作用是使当前菜单项的层次上升一层 2 上 下箭头 用来在菜单项显示区内移动菜单项的位置 把条形光标移动到某个菜单项上 单击上箭头将使该菜单项上移 单击下箭头将使该菜单项下移 3 下一个 新建一个菜单项 与按 Enter 键作用相同 4 插入 在当前菜单项之前插入一个新的菜单项 5 删除 删除当前菜单项 3 菜单项显示区菜单项显示区在菜单设计窗口的下面 输入的菜单项在此区域显示 不同菜单项的层次通过内缩符号来表示 条形光标所在的菜单项为 当前菜单项 4 1 3任务三创建菜单的步骤 例4 1 设计一个具有输入 输出和显示功能的菜单 该菜单可以把输入的一串字符显示出来 分析 根据题意 可以分为两个主菜单项 分别为 输入信息 和 显示信息 它们各包括两个子菜单项 l 输入信息 包括 输入 和 退出 l 显示信息 包括 显示 和 清除 建立菜单的具体操作步骤如下 1 建立控件本例中需要输入和输出数据 因此需要建立一个文本框用以输入数据 建立一个标签用以输出数据 另外建立两个标签作为提示 各控件的属性设置如表4 1所示 窗体界面如图4 3所示 此外 还要设置标签output的背景色及Label1和Label2的显示方式 如图4 4所示 图4 3菜单控件设计 图4 4菜单项设计 2 设计菜单下面利用菜单编辑器来设计各个菜单项 在设计菜单控件时应提供3种属性 标题 名称和内缩符号 一个内缩符号表示一层子菜单 没有内缩符号表示主菜单项 本例中有两个主菜单项 每个主菜单项有两个子菜单 其属性设置如表4 2所示 具体操作步骤如下 选择 工具 菜单编辑器 命令 弹出 菜单编辑器 对话框 在 标题 文本框中输入 输入信息 主菜单1 在菜单项显示区中出现同样的标题名称 按 Tab 键 或用鼠标 把输入光标移到 名称 文本框 在 名称 文本框中输入 Input 此时菜单项显示区中没有变化 将此菜单项的Enable 有效 和Visible 可见 属性都设置为True 本例中所有菜单项的此二属性皆如此 单击编辑区中的 下一个 按钮 菜单项显示区中的条形光标下移 同时数据区的 标题 文本框和 名称 文本框被清空 光标回到 标题 文本框 在 标题 文本框中输入 输入 该信息同时在菜单项显示区中显示出来 单击编辑区的右箭头 菜单显示区中的 输入 右移 同时其左侧出现一个内缩符号 表明 输入 是 输入信息 的下一级菜单 单击 快捷键 下拉列表框右端的下拉按钮 选择 Ctrl I 作为 输入 菜单项的快捷键 此时 在该菜单项右侧出现Ctrl I 单击编辑区中的 下一个 按钮 菜单项显示区的条形光标下移 左端自动出现内缩符号 在 标题 文本框内输入 退出 然后在 名称 文本框内输入 Quit 作为菜单项的名称 单击 快捷键 下拉列表框右端的下拉按钮 从中选出 Ctrl Q 组合键作为 退出 菜单项的快捷键 建立主菜单项 显示信息 及其两个子菜单项的操作与上面所述的各步骤类似 不再重复 设计完成后的窗口如图4 4所示 此时 单击右上角的 确定 按钮 菜单的建立工作全部结束 设计完成后 窗体的顶行显示主菜单项 单击某个主菜单项 即可显示下拉菜单 如图4 5所示 3 为事件过程编写代码如前所述 每个菜单项 包括主菜单项和子菜单项 都可以接收Click事件 每个子菜单项都对应一个Click事件过程 即程序运行后 只要单击某个子菜单项 就可以执行事件过程所定义的操作 每个菜单项对应一个控件 菜单设计完成后 窗体上显示出如图4 5所示的菜单项 此时只要单击某个子菜单项 即可编写该菜单项的过程 例如 完成菜单设计后 单击 输入信息 菜单项 显示 输入 和 退出 子菜单项 如果单击 输入 子菜单项 则进入程序代码窗口 并显示 PrivateSubIput Click 输入菜单代码Text1 Text EndSub PrivateSubdisp Click 显示菜单代码output Caption Text1 TextEndSub PrivateSubclear Click 清除菜单代码Text1 Text output Caption EndSub 4 1 4任务四菜单控件数组 在VisualBasic中 菜单也是图形对象 即控件 所以可以运用数组的概念 菜单控件数组的作用主要有以下两方面 1 用于动态地增加和删除菜单项 2 简化了编程过程 用一段代码处理多个菜单项 例4 2 设计一个简易的文本编辑器 具有新建 编辑和保存一般文本文件的功能 如图4 7所示 图4 7简易文本编辑器 建立此菜单的具体操作步骤如下 1 建立菜单控件由于本菜单中有文本的输入和显示操作 文件的操作 如 打开 保存 等 因此需要有文本框和对话框 还应设置文本的多行属性和滚动条 如图4 8所示 2 设计菜单此文本编辑器的每一菜单的下拉菜单中的菜单项是通过菜单控件数组完成的 只需指定其Index属性值即可 打开菜单编辑器 按表4 3所示输入每一个菜单项的各个属性 所建立的菜单如图4 9所示 图4 8建立菜单控件 图4 9用菜单控件数组建立菜单 3 编写事件过程代码菜单建立好以后 还需要为每一个事件过程编写相应的代码 下面是每一个菜单项的代码 文件 菜单的各个菜单项对应的事件代码如下 PrivateSubFile Click IndexAsInteger n IndexSelectCasenCase0 新建Text1 Text Form1 Caption 未命名 Case1 打开子菜单CommonDialog1 ShowOpen 显示 打开 对话框fname CommonDialog1 FileNameIffname ThenText1 Text OpenfnameForInputAs 1b DoUntilEOF 1 LineInput 1 nextlineb b nextline Chr 13 Chr 10 LoopClose 1Text1 Text bEndIfForm1 Caption fname Case2 保存子菜单IfForm1 Caption 未命名 OrForm1 Caption ThenCommonDialog1 ShowSave 显示 另存为 对话框fname CommonDialog1 FileNameElsefname Form1 CaptionEndIfIffname ThenOpenfnameForOutputAs 1Print 1 Text1 TextClose 1EndIf Case3 另存为子菜单CommonDialog1 ShowSave 显示 另存为 对话框fname CommonDialog1 FileNameIffname ThenOpenfnameForOutputAs 1Print 1 Text1 TextClose 1EndIfCase4 关闭子菜单Text1 Text EndEndSelectText1 SetFocusEndSub 编辑 菜单的各个菜单项对应的事件代码如下 PrivateSubEdi Click IndexAsInteger i IndexSelectCaseiCase0 剪切Clipboard SetTextText1 SelTextText1 SelText Case1 复制Clipboard SetTextText1 SelTextCase2 粘贴Text1 SelText Clipboard GetText Case3 清除Text1 SelText EndSelectEndSub 4 1 5任务五弹出式菜单 虽然下拉式菜单能够根据程序的运行情况动态地调整其可见性 有效性 也可以动态地增减菜单项 但其对用户的当前操作跟踪不够 而弹出式菜单能以灵活的方式为用户提供更方便的操作 弹出式菜单是独立于窗体菜单栏而显示在窗体内的浮动菜单 弹出式菜单在窗体内的位置取决于单击鼠标键 通常单击右键 时指针的位置 弹出式菜单也称为 上下文菜单 或 快捷菜单 建立弹出式菜单的具体操作步骤如下 1 先用菜单编辑器建立菜单 此步骤与下拉式菜单建立方法相同 区别在于必须把主菜单项的 可见 Visible 属性设置为False 2 用PopupMenu方法弹出显示 PopupMenu方法用来显示弹出式菜单 其格式如下 PopupMenu Flags X Y BoldCommand 说明 PopupMenu方法有6个参数 只有是必选的 其余都是可选的 省略时 在当前窗体内打开弹出式菜单 如果需要在非当前窗体中打开弹出式菜单时 必须指定窗体名 是在菜单编辑器中定义的主菜单项名 Flags参数是一个数值或符号常量 用来指定弹出式菜单的位置及行为 其取值分为两组 如表4 4和表4 5所示 一组用于指定菜单位置 另一组用于定义特殊的菜单行为 这两组参数可以单独使用 也可以联合使用 当联合使用时 每组中取一个常数 两个常数相加 若每组中取一个符号常量 则此两个常量用or相连 X Y分别用来指定弹出式菜单在窗体上的显示位置 X为横坐标 Y为纵坐标 一般与Flags参数配合使用 二者省略时 弹出式菜单在鼠标光标的当前位置显示 如果这几个参数都省略 则当右击弹出菜单时 鼠标光标所在位置为弹出式菜单左上角的坐标 系统默认窗体左上角为坐标原点 如果省略Flags参数 不省略X Y参数 则X Y为弹出式菜单左上角的坐标 如果同时使用这几个参数 则弹出式菜单的位置分为以下几种情况 Flags 0 X Y为弹出式菜单左上角的坐标Flags 4 X Y为弹出式菜单顶边中间的坐标Flags 8 X Y为弹出式菜单右上角的坐标 要弹出菜单 通常的做法是把PopupMenu方法放在 ouseDown事件中 该事件响应所有的鼠标单击操作 一般情况下右击显示弹出式菜单 这可以用Button参数来实现 对于两个键的鼠标来说 左键的Button参数值为1 右键的Button参数值为2 所以可以用下面的语句实现在右击时响应MouseDown事件 显示弹出式菜单 IfButton 2ThenPopupMenu菜单名 例4 3 在例4 1中实现弹出式菜单 在文本显示区域右击时可以设置字体格式 其具体操作步骤如下 1 打开在例4 1中建立的窗体 再打开菜单编辑器 设置各个菜单项的属性 其属性如表4 6所示 用菜单编辑器设计的结果如图4 10所示 图4 10建立弹出式菜单 2 编辑标签的MouseDown事件过程 PrivateSuboutput MouseDown ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle IfButton 2ThenPopupMenupopformatEndIfEndSub此过程中的条件语句用来判断所按下的是否是鼠标右键 如果是 则用PopupMenu方法弹出菜单 运行程序 然后在标签output内右击 将弹出一个菜单 如图4 11所示 图4 11显示弹出式菜单 3 为每个子菜单项编写事件过程代码 在编写下拉式菜单过程代码时 通常是在窗体中单击主菜单项 显示子菜单 然后双击某个子菜单项 进入代码窗口 即可编写该菜单项的事件过程代码 而弹出式菜单的主菜单项是不可见的 其Visible属性为False 不能在窗体顶部显示 所以不能通过双击子菜单项的方式进入代码窗口 必须先进入代码窗口 选择 视图 代码 命令 或按 F7 键 或双击窗体 然后单击 对象 下拉列表框右端的下拉按钮 显示各个子菜单项 再单击某个子菜单项 将显示该子菜单项的事件过程代码框架 然后可在该框架内编写代码 各子菜单项的事件过程代码如下 PrivateSubpopBold Click 粗体菜单output FontBold TrueEndSubPrivateSubpopItalic Click 斜体菜单output FontItalic TrueEndSubPrivateSubpopUndrli Click 下划线菜单output FontUnderline TrueEndSub PrivateSubfont20pt Click output FontSize 20EndSubPrivateSubfontLs Click output FontName 隶书 EndSubPrivateSubQit Click EndEndSub 运行上面的程序后 用弹出式菜单设置标签内数据的属性 如图4 12所示 图4 12弹出式菜单程序运行结果 4 2工具栏设计 工具栏 也称为发条或者控制栏 已经成为许多基于Windows应用程序的标准功能 工具栏提供了对于应用程序中最常用的菜单命令的快速访问 制作工具栏有两种方法 一是手工制作 即利用图形框和命令按钮 比较烦琐 另一种方法通过组合使用ToolBar ImageList控件 使得工具栏制作与菜单制作一样简单易学 用手工方式制作工具栏的具体操作步骤如下 1 在窗体中添加一个图片框 作为工具按钮的容器 通过设置图片框的Align属性来控制工具栏 图片框 在窗体中的位置 当改变窗体的大小时 Align属性值非0的图片框会自动改变大小以适应窗体的宽度或高度 2 选定图片框 在图片框中添加任何想在工具栏中显示的控件 通常使用的控件有命令按钮 图形方式的选项按钮 复选框按钮和下拉列表框等 3 设置控件的属性 通常在工具按钮上通过不同的图像来表示对应的功能 还可以设置按钮的ToolTipText属性为工具按钮添加工具提示 图4 13带工具栏的简易文本编辑器 4 编写代码 由于工具按钮通常用于提供对其他 菜单 命令迅速快捷地访问 所以一般都是在其Click事件代码中调用对应的菜单命令 例4 4 为例4 2中的简易文本编辑器增加一个自定义的工具栏 如图4 13所示 在例4 2的基础上作如下修改 1 修改应用程序用户界面 在窗体上增加一个图片框Picture1 然后在图片框中增加一个命令按钮数组Command1 0 Command1 2 和复选框数组Check1 0 Check1 2 2 设置新增对象属性 如表4 7所示 3 修改及编写程序代码 修改窗体的事件代码如下 PrivateSubForm Resize WithText1Left 0Top Picture1 HeightHeight Form1 ScaleHeight Picture1 HeightWidth Form1 ScaleWidthEndWithEndSub 编写命令按钮数组Command1 的Click事件代码如下 PrivateSubCommand1 Click indexAsInteger File Click index EndSub编写复选框数组Check1 的事件代码如下 PrivateSubCheck1 Click indexAsInteger Edi Click index EndSub 4 2 1任务一使用ToolBar控件 使用ToolBar控件和ImageList控件来创建工具栏非常容易且很方便 在使用这些控件前必须打开 部件 对话框 选择MicrosoftWindowsCommonControls6 0选项 将控件添加到工具中 如图4 14所示 图4 14添加控件到工具箱 1 ToolBar控件控件的插入 在工具箱中选择ToolBar控件 然后在窗体中画出控件 控件属性的设置 1 通过设置ToolBar的Align属性可以控制工具栏在窗体中的位置 当改变窗体的大小时 Align属性值非0的ToolBar控件会自动地改变大小以适应窗体的宽度或高度 2 右击窗体上的ToolBar控件 在弹出的快捷菜单中选择 属性 Properties 命令或者选中窗体上的ToolBar控件后在属性窗口单击 自定义 Custom 下拉列表框右侧的下拉按钮 都可以打开ToolBar的 属性 对话框 如图4 15所示 图4 15 属性页 对话框 通用 选项卡中的 图像列表 属性用来与ImageList控件建立关联 见图4 16 按钮 选项卡用来在ToolBar控件中添加按钮 见图4 17 图4 16与ImageList控件建立关联 图4 17在ToolBar中添加按钮 按钮 选项卡的各项功能如下 插入删除按钮 在按钮集合中添加或删除按钮元素索引和关键字 工具栏中的每个按钮都有唯一的标识 即索引和关键字 索引是整型 关键字是字符串型 访问按钮时可以引用二者之一 标题和描述 标题是显示在按钮上的文字 描述是按钮的说明信息 值 决定按钮的状态 0 tbrUnpressed为弹起状态 1 tbrPressed为按下状态 样式 决定按钮的行为特点 并且将影响按钮的功能 如表4 8所示 宽度 当Style属性值为4时 可设置按钮的宽度 图像 按钮上显示的图片在ImageList控件中的编号工具提示文本 程序运行时 当鼠标指向按钮时显示的说明性文字 2 ImageList控件工具栏 ToolBar 本身没有Picture属性 不能直接添加按钮上显示的图片 VisualBasic专门提供了图像列表控件ImageList 此控件不单独使用 专门为其他控件提供图像库 是一个图像容器控件 工具栏按钮的图像就是通过ToolBar控件从ImageList的图像库中获得的 控件的插入 在ToolBar控件所在的窗体中添加ImageList控件及其图片 然后建立ToolBar和ImageList控件之间的关联 最后从ImageList控件的图片库中选择需要的图像加载到工具栏按钮上 3 创建工具栏的步骤 1 有窗体中插入工具栏控件 如ToolBar1 和一个图像列表控件 如Imagelist1 并设置工具栏控件的Align属性 2 在Imagelist控件中添加所需的图像 3 在ToolBar控件中创建按钮 Button 对象 4 在工具栏 如ToolBar1 的ButtonClick事件中用SelectCase语句对各按钮进行相应的编程 例4 5 使用工具栏控件重新设计例4 4中的简易文本编辑器 如图4 18所示 图4 18利用工具栏控件设计的带工具栏的简易文本编辑器 在例4 2的基础上进行操作 1 修改应用程序用户界面 将窗体上的图片框及其中的命令按钮及复选框删除 再添加一个工具栏控件ToolBar1和一个图像列表控件ImageList1 设置ToolBar1的Align属性为1 cdlAligntop 如图4 19所示 2 通过 属性 对话框设置工具栏控件与图像列表控件的属性 先选中图像列表控件ImageList1并右击 在弹出的快捷菜单中选择 属性 命令即可打开 属性页 对话框 切换到 图像 选项卡 单击 插入图片 按钮 并依次从common graphic bitmaps tlbr w95目录中选取图片文件New bmp Open bmp Save bmp Cut bmp Copy bmp Paste bmp 如图4 20所示 单击 确定 按钮关闭 属性页 对话框 图4 19添加工具栏控件 图4 20向图像列表控件ImageList1中添加图像 3 选中工具栏控件ToolBar1 打开 属性页 对话框 切换到 通用 选项卡 将 图像列表 属性改为ImageList1 建立与图像列表框的关联 切换到 按钮 选项卡 依次插入按钮 如表4 9所示 单击 确定 按钮 关闭 属性页 对话框 添加了工具栏的窗体如图4 21所示 图4 21向工具栏中添加按钮 4 修改及编写程序代码 修改窗体的事件代码如下 PrivateSubForm Resize WithText1Left 0Top Toolbar1 HeightHeight Form1 ScaleHeight Toolbar1 HeightWidth Form1 ScaleWidthEndWithEndSub 编写工具栏按钮的事件代码如下 PrivateSubToolbar1 ButtonClick ByValButtonAsMSComctlLib Button n Button indexSelectCasenCase2 3 4File Click n 2 Case6 7 8Edi Click n 6 EndSelectEndSub 4 2 2任务二使用CoolBar控件 VisualBasic6 0提供了功能强大的ActiveX控件 其中CoolBar ToolBar控件可以用来制作Windows98风格的工具栏 CoolBar控件 在文件Comctl332 ocx中 允许用户创建类似于MicrosoftInternetExplorer中所具有的工具栏 并且可以自行配置该工具栏 CoolBar控件是容器控件 它一般包含两个或多个可以由用户重新定义大小并重新调整的带区 Bands 每一个带区包含一个单一的子控件 与ToolBar控件一样 在使用前需要把CoolBar控件添加到工具箱 即在工具箱中右击 在弹出的快捷菜单中选择 部件 命令 在 部件 对话框的 控制 选项卡中选择MicrosoftWindowCommonC