VB教案－菜单设计.docVIP

[教案] 第十课 　菜单设计 授课方式：讲授法 授课学时：2学时 教学目的： 通过本次课的学习，学生应该掌握菜单编辑器的使用，掌握针对菜单命令响应事件的代码。 教学重点和难点： 1．会建立各种菜单并对菜单进行有效性控制 2．能编写代码 教学过程： 菜单设计 一、 菜单设计器的使用 1．属性设置　 2．编辑区域 　 3．显示区域 二、下拉菜单的设计 1．设计界面 　 2．代码编写 三、弹出式菜单的设计 1．设计界面 　 2．代码编写 [讲稿] （十） 菜单设计 菜单的相关概念 1. 菜单的类型 下拉菜单：常以菜单栏的形式出现在标题栏下面 弹出菜单(快捷菜单)：独立于菜单栏而显示在窗体上的浮动菜单，其菜单项取决于按下鼠标右键时指针所处的位置。 2. VB中的菜单控件 菜单和菜单项均看作是菜单控件 菜单控件两个最重要的属性 名称(Name)：程序代码中用来引用菜单控件 标题(Caption)：出现在控件上的文本 菜单控件只响应Click事件 10.1 菜单设计器的使用 打开菜单编辑器： “工具→菜单编辑器” 工具栏“菜单编辑器”按钮 1. 常用属性 标题：设置Caption属性 字符前加，该字符成为访问键 只输入一个减号- ，创建分隔条 名称：设置Name属性 注：对分隔条，也需定义名称 索引(Index)：用于菜单控件数组 快捷键 、 复选(Checked) 有效(Enabled)、 可见(Visible) 2. 编辑菜单控件 10.2 下拉菜单的设计 方法：先通过菜单编辑器设计菜单，然后编写各菜单控件的Click事件过程。 例： 创建简易编辑器 (1) 设计菜单 (2) 设计界面 菜单下面绘制两条直线(两个Line控件)，一条为黑色，一条为白色。 黑线的Y1和Y2属性设为0 白线的Y1和Y2属性设为10 文本框Text1： MultiLine设为True ScrollBars设为3 (3) 编写菜单控件的Click事件过程 10.3 弹出式菜单的设计 用PopupMenu方法可显示弹出式菜单 [对象.]PopupMenu 菜单控件名称 若“对象”缺省，则在当前窗体中显示弹出菜单 通常，按下鼠标右键时显示弹出菜单，例如： Private Sub Form或控件名称_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 如果按的是鼠标右键 PopupMenu 菜单名 显示弹出菜单 End If End Sub 例： 弹出菜单设计 (1) 打开例5.15所建立的工程 (2) 添加如下的事件过程： Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuEdit 弹出名称为mnuEdit的菜单 End If End Sub 注：若要创建一个不显示在菜单栏中的弹出菜单，设计菜单时，需取消主菜单的“可见”复选框。 2