假设有4个复选框~~~将选中的复选框的CAPTION 属性显示到LABEL1的CAPTION 上~~
我试过如果用IF语句判断要写好多~~

有没有一些简单的方法呢??

意思不是很明白!昨天看球睡觉太晚,有点迷糊!不过一般来说IF多了就可以用select case来代替啊

就是将选中的复选框的标题显示到标签框的标题上~~

比如选中了check1,check3这两个复选框就在标签框上显示选中的这两个~~

将复选框用数组表示.
label1.caption=check(i).caption

[此贴子已经被作者于2005-6-19 9:22:41编辑过]

Private Sub Command1_Click()
Dim i As Integer
Dim st As String
For i = 0 To 3
If Check1(i).Value = 1 Then
st = st & Check1(i).Caption
Label1.Caption = st
End If
Next i
End Sub