Private Sub Check1_Click(Index As Integer)
Dim i As Integer, bb As String
For i = 0 To Check1.Count - 1
If Check1(i).Value = 1 Then
If bb <> "" Then bb = bb & ", "
bb = bb & Check1(i).Caption
End If
Next
Label1.Caption = bb
End Sub
需要设置全局变量，并学习split的用法。
你把工程发给我，我给你修改好。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024