vb 如何在代码中实现添加控件

来源：百度知道 编辑：UC知道 时间：2024/05/22 17:58:29
vb 如何在代码中实现添加控件？
比如窗体中原来没有command1控件，通过代码可以在运行中添加该控件
不是啊，我是想要在程序运行中动态的生成窗体上的控件啊
比如说程序刚开始运行时没有command2控件，但是我通过在窗体上单击command1按钮，窗体上就自动显示command2控件（不要修改visible属性的，要自动生成的！）

新建一个项目
在窗体上添加一个command1, 再添加一个command2, 将command2的index属性改为0.

Dim i As Long

Private Sub Command1_Click()
Load Command2(i)
With Command2(i)
.Left = Command2(0).Left
.Top = Command2(i - 1).Top + Command2(0).Height + 100
.Width = Command2(0).Width
.Height = Command2(0).Height
.Visible = True
.Caption = "Command" & i
End With
i = i + 1
End Sub

Private Sub Form_Load()
i = 1
End Sub

你先用控件按钮,然后它会自动生成代码.