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

office教程网 2023-09-09 00:39:06

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要： 该实例主要用来区分单选按钮与复选框的不同。(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"
，如果选择了单选按钮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
，

5.6.2.5 Excel VBA组合框的Scroll事件
当组合框的下拉部分的内容被滚动时，Scroll事件发生。

如果选择了复选框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在
一个容器内，如Frame控件。