全国计算机二级考试之VB教程第11、12章(网上摘录)

Private Sub AP_Click() Form2.Show End Sub Private Sub Quit_Click() End End Sub
以下是命令按钮的单击事件代码：
Private Sub Command1_Click() End
End Sub
窗体2 的程序代码如下：
Private Sub Text1_Change() If IsNumeric(Text1.Text) = True Then c = Val(Text1.Text) s = (c * 9# / 5) + 32 Text2.Text = Str(s) ElseIf Text1.Text = "" Then Text2.Text = "" Else x = MsgBox("非法数据！", vbOKOnly + vbExclamation, "提示信息") If x = vbOK Then Text1.Text = "" Text2.Text = "" End If End If End Sub
图11.4 启动窗体
图11.5 工作窗体
在窗体Form1上有一个菜单条，它的菜单条由两个菜单 组成，分别是“选项”和“帮助”。“选项”菜单中有两 条命令：应用程序示例和退出；“帮助”菜单中只有一条 命令：帮助主题。 选项中的命令分别启动一个示例程序和结束整个程序的 工作，帮助中的帮助主题是一个空命令。 整个程序的设计过程如下。 1．创建窗体Form1 （1）设置窗体Form1和其上各控件的属性，如表11.1所 表11.1 各控件属性 示。
• • • • • • •
（2）创建菜单，步骤如下： 打开“菜单编辑器”对话框； 在对话框的“标题”项的文本框中输入菜单标题“选项”， 再在“名称”项的文本框中输入“Menu‖，然后单击“下 一个”按钮； 单击“右箭头”； 在对话框的“标题”项的文本框中输入菜单项“应用程序 示例”，再在“名称”项的文本框中输入“AP‖，然后单 击“下一个”按钮； 在对话框的“标题”项的文本框中输入菜单标题“退出”， 再在“名称”项的文本框中输入“Quit‖，至此，“选项” 菜单就建好了； 单击“左箭头”，创建第二个菜单，方法相似； 单击“确定”按钮，菜单创建完毕（如图11.6所示）。 （3）Form1窗体设计好后，进行保存。
当菜单要包括一个所有打开的MDI（多文本界面）子窗 口的列表时，选中此选项。 2．编辑区 编辑区一共由7个按钮，用来对输入的菜单项进行简单 的编辑。菜单在数据区输入，在菜单项显示区显示。 （1）“左箭头”和“右箭头”按钮 用于改变菜单命令的级别，以创建子菜单。每单击一次 “右箭头”按钮，则把选定的菜单项向右移一个等级；单 击“左箭头”按钮，则把选定的菜单项向右移一个等级。 （2）“上箭头”和“下箭头”按钮 用于移动菜单项在菜单中的位置。每单击一次“上箭头” 按钮，就把选定的菜单项在同级菜单内向上移动一个位置； 每单击一次“下箭头”按钮，就把选定的菜单项在在同级 菜单内向下移动一个位置。 （3）“下一个”按钮 开始一个新的菜单项，与回车键的作用相同。
第11章 菜单程序设计
本章内容： 11.1 Visual Basic中的菜单 11.2 菜单编辑器 11.3 用菜单编辑器建立菜单 11.4 菜单项的控制 11.5 菜单项的增减 11.6 弹出式菜单
11.1 Visual Basic中的菜单
在Windows操作系统中，绝大部分的应用程序都是要使 用菜单进行各种操作的。Visual Basic也提供了创建程序 菜单的功能。 菜单的基本作用有两个： • 提供人机对话的界面，以便让使用者选择应用系统的各种 功能； • 管理应用系统，控制各种功能模块的运行。 在实际应用中，菜单可分为两种基本类型，即弹出式菜 单和下拉式菜单。 在Visual Basic中，下拉式菜单在一个窗体上设计，窗 体被分为三个部分（如图11.1所示）： • 菜单栏：它是菜单的常驻行，位于窗体标题的下面，由 若干个菜单标题组成；
在程序运行时，可用下面的语句来实现菜单项的有效性。
菜单名.Enabled = True | False
例如，在上一节所例举的程序中，加入下面一段程序， 就可以在窗体Form1载入的时候让菜单项“Quit‖失效，变 成灰色，如图11.8所示。
Private Sub Form_Load() Quit.Enabled = False End Sub
图11.2 弹出式菜单
11.2 菜单编辑器
• • • •
在Visual Basic中，窗体上的菜单是通过菜单编辑器创 建的。可以通过以下4种方式进入菜单编辑器： 执行“工具”菜单中的“菜单编辑器”命令； 使用热键Ctrl + E； 单击工具栏中的“菜单编辑器”按钮； 在要建立菜单的窗体上单击鼠标右键，弹出一个菜单， 然后单击“菜单编辑器”命令。 按照上述方法打开的菜单编辑器如图11.3所示。
菜单名.Checked= True | False
例如，在上一节所例举的程序中的AP_Click事件过程中 加入下面的一段程序，就可以在单击“应用程序”菜单项 时，给此菜单项前面加上“√”标记，如图11.9所示。
AP.Checked = True
图11.9 菜单项标记
11.4.3 键盘选择
通常，用户都是用鼠标对菜单进行操作，即单击某个菜 单项，就立即执行相应的操作。在Visual Baisc中，还可 以用键盘对菜单进行操作。 用键盘选取菜单通常有两种方法，即热键和访问键 （Access Key）。
菜单中的某些菜单项应能根据执行条件的不同进行动态 变化，即条件满足时可以执行，否则不可执行。 菜单项的有效性是通过菜单项的“有效”属性来控制的。 只要把一个菜单项的“有效”属性设置为False，就可以 使其失效，运行后该菜单项变为灰色。为了使一个失效的 菜单项变为有效，只要把它的“有效”属性重新设置为 True即可。
③ 只有菜单名没有菜单项的菜单称为“顶层菜单”（top – level menu），在输入这样的菜单项时，通常在后面加 上一个叹号“！”。
11.3 用菜单编辑器建立菜单
下面通过一个具体的例子来说明菜单程序设计的基本方 法、步骤以及如何编写菜单程序 程序举例：本程序的用户界面由两个窗体组成。图11.4 所示的是启动窗体，图11.5所示的是工作窗体。这两个窗 体的Name属性分别为：Form1和Form2，其中Form1是 整个程序的主控窗体。
（4）“插入”按钮 可在菜单列表框中当前选定行的上方插入一个新的菜单 项。 （5）“删除”按钮 可从菜单列表框中删除当前选定的行。 3．菜单显示区 位于菜单设计窗口的下部，输入的菜单项在这里显示出 来，并通过内缩符号“....‖表明菜单项的层次。条形光标 所在的菜单项是“当前菜单项”。 说明： ① 利用菜单编辑器建立的下拉式菜单最多可以达六层； ② 内缩符号由4个点组成，它表明菜单项所在的层次，一 个内缩符号表示一层，两个内缩符号表示两层，以此类推
出现在菜单中。 （3）“索引”文本框 用以指定一个数字值来确定菜单项对象在控件数组中的 位置。该位置与控件的屏幕位置无关。 （4）“快捷键”列表框 用来设置菜单项的快捷键（热键）。单击右端的箭头， 将下拉显示可供使用的热键。在此可选择输入与菜单项等 价的热键。 （5）“帮助上下文ID‖文本框 用于指定一个惟一的数值作为帮助文本的标识符。在 “HelpFile‖（帮助文件）属性指定的帮助文件中可用该数 值查找适当的帮助主题。 （6）“协调位置”列表框 只是一个与OLE功能有关的属性，用来确定菜单或菜单 项是否出现或在什么位置出现。单击右端箭头，将下拉显 示一个列表，该列表有4个选项，作用如下：
图11.3 菜单编辑器对话框
菜单编辑器对话框分为三个部分：数据区、编辑区和菜 单项显示区。 1．数据区 用来输入或修改菜单项、设置属性。分为若干栏，各栏 的功能如下： （1）“标题”文本框 用以输入菜单标题或菜单命令的名称（相当于控件的 Caption属性），这些名称将出现在菜单条或菜单中。如 果在菜单的两个菜单命令项之间加一条分隔线，可在标题 文本框中键入一个连字符“-‖。 （2）“名称”文本框 用以输入一个命令项对象的名称（相当于控件的Name 属性），也就是为菜单命令设置它的“名称”属性，以便 在程序代码中，可以使用它来引用该命令。因此，它并不 会
用热键可以直接执行菜单命令，不必一级一级地下拉菜 单，速度快，适合熟悉键盘的用户使用。 设置热键可以通过“菜单编辑器”中的“快捷键”列表 框进行设置。例如，对上一节例举的程序中的各个菜单项 都加上热键，如图11.10所示。 所谓访问键，就是菜单项中加了下划线的字母。具体的 方法就是：在菜单项标题名称中某个字母前插入“&‖符号。 在运行程序时，菜单标题名称中的该字母会带有下划线， 而“&‖符号时不可见的，同时按下【Alt】键和该字母键就 可以打开该命令菜单。如果要在菜单中显示“&‖符号，则 应该在标题中连续输入两个“&‖符号。例如，对上一节例 举的程序中的各个菜单项都加上访问键，如图11.10所示。 说明: 任何一个控件，只要它有Caption属性，都可以为其指 定访问键，即访问键是针对控件的Caption属性设置的。
图11.6 菜单编辑器对话框
2．创建窗体Form2 （1）在工具栏上单击“添加窗体”按钮，新建一个窗体 Form2，该窗体上各控件布局如图11.5所示； （2）设置窗体Form2和其上各控件的属性，如表11.2所 示； （3）Form2窗体设计好设计好之后，接着为相关的事件编写程序代码。 Form1窗体中菜单的单击事件的代码：
Private Sub Command1_Click() Text2.Text = "" Text1.Text = "" Text1.SetFocus End Sub Private Sub Command2_Click() Unload Me Form1.Show End Sub