ObjectEvent是一个怎么样的事件啊

ObjectEvent是一个怎么样的事件啊

ObjectEvent 事件

当一个被指定给 VBControlExtender 对象变量的控件引发一个事件时发生。

语法

Private Sub object_ObjectEvent(Info As EventInfo)

ObjectEvent 事件语法有这些部分:

部分 描述
object 必需的。一个对象表达式，其值是“应用于”列表中的一个对象。
Info 返回一个对 EventInfo 对象的引用。

说明

ObjectEvent 事件是一个通用事件，允许您通过该控件的事件参数处理一个控件的事件和返回值。

可以利用 ObjectEvent 事件来捕获一个控件产生的通用事件，保证您部署的任何控件包含部署应用程序所要求的某些基本功能。

ObjectEvent 事件、EventParameter 对象示例
下面的第一个例子使用 ObjectEvent 事件来打印所有的参数名称和值。

Option Explicit
Private WithEvents extObj As VBControlExtender

'有关设置对象变量给用户控件的代码没有显示。

Private Sub extObj_ObjectEvent(Info As EventInfo)
Dim p As EventParameter
Debug.Print Info.Name

For Each p In Info. EventParameters
Debug.Print p.Name, p.Value
Next
End Sub

下面的第二个例子允许您检查由控件引起的通用事件。

Private Sub extObj_ObjectEvent(Info As EventInfo)
Dim p As EventParameter
Select Case Info.Name
Case "UserName"
'检查用户名的值。
MsgBox Info. EventParameters("UserName").Value
'其他情况现在显示
Case Else '未知事件
'这里处理未知事件。
End Select
End Sub