小知识:实际上我们在生活就中经常用到缩排,写文章时开头要空两格就是一种缩排,在编写程序时更需要缩排,这样使程序结构化,便于观察,当然菜单设计里的缩排有更多的用处。
接着填写下一菜单项,Caption为“新文件”,Name为“mnuFileNew”,按下Next键。
小知识:VB一共如许建立6级子菜单,如图5-3,尽量不要建立这样的菜单,要知道藏在越深处的菜单项越难以被人发现,一个友好的程序界面应该让用户马上找到需要的命令。
31
接着重复以上步骤,创建以下三个菜单项: Caption 保存 Name mnuFileSave Level 1 Caption 另存为 Name mnuFileSaveAs Level 1 Caption 载入 Name mnuFileLoad 32
Level 1
我们在菜单里还经常看到把不同项分开的分隔条,在VB里也很容易做到,把Caption设为“-”(减号),Name为mnuBar1。最后增加这个菜单条的最后一项,Caption为“退出”,Name为mnuFileExit。现在可以退出菜单设计窗口,菜单如图5-4。
怎么样,经过几章的学习,是不是觉得Windows世界也不是那么神秘?也对,也不对。的确,我们很轻易的实现了这么多的功能,但如果你仔细想想,我们的程序还什么也不会做呢!可以说是徒有其表,要实现强大的功能,恐怕要学很长很长时间,而现在仅仅是个开头,并不是想入非非的时候,我们还要继续努力!
现在再次按下Ctrl+E,重回菜单设计窗口,接着添加菜单。(按下向左的箭头,可以使菜单上升一级,Level代表菜单的级别),根据下表添加新的菜单项: Caption 编辑 Name mnuEdit Level 0 Caption 剪切 Name mnuEditCut
33
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。
34
从Win95以来程序里引入了鼠标右键功能,使鼠标有了更大的用处,在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
35