VB基础教程第五章：VB菜单设计

　　我们在菜单里还经常看到把不同项分开的分隔条，在VB里也很容易做到，把Caption设为“-”（减号），Name为mnuBar1。最后增加这个菜单条的最后一项，Caption为“退出”，Name为mnuFileExit。现在可以退出菜单设计窗口，菜单如图5－4。

　　怎么样，经过几章的学习，是不是觉得Windows世界也不是那么神秘？也对，也不对。的确，我们很轻易的实现了这么多的功能，但如果你仔细想想，我们的程序还什么也不会做呢！可以说是徒有其表，要实现强大的功能，恐怕要学很长很长时间，而现在仅仅是个开头，并不是想入非非的时候，我们还要继续努力！

　　现在再次按下Ctrl+E，重回菜单设计窗口，接着添加菜单。（按下向左的箭头，可以使菜单上升一级，Level代表菜单的级别），根据下表添加新的菜单项：

Caption 编辑 Name mnuEdit Level 0

Caption 剪切 Name mnuEditCut Level 1 Short-Cut Ctrl+X

Caption 复制 Name mnuEditCopy Level 1 Short-Cut Ctrl+C

Caption 粘贴 Name mnuEditPaste Level 1 Short-Cut Ctrl+V

Caption 关于 Name mnuAbout Level 0

　　其中Short-Cut就是平常我们说的热键，你可以在菜单设计窗口中找到，设置一个你需要的组合键，这样不论窗口的焦点处于何处，菜单在第几层，只要按下热键，就相当于调用了该项的Click事件。结果如图5－5。

　　windows引入了鼠标右键功能，使鼠标有了更大的用处，在VB里我们也很容易实现。

　　打开Form_MouseDown事件，该事件有两个参数：Button，当按下左键时Button返回1，当按下右键时Button返回2，；Shift，是指在点击鼠标时按下的键盘键，如Shift、Ctrl、Alt，这些我们将在以后讨论，但很难避免在一章中不涉及到不该涉及的内容，学习时有个大概的理解即可。下面在该事件里添加代码（效果如图5－6）：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

PopupMenu mnuEdit, vbPopupMenuLeftAlign

Else

Exit Sub

End If

End Sub

　　在上面的代码中我们用到了PopupMenu方法，它的语法是：

object.PopupMenu 菜单名，标记，X坐标，Y坐标

标记是用来表明弹出菜单位于鼠标指针位置的，它有三个值：

vbPopupMenuLeftAlign	位于鼠标左
vbPopupMenuRightAlign	位于鼠标右
VbPopupMenuCenterAlign	位于鼠标中部

　　X、Y值可以用来制定菜单弹出的位置，可以省略。

　　关于菜单的Visible、Enabled等属性请自己尝试。

　　第五章完