VB考试教程：菜单程序设计四菜单项的控制

四。菜单项的控制

使用Windows或VB菜单时，你见过“不一样”的菜单项。如果其中一些是灰色的，点击这些菜单项，没有任何动作；有的菜单项前面有“√”，或者某个菜单项的某个字母有下划线，等等。下面是如何将这些属性添加到菜单中。

1.菜单项的有效属性(有效性控制)

为了使程序正常运行，有时需要禁用一些菜单项，以防止误操作。比如上例，只有在文本框中输入一个数字后才能进行操作，否则操作没有意义。所以，如果还没有输入数据，那么加减乘除的菜单项应该是失效的，只有输入了数据才会生效。为此，可以添加以下两个事件过程:

私有子文本1_Change()

如果文本1。Text = " "然后
添加。Enabled = False
Min。Enabled = False
Mul。Enabled = False
Div。enabled = False
Else
Add。Enabled = True
Min。Enabled = True
Mul。Enabled = True
Div。Enabled = True
End If

末端接头

-

私有子文本2_Change()

如果短信2。Text = " "然后
添加。Enabled = False
Min。Enabled = False
Mul。Enabled = False
Div。enabled = False
Else
Add。Enabled = True
Min。Enabled = True
Mul。Enabled = True
Div。Enabled = True
End If

末端接头

除了增加上述两个事件过程外，还要取消Add、Min、Mul、Div等四个菜单项的“有效”属性设置。

方法:打开“菜单编辑器”窗口，去掉这四个菜单项对应的数据区“有效”属性复选框中的“√”。

2.检查菜单项的属性(菜单项的标记)

所谓菜单项标记，就是在菜单项前加一个“√”。

它有两个功能:

一是明确表示当前命令状态是“开”还是“关”；

其次，它可以指示当前选择了哪个菜单项。
添加方法:

在菜单编辑器窗口中，由“检查”属性设置，如果前面有“√”，则为“真”，否则为“假”。

也可以在应用程序代码中设置。
一般来说，菜单项标签通常是动态添加或取消的，所以往往会根据执行情况在程序代码中设置。

设计一个包含一个主菜单项和几个子菜单项的菜单。点击子菜单项时，分别显示十进制、八进制和十六进制数，对应的菜单项标有“√”。

界面:

一个文本框和六个标签。

菜单属性:

选中
以显示数字
八进制
十六进制
清除
以退出Numsys
OCTV
Dec
Hexv。

设计菜单:

编写代码:

Option Explicit
Dim答案为单个

-

私有Sub octv_Click()

答案= Val(Text1。Text)
Octv。Checked = True
Dec . Checked = False
Hexv。Checked = False
清除。Checked = False
退出。checked = false
label5。caption = oct $(答案)'十进制到八进制

末端接头