vb 动态添加 按钮事件

可以考虑按钮数组，即新加的按钮与已存在的按钮name相同，仅具有不同的index，那么这一组按钮的相同事件都可以在同一个过程中实现，借由这个过程的index参数来区别用户单击的是哪个按钮。举个例子：

两个按钮都叫做command1，index分别为0和1

index为0 的按钮的caption为“按钮1”

index为1 的按钮的caption为“按钮2”

双击其中之一可添加代码：

if index = 0 then

msgbox "你单击了按钮1"

else

msgbox "单击了按钮2"、

end if

这样新加了按钮之后，照样用已经存在的过程来处理单击事件。

建一个Command1。

代码如下。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Dim WithEvents cmd As CommandButton '这一句特别重要

Private Sub Command1_Click()

Set cmd = Controls.Add("vb.commandbutton", "cmd1")

cmd.Visible = True

End Sub

Private Sub cmd_click() '动态按钮事件

MsgBox ""

End Sub

你应用控件数组

你可以先在窗体上加一个Command

然后把他的index

属性改为0

要添加10个按钮就这样写

Private

Sub

Form_Load()

For

i

=

1

To

10

Load

Command1(i)

Command1(i).Top

=

Command1(i

-

1).Top

+

Command1(0).Height

Command1(i).Visible

=

True

Next

事件如下

Private

Sub

Command1_Click(Index

As

Integer)

MsgBox

Index

End

Sub

---