请给我修改下面的程序，我要实现点击一次按钮就产生一个按钮，谢谢。

显示全部楼层 · 2011-4-20 09:41:01

Dim I As Integer
Private Sub Command1_Click(Index As Integer)

I = I + 1

Load Command1(I)

Command1(I).Visible = True

Command1(I).Left = 200

Command1(I).Top = I * 500

Command1(I).Width = 1500

Command1(I).Caption = "新增按钮" & I
End Sub

千问 · 2011-4-20 09:41:01

不用修改啊可以用添加一个按钮默认名称将其index属性设置为0运行即可

千问 · 2011-4-20 09:41:01

Dim I As IntegerPrivate Sub Command1_Click(Index As Integer)
I = I + 1
Load Command1(I)
Command1(I).Visible = True
Command1(I).Left = 200
Command1(I).Top