AddEventHandler方法示例
2015-12-15 22:24:58   来源：   评论：0 点击：

下列示例为对象CurrentObject的 添加一个事件处理器“OpenPicture”。

Dim lIndex As Long

CurrentObject.Procedures.AddEventHandler "Click", "OpenPicture", lIndex

导致的过程如下：

private sub CurrentObject_Click()
OpenPicture
end sub