单选框与复选框.ppt

单 选 框 与 复 选 框 一、单选按钮控件 OptionButton控件俗称单选框，也称作选择 按钮 单选钮用途: 一组单选钮控件可以提供一组彼此相互排斥的 选项，任何时刻用户只能从中选择一个选项 ，实现一种“单项选择”的功能，被选中项目 左侧圆圈中会出现一黑点 由于这些选项，只能选择其中之一，所 以称为单选框 单选钮重要属性 Caption：文本标题设置单选钮的文本注释内容 Alignment属性： 0：Left Justify(缺省设置)控件钮在左边，标题显示 在右边 1：Right Justify 控件钮在右边，标题显示在左边 Value 属性_返回单选框是否被选中 True: 单选钮被选定 False: 单选钮未被选定 Style 属性_控件是否具有图形效果. 0-Standard： 标准方式 1-Graphical：图形方式 说 明：在Style属性设置为1时，可使用 Picture 属性 方法 SetFocus方法是单选钮控件最常用的方法，可以在代码中通 过该方法将Value属性设置为True 与命令按钮相同，使用该方法之前，必须要保证单选钮处 于可见和可用状态（即Visible与Enabled属性值均为True） 。

事件 Click事件是单选钮控件最基本的事件，一般情况用户无 需为单选钮编写Click事件过程，因为当用户单击单选钮时， 它会自动改变状态 单选按钮程序举例 文本框（Text1）显示预设的字样；单选按钮一（Option1）， 单击此按钮可以将文本框里显示的字样改变成 黑体； 单选按钮二（Option2），单击此按钮能将文本框里显示的字 样改变成 楷体 Private Sub Option1_Click() Text1.FontName = 黑体 End Sub Private Sub Option2_Click() Text1.FontName = 楷体_GB2312 End Sub 二、复选框 CheckBox控件俗称复选框,也称作检查框、选 择框 复选框的用途:一组复选框控件可以提供多个选项 ，它们彼此独立工作，所以用户可以同时选择任意 多个选项，实现一种“不定项选择”的功能选择某 一选项后，该控件将显示 ,而清除此选项后消失 单选按钮与复选按扭的区别 相同点： 在 Visual Basic 中，单选与复选按钮控件主 要作为选项提供给用户选择 不同点： 在一组选择按钮中，单选控件只能选择一个， 其他单选控件自动变为未被选中状态； 在一组复选按钮中，可以选定任意数量的按钮 . 重要属性: Caption、Alignment、Style与单选钮相同。

注意: 单选控件与复选控件的 Value 值是不同的 复选框 0-Unchecked：未被选定 1-Checked：选定 2-Grayed：灰色，默认选中 单选钮 True: 单选钮被选定 False: 单选钮未被选定， 缺省设置 事件 Click事件是复选框控件最基本的事件用户 一般无需为复选框编写Click事件过程，但其对 Value属性值的改变遵循以下规则： 单击未选中的复选框时，Value属性值变为1； 单击已选中的复选框时，Value属性值变为0； 单击变灰的复选框时，Value属性值变为 2 复选按钮举例：（要求：文本框（Text1）显示预设的字样） Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub 复选按钮三： Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub 联想： 复选按钮是不是非得经过这种选择判断？ 能不能如单选按钮那样直接使用呢？ 还是上面这个例子，假设复选按钮不经过判断，而直接在 点击事件中输入代码： Private Sub Check1_Click() Text1.FontBold = True End Sub 那么，复选按钮一经点击就不能取消字体加粗的效果了。

复选按钮的功能是：点击一次即选中时，字体加粗；点击 第二次即取消选择，字体不再加粗； 小结： 单选按钮与复选按钮的 Value 值是不同的 单选按钮： 选中时，Value 值为 True ； 未被选中时，Value 值为 False 复选按钮： 选中时，Value 值为 1 ； 未被选中时，Value 值为 0 ; 灰色，Value 值为 2 试验一下，将复选按钮的 Value 值分别用True/False 代替，看一下 会出现什么问题 两种选择按钮都针对 Click 事件做出反应，但单选按钮比较简单， 只需直接输入代码即可；复选按钮比较复杂，需经过条件判断后再 做出反应 OptionButton具有DblClick事件，而CheckBox却没有 例 设计一个简单小型的编辑器，用户可以在文本框中输入一 段文字，单击复选框和单选框，可以改变文本的字体，字 型和颜色 Private Sub Form_Load() Text1.Visible = False Option1.Visible = False Option2.Visible = False Check1.Visible = False Check2.Visible = False End Sub Private Sub Command1_Click() Image1.Visible = False Command1.Visible = False Command2.Visible = False Text1.Visible = True Option1.Visible = True Option2.Visible = True Check1.Visible = True Check2.Visible = True End Sub Private Sub Command2_Click() End End Sub Private Sub Option1_Click() Text1.FontName = 宋体 End Sub Private Sub Option2_Click() Text1.FontName = 隶书 End Sub Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.ForeColor = vbRed Else Text1.ForeColor = vbBlack End If End Sub 另一种编程： 复选框单击事件过程如下： Private Sub Check1_Click() Text1.FontItalic = True End Sub Private Sub Check2_Click() Text1.ForeColor = vbRed End Sub 单选框代码如下： Private Sub Option1_Click() Text1.FontName = 宋体 End Sub Private Sub Option2_Click() Text1.FontName = 隶体 End Sub 请指出缺陷。

案例:“世界杯预测” Private Sub Option1_Click() Option2.Value = False: Option3.Value = False Option4.Value = False Label3.Caption = Option1.Caption & 队有可能 获得: End Sub Private Sub Option2_Click() Option1.Value = False: Option3.Value = False Option4.Value = False Label3.Caption = Option2.Caption & 队有可能 获得: End Sub Private Sub Option3_Click() Option2.Value = False: Option1.Value = False Option4.Value = False Label3.Caption = Option3.Caption & 队有可能 获得: End Sub Private Sub Option4_Click() Option2.Value = False: Option3.Value = False Option1.Value = False Label3.Caption = Option4.Caption & 队有可能 获得: End Sub Private Sub Check1_Click() If Check1.Value = 1 Then Label3.Caption = Label3.Caption & & Check1.Caption End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label3.Caption = Label3.Caption & & Check2.Caption End If End Sub 。