VB中如何用代码添加命令按钮
不要以为这不可能` 我自己都做过` 不过忘记了而已` 展开
按以下步骤实现动态添加命令按钮
（1）新建一个VB6工程
（2）Form1窗体代码
Option Explicit
'定义要动态添加的命令按钮变量（带事件处理）
Dim WithEvents cmdX As CommandButton
'点击动态添加的按钮，弹出对话框
Private Sub cmdX_Click()
MsgBox "动态添加的命令按钮！！！"
End Sub
'鼠标双击窗体，动态添加一个命令按钮
Private Sub Form_DblClick()
If cmdX Is Nothing Then
Set cmdX = Controls.Add("VB.CommandButton", "cmd1")
cmdX.Caption = "点击我呀"
cmdX.Width = 4500
cmdX.Move 150, 150
cmdX.Visible = True
End If
End Sub
（3）运行
启动后
鼠标双击窗体
点击命令按钮，弹出一个对话框
按以下步骤实现动态添加命令按钮
（1）新建一个VB6工程
（2）Form1窗体代码
Option Explicit
定义要动态添加的命令按钮变量（带事件处理）
Dim WithEvents cmdX As CommandButton
点击动态添加的按钮，弹出对话框
Private Sub cmdX_Click()
MsgBox "动态添加的命令按钮！！！"
End Sub
'鼠标双击窗体，动态添加一个命令按钮
Private Sub Form_DblClick()
If cmdX Is Nothing Then
Set cmdX = Controls.Add("VB.CommandButton", "cmd1")
cmdX.Caption = "点击我呀"
cmdX.Width = 4500
cmdX.Move 150, 150
cmdX.Visible = True
End If
End Sub（3）运行
启动后鼠标双击窗体点击命令按钮，弹出一个对话框
拓展资料
Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
主要优点：
1，简单易学。
2，开发速度快。
3，可读性很好。
Controls.Add "VB.CommandButton", "cmdOk", Form1
Form1!cmdok.Visible = True
End Sub
添加控件数组的话，需要手动添加1个命令按钮，把index设置为0
Private Sub Command1_Click(Index As Integer)
Static s
If Index = 0 Then
s = s + 1
Load Command1(s)
Command1(s).Visible = True
Command1(s).Height = Command1(s - 1).Height + 500
End If
End Sub
