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

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

（1）新建一个VB6工程

（2）Form1窗体代码

Option Explicit

'定义要动态添加的命令按钮变量（带事件处理）

Dim WithEvents cmdX As CommandButton

'点击动态添加的按钮，d出对话框

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

启动后

鼠标双击窗体

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

在 VB 中，可以通过添加一个按钮来实现清除文本框内容的功能。下面是一个简单的示例：

在 VB 中，打开窗体设计器，将一个按钮控件添加到窗体中。

右键单击按钮控件，选择“属性”。

在“属性”窗口中，找到“Text”属性，并将其更改为“清除”。

双击按钮控件，在代码编辑器中打开“Click”事件处理程序。

在事件处理程序中，添加以下代码来清除文本框内容：

TextBox1.Text = ""

其中，TextBox1 是要清除内容的文本框的名称。

运行程序，单击“清除”按钮，可以看到文本框的内容被清空了。

这样就完成了在 VB 中添加一个清除文本框内容的按钮的过程。可以将上述步骤用于任何文本框，只需将代码中的文本框名称替换为需要清空的文本框的名称即可。

思路

两种方式：

1、通过动态按钮方式创建，

2：通过控件数组方式创建。

个人倾向于通过控件数组的方式。一般应用都是有规律的创建的，所以用控件数组合适些。

举例

' 先在窗体上添加一个标准按钮

' 在属性窗口中，把它的 Index属性设置成 0

'        名称改为 cmdDynCmd （其它的名称也行，注意后面的说明）

'        Visible 可以设置成 False

Option Explicit

Private lCmdIndex As Long

Private Sub LoadCmdButton()

'这儿就是加载动态按钮的

   Dim i&

   For i = 0 To NNN   '这儿NNN等于你需要的按钮数减1，可以用变量的

   '你应该能通过你的“数据库中"a"表中"名称"字段”项目数 来确定值为多少

   ' *** 注意这儿的 cmdDynCmd 就是设计时确定的按键名称 ***

      If (lCmdIndex > 0) Then Load cmdDynCmd(i)

      cmdDynCmd(i).Visible = True

      '这儿的 Caption 属性，你自己用代码跟你的 数据库中"a"表中"名称"字段内容关联

      cmdDynCmd(i).Caption = "动态按钮" & i + 1

      '这儿的 x 、y 你可以根据 i 的值来进行计算

      cmdDynCmd(i).Top = X

      cmdDynCmd(i).Left = Y

      '直接 cmdDynCmd(i).move x, y也行

   next

End Sub

' 这儿就是动态按钮的事件代码

' 根据 Index 判断是哪个按钮触发了事件

' 跟你事先设计好的控件数组完全是相同的用法

' ***** 注意！！！注意这儿的 cmdDynCmd 就是设计时确定的按键名称

Private Sub cmdDynCmd_Click(Index As Integer)

   MsgBox "你点击的是第 " & Index + 1 & " 个动态按钮。", 64

   '具体事件代码只能你自己写

End Sub

---