第8章菜单与工具栏设计VB-课件.pptVIP

菜单与工具栏设计 主讲: 李晓岚 8.1 菜单设计 什么是菜单？ 菜单的功能？ 人机对话界面，方便使用者选择应用系统的各种功能 通过菜单可以管理应用系统，控制应用程序各种功能模块的运行 菜单的类型 下拉式 弹出式 属性 定义其外观和操作 Caption、Enable、Visible、Checked… 事件 Click事件 使用菜单编辑器设计菜单 1 数据区 用来输入或修改菜单项，设置属性。 2.编辑区 编辑区由 7 个按钮组成 右箭头 把选定的菜单向右移一个等级。 左箭头 把选定的菜单向上移一个等级。 上箭头 把选定的菜单项在同级菜单内向上移动一个位置。 下箭头 把选定的菜单项在同级菜单内向下移动一个位置。 下一个 将开始一个新的菜单项。 插入 将在某个菜单项前插入一个新的同级空白菜单项。 删除 将删除选定的菜单项。 3.菜单项显示区 菜单编辑器相关说明 菜单项包括4个方面的信息 菜单标题、菜单命令、分隔线和子菜单 内缩符号用于表示菜单项所在层次，最多可以有5个内缩符号 分隔线 在“标题”栏中输入“-” 菜单中除了分隔线外，每个菜单项都可以接收Click事件 在输入菜单项标题时，加上字母，则可以通过Alt+字母执行相应菜单命令 应用菜单进行程序设计，主要经历三个步骤，分别是： （1）界面设计 主要任务是在窗体设计器中创建控件，设置控件的相应属性。 （2）菜单设计 利用菜单编辑器创建菜单界面。 （3）代码设计 为窗体中的控件编写事件过程，为子菜单项编写单击事件过程 8.1.4 菜单控件数组 菜单控件数组的作用 简化编程过程，用一段代码处理多个菜单项 动态增加或删除菜单项 一段代码处理多个菜单项 Private Sub file_Click(Index As Integer) Select Case Index Case 0 Text1.Text = new Case 1 Text1.Text = open End Select End Sub 动态增删菜单项 在主菜单下插入一个子菜单 caption: 清单 name: list index: 0 visible: False 代码部分 增加菜单项: load list(1) List(1).visible = true List(1).caption = “添加一个菜单项” 删除菜单项: unload list(1) 8.1.6 弹出菜单 弹出菜单是独立于菜单栏的浮动菜单，其在窗体上的显示位置由单击鼠标时指针的位置决定。 【例8-3】在例8-1中实现弹出式菜单，在文本显示区域单击右键可以设置字体格式。 编辑标签的MouseDown事件过程 Private Sub output_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu popformatEnd If End Sub 为每个子菜单项编写事件过程代码。 Private Sub popBold_Click() output.FontBold = True End Sub Private Sub popItalic_Click() output.FontItalic = True End Sub Private Sub popUndrli_Click() output.FontUnderline = True End Sub Private Sub font20pt_Click() output.FontSize = 20 End Sub Private Sub fontLs_Click() output.FontName = 隶书 End Sub Private Sub Qit_Click() End End Sub 9-1 建立弹出菜单，应使用的方法是(【9】)。 【9】 A) MenuTo B) SetMenuTo C) PopupMenu D) PopMenu 9-2 在菜单设计窗口，如果希望菜单项的某一字母为热键，则可在该字母前加的符号是(【9】)。 【9】A) @ B) # C) ^ D) 9-5 菜单控件中不包含(【9】)属性。 【9】A) caption B) checked C) visible D) Value ? 9-6 Visual Basic 6.0 可以建立下拉式菜单，最多可达(【9】)层。 【9】A)