请问怎么用循环做出按钮组，谢谢~~！！！

Question

请问怎么用循环做出按钮组，在按钮的caption中循环显示出数据，这两个循环怎么做啊，我老是出错，请有经验的前辈帮忙一下，谢谢！~~~
 

Answer 1

在窗体上放个Command1,并将按钮的Index属性设为0。运行以下代码
Private Sub Form_Load()
    Dim i As Long
    For i = 1 To 10
        Load Command1(i)
        With Command1(i)
            .Caption = "第" & CStr(i) & "个按钮"
            .Move .Left, Command1(i - 1).Top + Command1(i - 1).Height + 10
            .Visible = True
        End With
    Next
End Sub

Answer 2

先要在窗口做出按钮数组
做法: 添加按钮，然后copy paste,然后选择是然后就可以写代码了
Private Sub Form_Load()
    Dim i As Long
    For i = 1 To 10
        Load Command1(i)
        With Command1(i)
            .Caption = "第" & CStr(i) & "个按钮"
            .Move .Left, Command1(i - 1).Top + Command1(i - 1).Height + 10
            .Visible = True
        End With
    Next
End Sub