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

发布时间：2020年09月27日 06:20:22 来源：点击量：1112

【摘要】该实例主要用来区分单选按钮与复选框的不同。(1)首先在窗体中添加2个单选按钮和2个复选框，再添加1个文本框和I个命令按钮。当用户选择了某

该实例主要用来区分单选按钮与复选框的不同。(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控件。 5.5.3 <a style=