小问题.. 单选和复选

来源：百度知道 编辑：UC知道 时间：2024/06/18 10:27:55
我有段时间没看VB 了,让本来就没学好的我来说更是难上加难.. 现在有个小问题,,, 希望大家能写一下代码..
我在窗体里面建了三个单选按钮 和三个复选按钮 和一个标签 和一个命令按钮.. 我想 在点击命令按钮的时候 把所选择的单选按钮和复选按钮中的内容都放到标签孔件中去.. 我知道这个很简单.我我都忘了怎么做了..麻烦大吓们学一下代码

Private Sub Command1_Click()
If Option1.Value Then Label1.Caption = Label1.Caption & Option1.Caption
If Option2.Value Then Label1.Caption = Label1.Caption & Option2.Caption
If Option3.Value Then Label1.Caption = Label1.Caption & Option3.Caption
If Check1.Value Then Label1.Caption = Label1.Caption & Check1.Caption
If Check2.Value Then Label1.Caption = Label1.Caption & Check2.Caption
If Check3.Value Then Label1.Caption = Label1.Caption & Check3.Caption
Label1.Caption = Label1.Caption & "被选中"
End Sub

不过像这样有多个option,或多个checkbox,最好使用控件数组.