Visual Basic 程序设计案例教程第13讲.pptVIP

菜单 图9-7 下拉菜单中没有出现子菜单 图9-8 下拉菜单中出现子菜单 菜单 菜单项的控制 键盘选择 (1) 访问键 访问键允许用Alt键+指定字符来打开一个菜单。一旦菜单打开，通过访问键可选取菜单控件。例如，在图9-2中，按下Alt+F键可打开“文件”菜单，再按N键选取“新建”菜单项。在菜单控件的标题中，访问键表现为一个带下划线的字母。 菜单 在菜单编辑器中给菜单控件设置访问键的步骤： ① 选取要设置访问键菜单项。 ② 在其“标题”文本框中，直接输入“+访问键字符”， 这样，“”符号后的第一个字符将成为访问键。 注意：菜单中不能使用重复的访问键，如果多个菜单项使用同一个访问键，则该键将不起作用。 菜单 (2) 快捷键 快捷键按下时会立刻运行一个菜单项。可以为频繁使用的菜单项指定一个快捷键，它提供一种键盘单步访问方法，而不是Alt键+菜单标题访问键，再选择菜单项访问键的多步方法。快捷键包括功能键与控制键的组合，如Ctrl+F1键或Ctrl+A键。它们出现在菜单中相应菜单项的右边，图9-2中的Ctrl+N为“新建”菜单项的快捷键。 菜单 菜单项快捷键的设置步骤如下： ① 打开“菜单编辑器”。 ② 选取菜单项。 ③ 在“快捷键”组合框中选择功能键或者键的组合。 要删除快捷键，应选取列表框顶部的None。 注意：快捷键将自动出现在菜单上，不需要在菜单编辑器的“标题”框中键入Ctrl+Key。通常对于菜单中最低级的菜单项控件，一般需要设定访问键和快捷键方式，使之能够进行简便操作。 菜单 【例9.4】 对图9-1所示的“文件”菜单进行快捷键和访问键的设置。 (1)在菜单编辑器中，按表9-1所示修改每个菜单控件标题，输入“”+相应字母作为访问键。 (2)按表9-1所示，在快捷键属性窗口选择菜单控件对应的快捷键。 表9-1 添加菜单控件内容 控制标题 快捷键 控制标题 快捷键 打开(O) Ctrl+O 另存为(A) None 保存(S) Ctrl+S 退出(X) None 菜单 注意：设置快捷键的作用是，无论父菜单是否打开，只要按下快捷键，则会启动该控件的鼠标单击事件过程。设置快捷键时，注意与其他应用软件快捷键的设置具有通用性，例如“剪切”的快捷键是Ctrl+x。 修改对应菜单控件的访问键和快捷键属性后，单击“确定”按钮即如图9-9所示的“文件”菜单。 菜单 图9-9 例9.4运行结果 菜单 菜单项的增减 创建菜单控件数组是通过对名称、标题和索引属性的设置来完成的，其具体过程如下： 打开菜单编辑器，输入一个菜单项。 将该菜单项“索引”项属性设置为0，然后加入名称相同、索引项相邻的菜单项。 【例9.5】创建一个“窗口”菜单，MnuWindows菜单控件下包括了通常应用程序的菜单内容(层叠、平铺及当前打开的文件名)，如表9-2所示。当没有文件打开时MnuWindowsFile菜单控件数组并不出现，如图9-10(a)所示。随着打开文件的增多，菜单的选项可以增加。 菜单 表9-2 例9.5菜单控件内容 控件名称 控件标题 Visble 属性 控件名称 控件 标题 Visble 属性 MnuWindows 窗口(W) True MnuWindowsDivl - False MnuWindowsTile 平铺(T) True MnuWindowsFile 文件名 False MnuWindowsCascade 层叠(C) True 菜单 在声明代码窗口中添加如下代码： Option Explicit Dim FileNo As Integer ′记录打开文件数目 在窗体的代码窗口添加如下代码： Private Sub Form_Load() FileNo=0 End Sub 菜单 在“文件”菜单的“打开”菜单项下，对Click事件过程添加如下代码： Private Sub MnuFileopen_Click() Dim result As Integer MnuWindowsDivl.Visible = True FileNo = FileNo + 1 文件数目标志记录 Load MnuWindowsFile(FileNo) ‘在程序代码中创建 新的菜单选项 MnuWindowsFile(FileNo).Visible = True