第9节 菜单及工具栏设计.ppt

第9章 菜单与工具栏设计 9.1 菜单设计 VB提供了菜单编辑器，可以方便地创建多级菜单。 菜单控件 菜单（Menu）是Windows窗口的标准控件，它显示应用程序的自定义菜单。菜单系统一般是由菜单栏、菜单标题、下拉菜单以及菜单项组成。 为了方便对菜单的操作，可以在菜单里面定义快捷键和热键。 Caption属性 菜单标题，可使用“”字符定义菜单标题和菜单命令的快捷键，该属性为“-”（连字符）时则显示分隔条。 Checked属性 菜单命令复选标志，为True时显示复选标志，为False时不显示。默认值为False。 Enabled属性 菜单命令是否可用，默认值为True,当此值为False时，菜单中对应项以灰色显示，不能被使用。 Index属性 菜单控件数组的标记，Index属性的值就是菜单控件数组元素的下标值。 Name属性 菜单控件的名称。 Shortcut属性 菜单命令的热键，运行时只读。 Visible属性 菜单是否可见属性，为False时菜单被隐藏，为True时菜单可见。默认值为True。 9.1.2 下拉式菜单 VB中菜单的设计在菜单编辑器中完成。 9.1.2 下拉式菜单 例：在记事本程序中用菜单实现按键功能。 9.1.3 动态菜单 菜单在程序运行过程中并非就一成不变。用户可以根据实际运行情况动态地调整和控制菜单的使用，给菜单增加一些灵活性。 如：当某菜单项执行的操作不适合当前环境时，可以暂时使其失效或干脆将其隐藏起来，就像根本没有这个菜单项一样。当需要时也可以向菜单中添加或删除某菜单项。 注意，隐藏或再现菜单项并不能真正地改变菜单的数量，要使菜单项真正地、动态地增减（从内存中），就应首先建立一个菜单控件数组，并通过Load和UnLoad语句来实现。 9.1.3 动态菜单 例:修改上例,如果剪贴板为空则不显示”粘贴”菜单项。 分析：应修改“复制”和“剪切”两个单击事件的代码。 代码修改如下： Call cmdCut If Len(Trim(SelTxt)) 1 Then 剪切板中有内容时才显示粘贴菜单命令项 E_Paste.Visible = True Else E_Paste.Visible = False End If 9.1.4 弹出式菜单 弹出式菜单即快捷菜单，当在应用程序的窗体或者控件上右击鼠标时就会弹出快捷菜单。 弹出式菜单是显示在窗体或指定控件上的浮动菜单，菜单的显示位置与鼠标所在位置有关。 通过对象的PopupMenu方法，可以在窗体上实现弹出式菜单。语法格式如下： Object.PopupMenu 菜单控件名 menuname, flags, x, y, boldcommand 一般Object是指当前窗体， Object可以省略。 9.1.4 弹出式菜单 参数： X，Y参数代表弹出式菜单的显示位置坐标，省略时弹出式菜单显示在鼠标指针所在位置。 Flags参数代表弹出式菜单的位置及性能。见教材表10-4。 Boldcommand指定的菜单项以粗体显示。 PopupMenu方法一般是放在MouseDown事件过程中，根据参数Button的值决定是左键还是右键弹出菜单（1：左键，2：右键）。 9.1.4 弹出式菜单 例：在前例中添加一个文本框中的弹出式菜单，右击文本框时弹出“编辑”菜单。 添加如下代码： Private Sub RichTxt_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then PopupMenu M_Edit 弹出式菜单 End Sub 9.2 工具栏设计 前例中按钮可以通过工具栏实现命令的快速访问。 工具栏的制作有两种方法： 使用命令按钮和图形框来手工制作，此方法比较繁琐，较少使用(通过改进我们前面所用的方法)。 通过使用ToolBar控件来实现，要使用ToolBar控件、以及后面要讲的StatusBar控件，都必须先为工程加载“Microsoft Windows Common Controls 6.0”控件。 9.2 工具栏设计 创建工具栏的一般步骤如下： 在窗体中添加一个ToolBar控件，在向导的指引下,根据需要定制工具栏。 在工具栏的ButtonClick事件中对各按钮进行代码编写。 9.3 状态栏设计 应用程序主窗体的底部常有一个状态栏，可用来显示相关信息，在VB提供了相应的控件StatusBar进行状态栏设计。 建立状态栏 从控件工具箱中向窗体添加一个StatusBa