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

作者: 来源:网络文章时间:2005-12-13 14:51:28

VB 神童教程第四章第二节——综合示例七(1) 有如图一这样一个小程序，通过“菜单”下的色彩设置，可以将窗体的背景分别改为“红”、“绿”、“蓝”色，点击“菜单”下的“退出”，则自动退出程序。

20030523-67.gif>
图一

一、界面设置：

根据第一节学到的知识，我们制作一个如图二的菜单。

图二

    需要注意的是，“菜单”为一级，“色彩设置”、“退出”为二级、“红色”、“绿色”、“蓝色”为三级菜单，根据图二中每行前面点的多少可以判断出来。

    另外，不要忘记勾选“红”、“绿”、“蓝”三种色彩的菜单前的“复选”选项。

    二、输入程序代码：

    1、退出菜单：

    在 VB 中，End 是专门用来退出程序的命令，因此，我们在“退出菜单”中输入如下代码：

    Private Sub MenuQuit_Click()

    End

    End Sub

    这样，只要点击本菜单，自动退出程序。

    2、复选菜单的判断：

    在 VB 中，可以用如下语法对复选菜单进行判断：

    复选菜单名.Checked = True/False

    当值为 True ，复选菜单被选中；值为 False ，菜单未被选中。

    3、我们要让程序在初始状态下保持本色，在 Form 的装入事件中输入以下代码：

    Private Sub Form_Load()

    MenuRed.Checked = False

    MenuGreen.Checked = False

    MenuBlue.Checked = False

    End Sub

    这段程序，让三个复选菜单都处于未被选中状态（在程序运行时起作用，在设计过程中，三个复选菜单始终是处于选中状态）。

    4、当按下红色菜单（MenuRed）：

    Private Sub MenuRed_Click()

    MenuRed.Checked = True

    MenuGreen.Checked = False

1.VB 神童教程第四章第二节——综合示例七(1)
2.VB 神童教程第四章第二节——综合示例七(2)

共2页 9 7 [1] [2] 8 :>

VB 神童教程第四章第二节——综合示例七相关文章：

VB 神童教程第四章第二节——综合示例七相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com