在窗体上有6个checkBox控件，一个按钮，一个label控件，任意选中checkBox中的一个或者多个，电击按钮，label的Caption属性将显示被选中的checkBox的Caption,请大家帮忙，我不知道怎么写，按死方法去写感觉太笨了，谢谢！

[此贴子已经被作者于2007-4-6 10:51:35编辑过]

只能按死方法写，

或者不用button 你在checkbox的click事件中直接刷新label的text

不知道你想要什么样的. 这样的行不?

private sub command1_click()
dim i as integer,s as string
s=""
for i = 0 to 5
if check1(i).value=1 then
s = s & check1(i).caption
next

label1.caption =s
end sub

还是用按钮实现起来方便一点!!

用控件数组可以解决吧,自已先想想

二级考试的题目`你是不是去考试了`我妹子问过我这种类型的问题``

画一个文本框,四个复选按钮,一个命令按钮.

Private Sub Command1_Click()
If Check1.Value = 1 Then
a = Check1.Caption '内容是:黑体
Text1.FontName = "黑体"
End If
If Check2.Value = 1 Then
b = Check2.Caption ':红色
Text1.ForeColor = &HFF&
End If
If Check3.Value = 1 Then
c = Check3.Caption ':加粗
Text1.FontBold = True
End If
If Check4.Value = 1 Then
d = Check4.Caption ':13号字体
Text1.FontSize = "13"
End If
Label1.Caption = "你选择了" & a & " " & b & " " & c & " " & d
End Sub

因为你给的值不一样```所以没有简单的方法.

按你那个``简单的```也是不行的````因为

a=1

check1``是不能用```check(a)```表示的.

所以不能用``循环命令.

随便给你写了个,你看看吧

[此贴子已经被作者于2007-4-6 18:28:13编辑过]