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

在上一篇文章中，小编为您详细介绍了关于《神童教程第三章第二节——综合示例六？VB》相关知识。 本篇中小编将再为您讲解标题神童教程第四章第二节——综合示例七？VB。

有如图①这样①个小程序，通过“菜单”下的色彩设置，可以将窗体的背景分别改为“红”、“绿”、“蓝”色，点击“菜单”下的“退出”，则自动退出程序。

图①

①、界面设置：

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

图②

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

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

②、输入程序代码：

① · 退出菜单：

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

Private Sub MenuQuit_Click()

End

End Sub

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

② · 复选菜单的判断：

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

复选菜单名.Checked = True/False

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

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

Private Sub Form_Load()

MenuRed.Checked = False

MenuGreen.Checked = False

MenuBlue.Checked = False

End Sub

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

④ · 当按下红色菜单（MenuRed）：

Private Sub MenuRed_Click()

MenuRed.Checked = True

MenuGreen.Checked = False

MenuBlue.Checked = False

Form①.BackColor = vbRed

End Sub

这段代码，让“红色菜单”处于选中状态，而其他颜色的菜单处于未被选中状态，同时将窗体的背景色变为红色（VbRed）。

⑤ · 当按下绿色菜单（MenuGreen）：

Private Sub MenuGreen_Click()

MenuRed.Checked = False

MenuGreen.Checked = True

MenuBlue.Checked = False

Form①.BackColor = vbGreen

End Sub

绿色菜单处于选中状态，其他菜单非选中，同时窗体背景色变为绿色。

⑥ · 按下蓝色菜单：

Private Sub MenuBlue_Click()

MenuRed.Checked = False

MenuGreen.Checked = False

MenuBlue.Checked = True

Form①.BackColor = vbBlue

End Sub

蓝色菜单处于选中状态，其他菜单非选中，同时窗体背景变为蓝色。

⑦ · 最后按 F⑤ 键，如何，程序正常运行了吧？

③、联想：

本节我们讲到复选菜单是如何对选中进行判断的，那就是看 Checked 值是否为 True 。

前面我们学过单选按钮（OptionBUtton）、复选按钮（CheckBox），它们也有是否被选中的判断，那么，它们有什么不同呢？

注意，单选按钮是否选中的判断：

单选按钮名.Value = True/False 。由于单选按钮只能②选①或多选①，所以往往不需判断，只需响应 Click 事件就行了。

复选按钮的判断：

编后语：关于《神童教程第四章第二节——综合示例七？VB》关于知识就介绍到这里，希望本站内容能让您有所收获，如有疑问可跟帖留言，值班小编第一时间回复。 下一篇内容是有关《Toolbar试用手记？OCLC》，感兴趣的同学可以点击进去看看。