Question

vb编程中怎么直接在代码中生成一个按钮?

我想实现,点击一个command,就自动生成一个新的按钮,写代码的,不要告诉我用隐藏,谢谢
一楼的朋友,不行
你们是不是先做了command1按扭,把他隐藏了?
那为什么我运行不行呢
还有Private Sub Command1_Click(Index As Integer)
命令不是没有后面的Index As Integer 是空的啊

Answer 1

Private Sub Command1_Click()
Dim cmd1 As Control
Set cmd1 = Me.Controls.Add("vb.commandbutton", "cmd1", Me)
With cmd1
.Caption = "cmd1"
.Left = 100
.Top = 100
cmd1.Visible = True
End With
End Sub

还可以用控件数组，像1楼说的那样！！

Answer 2

首先将command1的index属性设置为0
Dim i As Integer
Private Sub Command1_Click(Index As Integer)
i = i + 1
Load Command1(i)
Command1(i).Top = 0
Command1(i).Visible = True
End Sub
上面的方法在vb6.0下是可以的，我刚试过，