vb怎么加事件

建一个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

您必须使用 WithEvents 关键字声明一个对象变量为VBControlExtender 对象(如上)，并且设置该对象变量到Add 方法返回的引用上。然后，利用VBControlExtender 对象的 ObjectEvent事件来编程该控件的事件。下面是一个简单的例子。

Option Explicit

Dim WithEvents objExt As VBControlExtender 声明 Extender 变量

Private Sub LoadControl()

Licenses.Add "Project1.Control1", "xydsfasfjewfe"

Set objExt = Controls.Add("Project1.Control1", "myCtl")

objExt.Visible = True

End Sub

Private Sub extObj_ObjectEvent(Info As EventInfo)

使用 Select Case 编程控件的事件。

Select Case Info.Name

Case "Click"

这里处理 Click 事件。

现在显示其他的 case

Case Else 未知事件

这里处理未知事件。

End Select

End Sub

---