VB怎样用代码来排列控件？

来源：百度知道 编辑：UC知道 时间：2024/09/12 23:31:03
有26个checkbox 控件组 名字为 check1(1)到check1(26) 请问怎么用代码把这26个checkbox排列为5排,前面4排每行6个 最后一排2个
就像下面一样：
* * * * * *
* * * * * *
* * * * * *
* * * * * *
* *
请一定要注释 谢谢了

Private Sub Form_Load()
t1 = 500 '与窗体上边距离
l1 = 500 '与窗体左边距离
For i = 1 To 26
Check1(i).Move l1, t1 '将控件移到指定位置
l1 = l1 + 1000 '控件宽度
If i Mod 6 = 0 Then '每隔六个
t1 = t1 + 800 '将t1加上一定距离
l1 = 500 '与窗体左边距离归回默认值
End If
Next i
End Sub

用两个循环
for i=1 to 5
for i=1 to 4
.....这边进行每一行的排列。。具体的你没说清楚
next i
print chr（13）+chr（10） 这个地方换行
next j