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