菜单程序设计

菜单程序设计
一、菜单简介
在前面，我们学习了一些常用控件的使用方法，同时我们学习了如何利用这些简单的常用控件来布置界面并实现一些功能。

但是，同学们可以看到，在我们日常使用的窗口中，几乎都有一个共同特点，那就是菜单，比如windows中的窗口，word的界面，等等都有菜单。

那么，如果我们也能在我们自己的设计中也添加上菜单，那不是使我们开发的应用程序更美观、更实用或者说更像模像样了吗？
这节课，我们就来学习菜单的制作方法。

（让同学们将书本翻到64页。

）
我们先来看幻灯片，关于菜单这一部分，要求同学们要达到这样的要求。

（学习目标和学习要点）要制作菜单，首先我们要先明确菜单的各个组成部分，当然这不用我多说，大家都很清楚，但是每一部分到底如何“称呼”，我们来具体的看一下。

（见幻灯片，可以结合powerpoint的菜单进行介绍。

）
二、菜单编辑器
那么，在VB中菜单是怎么被制作出来的呢？
VB中提供了一个专门的菜单编辑工具——菜单编辑器。

菜单编辑器在什么地方呢？启动VB后，有三种方法可以打开菜单编辑器。

（见幻灯片）
现在我们打开了菜单编辑器，大家一看这个界面，感觉挺复杂的，怎么做一个菜单要这么多东西啊，其实，菜单项也是一个对象，跟其他的控件一样，也具有它自己的属性，那么跟其他控件对象相比，菜单的属性要少得多了，不是吗？但是，和其他对象一样，菜单项也有两个最常用的属性，一个是“标题”，它相当于其他控件的caption属性，另一个是“名称”，相当于name属性，很简单只要填上这两个空，就可以创建一个菜单项了。

我们按照下表来创建一个菜单，并编写代码：
Text1.Visible = True
Text1.Text = ""
End Sub
Private Sub mnuopen_Click()
Form1.Caption = "文件"
Text1.Visible = True End Sub
Private Sub mnuclose_Click() Text1.Visible = False Form1.Caption = ""
End Sub Private Sub mnuexit_Click() End
End Sub
Private Sub mnubold_Click()
mnubold.Checked = Not mnubold.Checked Text1.FontBold = mnubold.Checked
End Sub Private Sub mnuitalic_Click()
mnuitalic.Checked = Not mnuitalic.Checked Text1.FontItalic = mnuitalic.Checked
End Sub
Private Sub mnufontvisible_Click()
Me.mnufont.Visible = Not Me.mnufont.Visible
If mnufont.Visible Then
mnufontvisible.Caption = "字体不可见"
Else
mnufontvisible.Caption = "字体可见"
End If
End Sub
三、访问键和快捷键
细心的同学们会注意到，在我们常见的菜单中，每个菜单名和几乎每个菜单项的旁边都有一个类似“（f）”的符号，大家都知道，这是访问键或热键，比如在powerpoint中的文件菜单，我们利用alt+f可以访问“文件”的菜单项。

那么，细心的同学还会发现，在有些菜单项的旁边会有一个类似“ctrl+z”的符号，我们知道这是快捷键，有哪位同学能告诉我，访问键和快捷键的区别是什么？（提问）我们不妨利用菜单编辑器也来设置各个菜单项的访问键和快捷键(详情见上表)。

现在我们可以运行程序来看一看。

当我们使用访问键时，只是找到相应的菜单项，而并不执行菜单项，需要敲回车键才能够执行命令；而用快捷键就是执行该指令。

因此，它们的区别是：（见幻灯片）。

四、菜单选项的状态
在菜单编辑器上，还有一排复选按纽：复选、有效、可见、显示窗口列表，这些是什么意思？我想大家应该很容易明白。

复选：可在设计时改写，也可在运行时通过代码改变。

（如上例）
有效：将“字体不可见”的有效属性的“√”去掉，看效果。

可见：相当于visible属性；
显示窗口列表：等以后学到多文档时，我们再给大家演示。

五、菜单控件数组
在菜单编辑器中还有一个重要的属性——索引。

这个市做什么用的呢？大家应该也不
陌生，在我们前面学习单选按纽的时候，我经常给大家举例子，改变字体的大小时，我们就是使用的单选按钮的控件数组。

在写代码时，它们的名称都是option1，而我们用select case 语句写代码时，用以区分这些单选按钮的是它们的索引值，就是index，也就是我们这里的索引。

因此，如果我们需要将几个菜单项改为控件数组的时候，使用索引这个属性。

在原有菜单的基础上添加字体大小的控件数组（见上表），写入代码：
Private Sub mnufs_Click(Index As Integer)
Select Case Index
Case 0
Text1.FontSize = 10
Case 1
Text1.FontSize = 20
Case 2
Text1.FontSize = 30
End Select
Dim i As Integer
For i = 0 To 2
If i <> Index Then
mnufs(i).Checked = False Else
mnufs(i).Checked = True End If
Next i
End Sub
若要程序为，选中哪个字体大小，就在前面加“√”，可在原代码后添加代码：（如上）创建控件数组需要注意的问题有（见幻灯片）
六、关于菜单项的几点说明（见幻灯片）
七、弹出式菜单
以上我们制作的菜单都是比较普通的一般的菜单，其实利用菜单编辑器还可以作出弹出式菜单。

什么是弹出式菜单？（见幻灯片，利用powerpoint演示弹出式菜单）如果我们自己开发应用程序中，含有弹出式菜单，不是会使我们的设计更完善吗？
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu popmenu
End If
End Sub
关于幻灯片上弹出菜单中的flag的说明可以将上述代码改为：
PopupMenu popmenu，4
PopupMenu popmenu，0
PopupMenu popmenu，8，0，0
等等来观察效果。

八、工具栏的设计
（后两种方法，让学生自己看书完成，第一种方法会在以后的章节中作介绍）。