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"

，如果选择了单选按钮1

If Optionl.Value一True Then

Textl.Text一Textl.Text+

End If

，如果选择了单选按钮2

If Option2.Value一True Then

Textl.Text一Textl.Text+

End If

，如果选择了复选框1

If Checkl.Value一1 Then

Textl.Text一Textl.Text+

End If

，如果选择了复选框2

If Check2.Value一1 Then

Textl.Text .Textl.Text+

End If

End Sub

，清空文本框

一选项1"

.选项2"

一选项3"

.选硕9"

(3)运行这一段程序，选择选项，单击按钮，即可看到在文本框中列出了当前选择的

选项。图5.25所示是选择了单选按钮2及复选框1和2后的结果.由此可见，单选按钮只能且

必须选一项，而复选框可以选择不定数目的选顶。

说明:单选按妞在同一个容器中只能选择其中的一个选项，如果共实现几组单选

按粗，且其中每一组都可以选择一个选项的功能，可以将每一组单选按妞放I在