5.5.3 Excel VBA的单选按钮和复选框举例

该实例主要用来区分单选按钮与复选框的不同。(1)首先在窗体中添加2个单选按钮和2个复选框，再添加1个文本框和I个命令按钮。当用户选择了某几项后，单击碧卜薯命令按钮，则在文本框中显示当前选定了嘟些项。将命令按钮的Caption属性设N为“确定”，分别将4个选择控件的Caption属性设置为“选项I"、“选项2-、“选项3"、“选项4-。添加好控件的窗体如图5.24所示.图5.24创建好的窗体效果(2)双击“确定”按钮，在Command 1一lick事件中添加如下的代码:Private Sub Commandl Click()Textl.Text一，您选择7"，如果选择了单选按钮1If Optionl.Value一True ThenTextl.Text一Textl.Text+End If，如果选择了单选按钮2If Option2.Value一True ThenTextl.Text一Textl.Text+End If，如果选择了复选框1If Checkl.Value一1 ThenTextl.Text一Textl.Text+End If，如果选择了复选框2If Check2.Value一1 ThenTextl.Text .Textl.Text+End IfEnd Sub，清空文本框一选项1".选项2"一选项悔者3".选硕9"(3)运行这一段程序，选择选项，单击按钮，即可看到在文本框中列出了当前选择的选项。图5.25所示是选择弊蔽了单选按钮2及复选框1和2后的结果.由此可见，单选按钮只能且必须选一项，而复选框可以选择不定数目的选顶。说明:单选按妞在同一个容器中只能选择其中的一个选项，如果共实现几组单选按粗，且其中每一组都可以选择一个选项的功能，可以将每一组单选按妞放I在一个容器内，如Frame控件。

因为checkbox默认的 *** 作是点一次选中，点两次取消选中，所以要修改代码，加一个布尔变量标记

修改后的代码如下：

Dim flag As Boolean

Private Sub CheckBox1_Click()

    flag = False

    If flag = False Then

        CheckBox1.Value = 1

    瞎铅    CheckBox2.Value = 0

        CheckBox3.Value = 0

        CheckBox4.Value = 0

   慎简     flag = True

    End If

End Sub

Private Sub CheckBox2_Click()

    If flag = True Then

        CheckBox1.Value = 0

        CheckBox2.Value = 1

        CheckBox3.Value = 0

        CheckBox4.Value = 0

        flag = False

    End If

End Sub

Private Sub CheckBox3_Click()

    If flag = False Then

        CheckBox1.Value = 0

        CheckBox2.Value = 0

        CheckBox3.Value = 1

  宽神裤      CheckBox4.Value = 0

        flag = True

    End If

End Sub

Private Sub CheckBox4_Click()

    If flag = True Then

        CheckBox1.Value = 0

        CheckBox2.Value = 0

        CheckBox3.Value = 0

        CheckBox4.Value = 1

        flag = False

    End If

End Sub

第二行第2列 圆圈一点就是配袭拆单选

属性是固定的 只能设置不能添加 选中禅猜控件 在属性栏中设置 或者在代码中培枣如：

option1.value=true

---