vb 神童教程第四章第二节——综合示例七

《vb 神童教程第四章第二节——综合示例七》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、有如图一这样一个小程序，通过“菜单”下的色彩设置，可以将窗体的背景分别改为“红”、“绿”、“蓝”色，点击“菜单”下的“退出”，则自动退出程序。图一一、界面设置：根据第一节学到的知识，我们制作一个如图二的菜单。图二需要注意的是，“菜单”为一级，“色彩设置”、“退出”为二级、“红色”、“绿色”、“蓝色”为三级菜单，根据图二中每行前面点的多少可以判断出来。另外，不要忘记勾选“红”、“绿”、“蓝”三种色彩的菜单前的“复选”选项。二、输入程序代码：1、退出菜单：在VB中，End是专门用来退出程序的命令，因此，我们在“退出菜单”中输入如下代码：PrivateSubMenuQu

2、it_Click()EndEndSub这样，只要点击本菜单，自动退出程序。2、复选菜单的判断：在VB中，可以用如下语法对复选菜单进行判断：复选菜单名.Checked=True/False当值为True，复选菜单被选中；值为False，菜单未被选中。3、我们要让程序在初始状态下保持本色，在Form的装入事件中输入以下代码：PrivateSubForm_Load()MenuRed.Checked=FalseMenuGreen.Checked=FalseMenuBlue.Checked=FalseEndSub这段程序，让三个复选菜单都处于未被选中状态（在程序运行时起作用

3、，在设计过程中，三个复选菜单始终是处于选中状态）。4、当按下红色菜单（MenuRed）：PrivateSubMenuRed_Click()MenuRed.Checked=TrueMenuGreen.Checked=FalseMenuBlue.Checked=FalseForm1.BackColor=vbRedEndSub这段代码，让“红色菜单”处于选中状态，而其他颜色的菜单处于未被选中状态，同时将窗体的背景色变为红色（VbRed）。5、当按下绿色菜单（MenuGreen）：PrivateSubMenuGreen_Click()MenuRed.Checked=Fal

4、seMenuGreen.Checked=TrueMenuBlue.Checked=FalseForm1.BackColor=vbGreenEndSub绿色菜单处于选中状态，其他菜单非选中，同时窗体背景色变为绿色。6、按下蓝色菜单：PrivateSubMenuBlue_Click()MenuRed.Checked=FalseMenuGreen.Checked=FalseMenuBlue.Checked=TrueForm1.BackColor=vbBlueEndSub蓝色菜单处于选中状态，其他菜单非选中，同时窗体背景变为蓝色。7、最后按F5键，如何，程序正常运行了吧？

5、三、联想：本节我们讲到复选菜单是如何对选中进行判断的，那就是看Checked值是否为True。前面我们学过单选按钮（OptionBUtton）、复选按钮（CheckBox），它们也有是否被选中的判断，那么，它们有什么不同呢？注意，单选按钮是否选中的判断：单选按钮名.Value=True/False。由于单选按钮只能二选一或多选一，所以往往不需判断，只需响应Click事件就行了。复选按钮的判断：复选按钮名.Value=0/1/2。由于复选按钮可以一次多选，所以对它的判断最为复杂，常常需要用到诸如If……Then等条件语句进行判断。但它跟复选菜单不同的是，复选菜单常常

6、只能多中选一，比如上面例子中，选择了“红色菜单”就不能选择“蓝色菜单”，等等。记不清楚的朋友可以回头复习一下，此处不再赘述。