Question

vb中添加控件（运行时，用add），怎么添加添加的控件的事件？

如
form1...add("...","aaa")
...(设置为可见等属性修改）
... aaa_click
这个没用，怎么弄？

Answer 1

您必须使用 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