如何将button控件数组按数量动态排列成几行？

Question

如何将button控件数组按数量动态排列成几行？详细些，谢谢

Answer 1

在窗体上先建一个command1,index设为0,窗体scalemode设定为pixel再放一个command2，代码如下：Private Sub Command2_Click()
Dim i As Integer 
Dim TolNum as Integer   '按钮总数
Dim n As Integer        '每行按钮数量n = 4    '假设每行按钮数为4
For i = 1 To TolNum
  Load Command1(i)
  Command1(i).Visible = True
  Command1(i).Move 100 + (i Mod n) * 100, 100 + Int(i / n) * 50  '间距和行距自己设定
Next iend sub

Answer 2

初始画面上只有command(0)Option Explicit
Dim i As IntegerPrivate Sub Command2_Click()
for i =0 to n
  Load Command1(i) '增加控件
  j=i mod 5
  k=fix (i/5)
  Command1(i).Visible = True
  Command1(i).Left = (j - 1) * 1000
  Command1(i).Top = k*500
next 
End Sub
没调试看行吗？

Answer 3

Option Explicit
Dim i As IntegerPrivate Sub Command2_Click()
for i =0 to n
  Load Command1(i) '增加控件
  j=i mod 5
  k=fix (i/5)
 
  Command1(i).Left = (j - 1) * 1000
  Command1(i).Top = k*500
 Command1(i).Visible = True
next 
End Sub