VB中如何让选择的多个复选框在一个文本框中分行显示？

1、打开VB软件，在窗体上面添加一个文本框。

2、点击文本框，在右侧的属性窗口中，设置名称和数值，将文本内容清空。

3、在窗体上面，再添加一个水平滚动条。

4、点击水平滚动条，设置名称和数值，将Min设置为0,Max设置为100。（文本框中的输入的数范围为0-100）。将largechange设置为5，Smallchange设置为2。

5、双击文本框，d出页面，开始编辑代码。

6、运行程序，在文本框中输入不同的数值（0-100以内的数值），观察滚动条的滚动框位置。即可在一个文本框通过滚动条分行显示。

应该用循环来写这段代码：

for i=0 to 5

if T = T + Check1(i).Caption + " " then label1.caption=Check1(i).Caption

next i

不知你的意图，但要想遍历所有控件，只能这样做。

Private Sub xiangmu_Click(Index As Integer)

If xiangmu(Index).Value = Checked Then

xiangmu(Index).Caption = "好"

GoTo jieshu

ElseIf xiangmu(Index).Value = Unchecked Then

xiangmu(Index).Caption = ""

End If

jieshu:

End Sub

---