Question

VB 6.0 中checkbox控件的使用

我想用 checkbox 绘制复选框，在选中后（可选一个或多个），单击确定按钮，可打印相关选项的Caption值。例如：三个复选框的Caption值分别为 A, B , C 。选中B、C确定后， 打印：你选择了B 、C 。
求各位大虾帮帮忙~~~

Answer 1

建立控件数组，然后再按钮单击事件里进行循环判断每个复选框的状态。。
只有3个复选框的话，也可以简单的这样写，

label1.caption="你选择了" & iif(check1(0).value,check1(0).caption,"") & ","& iif(check1(1).value,check1(1).caption,"") & ","& iif(check1(2).value,check1(2).caption,"")

追问

我建立了控件数组，但是不清楚具体怎样循环判断。 三个选项只是举例，多的话就麻烦了。还有我不清楚是否要用数组，判断语句是用Value 还是Check , 总之各种尝试都以失败告终，望高人指点，越详细越好

追答

x="你选择了"

for n = o to 2
if check1(n).value then x=x & check1(n).caption

next
label1.caption=x

Answer 2

Option Explicit

Private Sub Command1_Click()
Dim i As Integer, s As String
For i = 0 To Check1.Count - 1
    s = s & IIf(Check1(i).Value, Check1(i).Caption & "，", "")
Next
If s <> "" Then Mid(s, Len(s), 1) = "。": Print s

End Sub

Private Sub Form_Load()
Dim i As Integer
Check1(0).Caption = "A"
For i = 1 To 9
    Load Check1(i)
    Check1(i).Move Check1(0).Left, Check1(0).Top + Check1(0).Height * i
    Check1(i).Caption = Chr(65 + i)
    Check1(i).Visible = True
Next

End Sub

Answer 3

追问

请问是如何实现的呢？

追答

首先判断哪个复选被选中，然后把选中的复选添加到字符串，打印即可。