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

VB?神童教程第二章第五节——单选与复选控件 作者：未知????阅读人次：58598????文章来源： HYPERLINK /ShowCopyFrom.asp?ChannelID=1SourceName=%CE%B4%D6%AA 未知????发布时间：2004-12-15???? HYPERLINK /article/comment/?/=409.html \t _blank 网友评论(116)条 ? 在 Visual Basic?中，单选与复选按钮控件主要作为选项提供给用户选择。不同的是，在一组选择按钮中，单选控件只能选择一个，其他单选控件自动变为未被选中状态；而在一组复选按钮中，可以选定任意数量的按钮。 一、单选控件（OptionButton）与复选控件（CheckBox）的主要属性：单选控件默认名称为 OptionX（X为阿拉伯数字 1、2、3，等等），起名规则为 OptX（X为用户自定义名字，如 OptRed、OptArial，等等）；复选控件默认名称为 CheckX（X为 1、2、3，等等），起名规则为 ChkX（X为用户自定义名字，如 ChkName、ChkRed ，等等）。 在 VB 操作界面中，单选控件与复选控件的图标如图一所示： 图一 以前讲到的大多数属性都适用于单选与复选控件，包括：Caption、Enabled、Font（FontBold、FontItalic、FontName，等等）、Name、Height ，等等，此处不再赘述。 Value 属性是单选与复选控件最主要的属性，但单选与复选控件的 Value 值有些微的差别。 单选控件：选中时，Value 值为 True ；未被选中，Value 值为 False 。 复选控件：选中时，Value 值为 1 ；未被选中，Value 值为 0 ；禁止对该按钮进行选择， Value 值为 2 。 请大家注意，单选控件与复选控件的 Value 值是不同的，而这是初学者最容易混淆的。 二、单选按钮与复选按钮的事件：这两种控件最主要的事件是 Click 事件，当选中时，Value 值变为 True 或者 1 ，控件也自动变为选中状态。 三、单选按钮程序举例：有如图二这样一个程序： 图二 文本框（TxtContent）显示预设的字样；单选按钮一（OptArial），单击此按钮可以将文本框里显示的字样改变成 Arial 字体；单选按钮二（OptModern），单击此按钮能将文本框里显示的字样改变成 Modern 字体。 1、单选按钮一：Private Sub OptArial_Click()TxtContent.FontName = ArialEnd Sub 2、单选按钮二：Private Sub OptModern_Click()TxtContent.FontName = ModernEnd Sub 四、复选按钮的判断过程：复选按钮的使用跟单选按钮相似，但由于一次可以选择多个复选按钮，所以复选按钮的选择比单选按钮多了一个判断过程。 这个判断过程在 VB 中可以用 If···Then···ElseIf···End If 语句完成。 If···Then···ElseIf···End If 是 VB 中的块结构条件语句，主要用来针对不同的情况，让应用程序做出不同的反应。语句功能如下： If 假设情况一 Then　　假设情况一成立时执行的语句块一［ElseIF 假设情况二 Then　　假设情况二成立时执行的语句块二］［ElseIf 假设情况三 Then　　假设情况三成立时执行的语句块三］······［Else　　所有条件都不成立时要执行的语句块］End If 上面的语句块含义为：如果“情况一”成立，则执行“语句块一”；否则如果“情况二”成立，则执行“语句块二”······；如果所有情况都不成立，则执行 Else 之后的语句块并最后跳出判断过程。 例：假设输入学生成绩（Score），如果分数小于 60 ，标签（LblShow）显示“成绩不及格”；如果分数大于 90 ，标签显示“成绩优秀”；如果分数介于两者之间，标签显示“成绩优良”。 If Score 60 Then　　LblShow.Caption = 成绩不及格ElseIf Score 90 Then　　LblShow.Caption = 成绩优秀Else　　LblShow.Caption = 成绩优良End If 有几点必须加以注意：（1）、在上面的语句块中，ElseIf 之间没有空格，如果有空格即 Else If ，块结构则不成立。Else If 这种形式只能在单行结构条件语句中成立，而不能在块结构条件中成立。 （2）、执行语句块的程序代码