文档介绍：第六章菜单、工具栏、多媒体控件
教学内容:
一、菜单的规划与设计
菜单的结构、规划、菜单的设计(建立主菜单、设计子菜单、快捷键“&”的作用)
二、弹出式菜单的制作
三、工具栏与状态栏
创建的步骤、属性设置、事件编程。
四、多媒体控件多媒体控件MMControl属性方法、事件及程序举例。
教学要求:
了解:菜单的结构、如何规划。
掌握:主菜单、弹出式菜单、工具栏、状态栏的设计、利用多媒体空间制作多媒体播放器。
§
1. 菜单的类型
下拉菜单:常以菜单栏的形式出现在标题栏下面
弹出菜单(快捷菜单):独立于菜单栏而显示在窗体上的浮动菜单,其菜单项取决于按下鼠标右键时指针所处的位置。
2. VB中的菜单控件
菜单和菜单项均看作是菜单控件
菜单控件两个最重要的属性
名称(Name):程序代码中用来引用菜单控件
标题(Caption):出现在控件上的文本
菜单控件只响应Click事件
菜单的设计与应用-使用菜单编辑器
打开菜单编辑器:
“工具→菜单编辑器”
工具栏“菜单编辑器”按钮
1. 常用属性
标题:设置Caption属性
字符前加&,该字符成为访问键
只输入一个减号 - ,创建分隔条
名称:设置Name属性
注:对分隔条,也需定义名称
索引(Index):用于菜单控件数组
快捷键、复选(Checked)
有效(Enabled)、可见(Visible)
菜单的设计与应用-使用菜单编辑器
2. 编辑菜单控件
菜单的设计与应用-设计下拉菜单
方法:先通过菜单编辑器设计菜单,然后编写各菜单控件的Click事件过程。
[例] 创建简易编辑器
(1) 设计菜单
(2) 设计界面
菜单下面绘制两条直线(两个Line控件),一条为黑色,一条为白色。
黑线的Y1和Y2属性设为0
白线的Y1和Y2属性设为10
文本框Text1:
MultiLine设为True
ScrollBars设为3
(3) 编写菜单控件的Click事件过程
用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)
(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
注:若要创建一个不显示在菜