UC知道VB用控件数组做复选框的内容
来源：百度知道 编辑：UC知道 时间：2024/06/20 08:31:41
控件数组的复选框中有六项，caption分别是a,b,c,d,e,f，选中哪项label上就显示哪项，选几个就显示几个，一个都没选就显示“没有”，我做的其中一段代码是这样，但是只可以单选，谁给我改改
T是临时变量，存放标签上要显示的字符串
Select Case Index
Case 0
T = T + Check1(Index).Caption + " ": Flag = 1
Case 1
T = T + Check1(Index).Caption + " ": Flag = 1
Case 2
T = T + Check1(Index).Caption + " ": Flag = 1
Case 3
T = T + Check1(Index).Caption + " ": Flag = 1
Case 4
T = T + Check1(Index).Caption + " ": Flag = 1
Case 5
T = T + Check1(Index).Caption + " ": Flag = 1
End Select
T是临时变量，存放标签上要显示的字符串
Select Case Index
Case 0
T = T + Check1(Index).Caption + " ": Flag = 1
Case 1
T = T + Check1(Index).Caption + " ": Flag = 1
Case 2
T = T + Check1(Index).Caption + " ": Flag = 1
Case 3
T = T + Check1(Index).Caption + " ": Flag = 1
Case 4
T = T + Check1(Index).Caption + " ": Flag = 1
Case 5
T = T + Check1(Index).Caption + " ": Flag = 1
End Select
应该用循环来写这段代码：
for i=0 to 5
if T = T + Check1(i).Caption + " " then label1.caption=Check1(i).Caption
next i
不知你的意图，但要想遍历所有控件，只能这样做。
for i = 0 to 5
T = T & Check1(i).Caption + " "
next i