VB中如何用代码添加命令按钮

Question

我不想通过复制来添加命令按钮组`而是想只用一个按钮来添加` 通过循环语句来添加` 怎么实现，？
不要以为这不可能` 我自己都做过` 不过忘记了而已`

Answer 1

按以下步骤实现动态添加命令按钮

（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）运行

启动后

鼠标双击窗体

点击命令按钮，弹出一个对话框

Answer 2

按以下步骤实现动态添加命令按钮

（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，可读性很好。

本回答被网友采纳

Answer 3

Private Sub Form_Load()
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本回答被提问者采纳

Answer 4

你都有做过了还上来问干嘛！傻子！语气还硬的很，不要忘了现在你是在求人，知道也不告诉你

Answer 5

好像不行