VB程序设计实验教程（第2版）-实验内容

实验目的

➢　掌握如何在VB窗体中添加自定义菜单。

【实验12-1】设计如图12-1所示界面，要求包含“格式”（其中包括“字体”、“字号”2个带有级联菜单的菜单项）、“计算”（其中包括“加”、“减”、“乘”、“除”4个菜单项）和“其他”（其中包括“清空”和“结束程序”2个菜单项）3个下拉式菜单及一个弹出式菜单（其中包括“清空”和“结束”2个菜单项），并编写程序代码实现菜单项的功能。

图12-1

方法分析：

① 向窗体上添加相应控件：

a）向窗体中添加3个标签Label1、Label2、Label3，在属性窗口中分别将它们的Caption属性设置成“操作数1”、“操作数2”、“计算结果3”。

b）向窗体中添加3个文本框Text1、Text2、Text3，在属性窗口中分别将它们的Text属性清空。

c）打开菜单编辑器，按题目要求如下建立3个菜单。

注意：

●单击向左或向右按钮可改变菜单项的级别，例如：菜单项“字体”和“字号”下面具有级联菜单，如图12-2所示。

●在菜单项的名称后面加（&字母）作为该菜单项的快捷键。

●将“弹出菜单”项的可见属性前的复选框清空，如图12-3所示。

图12-2

图12-3(www.xing528.com)

●编写弹出式菜单中菜单项的代码时，需要在代码窗口上部左侧的对象名称栏中找出菜单项名称，然后在右侧的事件栏中选择相应的事件，最后编写代码。

② 编写相应的程序代码。

程序代码如下：

“格式”菜单中“字体”部分代码：

“格式”菜单中“字号”部分代码：

“计算”菜单中各菜单项代码：

“其他”菜单中各菜单项代码：

“弹出菜单”中各项代码：