VB菜单使用方法.ppt

第8章 菜单 8.1 菜单编辑器 8.2 下拉式菜单 8.3 弹出式菜单 8.4 菜单定制 8.1 菜单编辑器 在应用程序窗口中加入菜单不仅可以方便用户的使用，并可以避免由于误操作而带来的严重后果。利用Visual Basic所提供的【菜单编辑器】可以非常方便地建立菜单。下图是一个典型的菜单。 8. 1 菜单编辑器 1. 打开【菜单编辑器】 通过以下四种方法可以打开【菜单编辑器】： （1） 在【工具】菜单中选择【菜单编辑器】选项。 （2） 在工具栏上单击【菜单编辑器】按钮。 （3） 在当前窗体上单击鼠标右键，将弹出一个快捷菜单，然后选择【菜单编辑器】选项。 （4）在当前窗体上使用热键“Ctrl + E”。 2. 【菜单编辑器】的结构 【菜单编辑器】主要分为三个部分，即数据区、编辑区和菜单项显示区。 8.2 下拉式菜单 【例8.1】设计一个如图8.1所示的菜单，属性设置如下表 在菜单编辑器中建立【例8.1】所述菜单 8.3 弹出式菜单 建立弹出式菜单通常有两步： 首先用菜单编辑器建立菜单 然后在有关的控件对象的某个事件中用PopupMenu方法弹出显示。 第一步的操作与下拉式菜单基本相同，如果弹出式菜单不需要在顶级菜单处显示，则把菜单项（顶级菜单）的“可见”属性设置为False（即不选中），如果弹出式菜单需要在顶级菜单处显示，则菜单项（顶级菜单）的“可见”属性设置为True（即选中）不变，如【例8.1】，效果见图8.2所示。 PopupMenu方法的格式为： [对象.]PopupMenu 菜单名 [,flags [,x [,y [,BoldCommand]]]] 说明： (1) 对象：即窗体名，省略该项将打开当前窗体的菜单。 (2) 菜单名：是指通过菜单编辑器设计的菜单(至少有一个子菜单项)的名称。 (3) Flags：为一些常量数值的设置，包含位置及行为两个指定值，如书中表8.2所示。两个常数可以相加或以or相连。 (4) X和Y：用来指定弹出式菜单显示位置的横坐标(X)和纵坐标(Y)。如果省略，则弹出式菜单在鼠标光标的当前位置显示。 (5) BoldCommand：指定在显示的弹出式菜单中想以粗体字体出现的菜单项的名称。在弹出式菜单中只能有一个菜单项被加粗。 如在窗体上要通过单击鼠标右键显示【例8.1】中的菜单mnuEdit，则在窗体的MouseDown事件中可进行如下编程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_ X As Single, Y As Single) If Button = 2 Then PopupMenu mnuEdit End If End Sub 8.4 菜单定制 在应用程序中，菜单项的作用可能会因为执行条件的变化而发生一些相应的改变。这就涉及到菜单的控制问题。比如菜单项的有效性控制、菜单项的删减等。 1. 使菜单命令有效或无效 菜单中的某些菜单项能根据执行条件的不同进行动态变化，即当条件满足时可以执行，否则不能执行。 下列语句可使【例8.1】中的“粘贴”菜单项失效： mnuEditPaste.Enabled = False 菜单项失效将使得该菜单项及其所有子菜单都失效。 2. 隐藏或显示菜单项 下列语句可隐藏【例8.1】中的“清除”菜单项： mnuEditClear. Visible = False 4. 创建菜单控件数组 Visual Basic将菜单项视为控件，因此就可以运用控件数组来管理菜单项，即菜单控件数组。应用菜单控件数组的好处主要有两个： 用于动态增删菜单项 简化编程，用一段过程代码处理多个菜单项 菜单控件数组的建立方法：在菜单编辑器中对菜单项的“索引”项设置为非空的数值（一般从0开始）。 【例题】建立一个如图所示的菜单，用户可以通过选择菜单中的菜单项改变文本框中内容的外观。 设计步骤如下。 （1）建立控件 在窗体上添加一个文本框，将它的Text属性置为空。 （2）设计菜单 在窗体设计状态下选择“工具”菜单下的“菜单编辑器”命令，调出菜单设计窗口。在菜单设计窗口中，按下表设计菜单项。 （3）把代码连接到菜单上 在窗体窗口单击菜单标题，然后在下拉菜单中单击要连接代码的菜单项，在屏幕上就会出现代码窗口，并自动给出事件过程的头尾语句。只要在头尾语句间输入代码即可。 Private Sub ct_Click() Text1.FontBold = Not Text1.FontBold End Sub Private Sub xt_Click() Text1.FontItalic = Not Text