Visual Basic第6章菜单设计.pptVIP

第6章 菜单设计 菜单是Windows系统下应用程序界面中非常重要的交互元素。在应用程序中使用菜单能够使应用程序界面更加直观，为应用程序与用户提供更方便快捷的交互方式。 6.1 下拉式菜单 下拉菜单是一种典型的窗口式菜单 1.菜单编辑器 菜单编辑器用于在界面设计阶段创建新的菜单和菜单栏 4种方法可以打开“菜单编辑器”窗口。 方法1：单击“工具”→“菜单编辑器”菜单命令； 方法2：单击工具栏上的“菜单编辑器”图标； 方法3：直接使用快捷键Ctrl+E； 方法4：在要建立菜单的窗体上单击鼠标右键，在弹出的快捷菜单中单击“菜单编辑器”命令。 6.1 下拉式菜单 6.1 下拉式菜单 属性区 编辑区 列表框 6.1 下拉式菜单 2．建立下拉式菜单 在菜单设计和运行时，可以通过对菜单的Caption属性、Enabled属性及Visual属性进行设置。在Visual Basic 6.0程序设计中，用菜单编辑器来完成菜单的创建。 6.1 下拉式菜单——实训项目 仿照IE浏览器创建菜单。菜单包含一级菜单文件、编辑。文件菜单项中包含子菜单项新建、打开、保存和退出，其中新建子菜单包含二级子菜单文件和文件夹；编辑菜单中包含剪切、复制和粘贴菜单项。 6.2 弹出式菜单 弹出式菜单又称为快捷菜单，只有在单击鼠标右键的时候会显示出来。和下拉式菜单一样，弹出式菜单也是用“菜单编辑器”设计出来的。 6.2 弹出式菜单 1. 弹出式菜单的建立与现实 弹出式菜单的创建方法与下拉式菜单的创建方法基本一致，只是弹出式菜单在窗体中通过右键单击来激活。因此，在创建弹出式菜单时，需要将菜单的可见性设置为不可见。 显示弹出式菜单，应该在代码中调用PopupMenu方法，其语法格式如下： [object.]PopupMenu menuname [,flags [,x [,y [,boldcommand]]]] 6.2 弹出式菜单 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then ‘是否是鼠标右键 PopupMenu mnuHelp End If End Sub 6.2 弹出式菜单 2. 使用弹出式菜单要注意的问题 把顶级菜单控件的Visible属性设置为false并不是设计弹出式菜单的一个必要条件。 6.3 菜单项的控制 在菜单的下拉选项中，登陆菜单项为灰色，即为不可操作项。 6.3 菜单项的控制 1. 有效性控制 Private Sub Form_load() MenuFileNewFold.Enabled = False End Sub Private Sub Form_load() MenuFileNewFold.Enabled = True End Sub 6.3 菜单项的控制 2.菜单项标记 Private Sub Form_load() MenuFileOpen.Chceked = True End Sub 6.3 菜单项的控制 3. 菜单项的增减 菜单项的增减是通过控件数组来实现的。一个控件数组还有若干个控件，这些控件的名称相同，所使用的事件过程相同，但其中的每个元素可以有自己的属性。和普通数组一样，可以通过下标(Index)访问空间数组中的元素。控件数组可以在设计阶段建立，也可以在运行时建立。 6.3 菜单项的控制 Dim I As Integer Private Sub Form_Click() If I = 0 Then N(I).Caption = 全选 N(I).Visible = True I = I + 1 N(I).Caption = 查找 N(I).Visible = True End If End Sub Private Sub Form_DblClick() If I = 1 Then N(I).Caption = 查找 N(I).Visible = False I = I - 1 N(I).Caption = 全选 N(I).Visible = False End If End Sub