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

[kaoru1120]

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

[supergreenbean]

在窗体上放个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

[嗷嗷叫的老马]

路过....

[clear_zero]

先要在窗口做出按钮数组
做法: 添加按钮，然后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

[舉杯邀明月]

楼主说的是动态添加的按钮，还是设计时已确定好的控件数组呀？

[forbearORfolie]

关注

[qiu5208]

长见识了。