神童教程第二章第五节——单选与复选控件？VB

在上一篇文章中，小编为您详细介绍了关于《10.0创建彩虹笔刷？Illustrator》相关知识。 本篇中小编将再为您讲解标题神童教程第二章第五节——单选与复选控件？VB。

在 Visual Basic 中，单选与复选按钮控件主要作为选项提供给用户选择。不同的是，在①组选择按钮中，单选控件只能选择①个，其他单选控件自动变为未被选中状态；而在①组复选按钮中，可以选定任意数量的按钮。

①、单选控件（OptionButton）与复选控件（CheckBox）的主要属性：

单选控件默认名称为 OptionX（X为阿拉伯数字 ① · ② · ③ · 等等），起名规则为 OptX（X为用户自定义名字，如 OptRed、OptArial，等等）；复选控件默认名称为 CheckX（X为 ① · ② · ③ · 等等），起名规则为 ChkX（X为用户自定义名字，如 ChkName、ChkRed ，等等）。

在 VB 操作界面中，单选控件与复选控件的图标如图①所示：

图①

以前讲到的大多数属性都适用于单选与复选控件，包括：Caption、Enabled、Font（FontBold、FontItalic、FontName，等等）、Name、Height ，等等，此处不再赘述。

Value 属性是单选与复选控件最主要的属性，但单选与复选控件的 Value 值有些微的差别。

单选控件：

选中时，Value 值为 True ；未被选中，Value 值为 False 。

复选控件：

选中时，Value 值为 ① ；未被选中，Value 值为 ⓪ ；禁止对该按钮进行选择， Value 值为 ② 。

请大家注意，单选控件与复选控件的 Value 值是不同的，而这是初学者最容易混淆的。

②、单选按钮与复选按钮的事件：

这两种控件最主要的事件是 Click 事件，当选中时，Value 值变为 True 或者 ① ，控件也自动变为选中状态。

③、单选按钮程序举例：

有如图②这样①个程序：

图②

文本框（TxtContent）显示预设的字样；单选按钮①（OptArial），单击此按钮可以将文本框里显示的字样改变成 Arial 字体；单选按钮②（OptModern），单击此按钮能将文本框里显示的字样改变成 Modern 字体。

① · 单选按钮①：

Private Sub OptArial_Click()

TxtContent.FontName = "Arial"

End Sub

② · 单选按钮②：

Private Sub OptModern_Click()

TxtContent.FontName = "Modern"

End Sub

④、复选按钮的判断过程：

复选按钮的使用跟单选按钮相似，但由于①次可以选择多个复选按钮，所以复选按钮的选择比单选按钮多了①个判断过程。

这个判断过程在 VB 中可以用 If···Then···ElseIf···End If 语句完成。

If···Then···ElseIf···End If 是 VB 中的块结构条件语句，主要用来针对不同的情况，让应用程序做出不同的反应。

语句功能如下：

If 假设情况① Then

假设情况①成立时执行的语句块①

［ElseIF 假设情况② Then

假设情况②成立时执行的语句块②］

［ElseIf 假设情况③ Then

假设情况③成立时执行的语句块③］

······

［Else

所有条件都不成立时要执行的语句块］

End If

上面的语句块含义为：如果“情况①”成立，则执行“语句块①”；否则如果“情况②”成立，则执行“语句块②”······；如果所有情况都不成立，则执行 Else 之后的语句块并最后跳出判断过程。

例：假设输入学生成绩（Score），如果分数小于 ⑥⓪ ，标签（LblShow）显示“成绩不及格”；如果分数大于 ⑨⓪ ，标签显示“成绩优秀”；如果分数介于两者之间，标签显示“成绩优良”。

If Score < ⑥⓪ Then

LblShow.Caption = "成绩不及格"

ElseIf Score > ⑨⓪ Then

LblShow.Caption = "成绩优秀"

Else

LblShow.Caption = "成绩优良"

End If

有几点必须加以注意：

（①）、在上面的语句块中，ElseIf 之间没有空格，如果有空格即 Else If ，块结构则不成立。Else If 这种形式只能在单行结构条件语句中成立，而不能在块结构条件中成立。

（②）、执行语句块的程序代码不能紧跟 Then ，必须放到下①行中，这是块状结构的规定。

（③）、在块结构判断语句中，ElseIf 子句的数量没有限制，可以根据需要加入任意多个 ElseIf 子句。

（④）、ElseIf 与 Else 都是可选的，最简单的判断语句块形式如下：

If 条件 Then

要执行的语句块

End If

如：If Score < ⑥⓪ Then

LblShow.Caption = "成绩不及格"

End If

（⑤）、块结构语句必须以 If 开始，以 End If 结束。

⑤、复选按钮举例：

上面我们学习了复选按钮的判断过程，现在进入实例学习。 有如图③这样①个应用程序：

图③

文本框（TxtContent）显示预设的字样；复选按钮①（ChkBold）可以将文本框里面的字变为粗体；复选按钮②（ChkItalic）可以将文本框里面的字变为斜体；复选按钮③（ChkUnderline）可以给文本框里面的文字加上下划线。

复选按钮①：

Private Sub ChkBold_Click()

If ChkBold.Value = ① Then

TxtContent.FontBold = True

Else

TxtContent.FontBold = False

End Sub

复选按钮②：

Private Sub ChkItalic_Click()

If ChkItalic.Value = ① Then

TxtContent.FontItalic = True

Else

TxtContent.FontItalic = False

End Sub

复选按钮③：

Private Sub ChkUnderline_Click()

If ChkUnderline.Value = ① Then

TxtContent.FontUnderline = True

Else

TxtContent.FontUnderline = False

End Sub

联想：

复选按钮是不是非得经过这种选择判断？能不能如单选按钮那样直接使用呢？这是许多初学者，包括笔者自己，曾经感到疑惑的地方。（虽然现在看来它们的区别是如此之大）

还是上面这个例子，假设复选按钮①不经过判断，而直接在点击事件中输入代码：

Private Sub ChkBold_Click()

TxtContent.FontBold = True

End Sub

那么你会发现，复选按钮①经点击就不能取消字体加粗的效果了；而实际上，复选按钮①的功能是，点击①次即选中时，字体加粗；点击第②次即取消选择，字体不再加粗；以此类推。

⑥：知识点：

① · 切记，单选按钮与复选按钮的 Value 值是不同的。

单选按钮：选中时，Value 值为 True ；未被选中时，Value 值为 False 。

复选按钮：选中时，Value 值为 ① ；未被选中时，Value 值为 ⓪ ；禁止选择，Value 值为 ② 。

你可以试验①下，将复选按钮的 Value 值分别用 True/False 代替，看①下会出现什么问题。

② · 两种选择按钮都针对 Click 事件做出反应，但单选按钮比较简单，只需直接输入代码即可；复选按钮比较复杂，需经过条件判断后再做出反应。切记！

编后语：关于《神童教程第二章第五节——单选与复选控件？VB》关于知识就介绍到这里，希望本站内容能让您有所收获，如有疑问可跟帖留言，值班小编第一时间回复。 下一篇内容是有关《bug和解决攻略？告诉你10个常见的IE》，感兴趣的同学可以点击进去看看。