中国民航飞行学院Visual Basic 程序设计课件第十章 菜单与工具栏设计.pptVIP

“菜单编辑器”的组成 “菜单编辑器” 中的显示区与对应的菜单项 10.2 下拉式菜单 【例10-1】设计一个简单的下拉式菜单。 设计步骤如下： 在“菜单编辑器”中建立如下菜单 为相应的菜单命令编写事件过程 编写“足球”菜单项的Click事件代码： Private Sub menu11_Click() Label1.Caption = 你选择了足球 End Sub 编写“游泳”子菜单下的2个菜单项的Click事件代码： Private Sub menu121_Click() Label1.Caption = 你选择了蛙泳 End Sub Private Sub menu122_Click() Label1.Caption = 你选择了仰泳 End Sub …… 1. 设置快捷键 2. 增加确认标记 4. 菜单项的隐藏 【例10-2】设计一个简单的文本编辑器，利用输入对话框输入文本，通过菜单命令控制文本框中字体的外观。其中，部分菜单项具有在其旁加上或取消√标志、关闭或隐藏菜单项的功能，并设有快捷键和访问键功能，其执行界面如图所示。 10.3 弹出式菜单 设计弹出式菜单的方法 （1）使用“菜单编辑器”窗口建立一个顶层菜单（主菜单项）。 （2）设置弹出式菜单的显示方式。使用PopupMenu方法显示弹出式菜单。 PopupMenu方法的语法格式是： [窗体名.] PopupMenu 菜单项 [, Flags [, X[, Y]]] 【例10-3】在例9-2中，将“文件”菜单作为弹出式菜单显示。 运行效果如图所示。 10.4 制作工具栏 【例10-4】在例9-3中，增加一个自定义的工具栏。 2）设置新增对象属性： ImageList 控件的主要设置： 工具栏中的按钮习惯上以图形按钮方式出现，而工具 栏控件本身没有Picture属性。需要通过图像列表控件来 实现工具栏按钮图片的载入。 【例10-5】使用工具栏控件和图像列表控件，重新设计例9-4的工具栏，窗口设计界面如图所示。 设计步骤： 1） 在窗体上添加ToolBar和ImageList控件 2）设置ImageList控件属性 3）设置ToolBar控件属性 4）编写工具栏按钮的事件代码 Private Sub Toolbar1_ButtonClick (ByVal Button As_ MSComctlLib.Button) n = Button.Index Select Case n Case 1 ‘ 对第1个按钮 Text1.Text = InputBox(请输入一段文字信息, 输入) Text1.Visible = True Case 2 ‘ 对第2个按钮 End Case 4 ‘ 对第4个按钮 Text1.FontBold = Button.Value End Select End Sub 设置按 钮图片 ? ? 设置按钮 提示信息 ? 注意：索引值为3的第3个按钮是只起间隔作用，无需编写代码 */33 Visual Basic程序设计 第10章 菜单与工具栏设计 2009年 月 日 计算机 学院 教师：傅茂洺 10.1 菜单编辑器 提 要 10.2 下拉式菜单 10.3 弹出式菜单 10.4 制作工具栏 一个完整的菜单通常由：主菜栏、子菜单、菜单项、访问键、快捷键、分隔符等组成。 10.1 菜单编辑器 为了创建菜单，VB提供了一个设计菜单的工具，即“菜单编辑器”。 可在VB的“工具”菜单下选择“菜单编辑器”命令，则可打开“菜单编辑器”窗口。 属性设置区 显示区 编辑区 属性设置区 窗口的上部分用于设置每个菜单项的基本属性 编辑区 窗口的中部有7个按钮，用于编辑菜单中的各菜单项 菜单项编辑区 窗口的下方区域，用于显示输入的菜单项，编辑好的菜单会立刻在编辑区中显示出来，并通过内缩符号表明菜单项的层次 “菜单编辑器”中的菜单项主要属性 设置菜单项是否可见 可见 (Visible) 设置菜单项是否可用 有效 (Enabled) 设置某一菜单项是否可选 复选 (Checked) 为菜单项选择一个快捷键 快捷键 (Shortcut) 设置菜单控件数组的下标 索引 (Index) 设置菜单项的名称 名称 (Name) 设置菜单项显示的标题 标题 (Ca