VB!! 这是一个复选框控件数组! 每次选中或取消选择一个复选框，另一个文本框内就会显示出已选中的

Question

VB!!
这是一个复选框控件数组!
每次选中或取消选择一个复选框，另一个文本框内就会显示出已选中的一个或多个复选框的caption

Answer 1

Private Sub Check1_Click(Index As Integer)
Dim c As CheckBox
Text1.Text = ""
For Each c In Check1
    If c.Value = 1 Then Text1.Text = Text1.Text & c.Caption & " "
Next
End Sub

追问

怎样可以换行？就不同的caption在不同的行里

追答

首先你的文本框的MulitLine属性要设为True，然后
... & " "
改为
... & vbCrLf

追问

可不可以加下您再问您一个问题？不好描述。。

我的单价跟折扣率也是用的两个文本框数组来做，怎么让它们也表达出来

追答

假定单价的文本框是Text1()、折扣率是Text2()，而且它们的索引号与Check1()是一一对应的：

Private Sub Check1_Click(Index As Integer)
Dim c As CheckBox
Text1.Text = ""
For Each c In Check1
    If c.Value = 1 Then
        Text1.Text = Text1.Text & c.Caption & " 单价" & Text1(c.Index).Text & " 折扣率" & Text2(c.Index).Text & vbCrLf
    End If
Next
End Sub

追问

太感谢您了！！