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

下列示例取得对象CurrentObject的 的索引号，如果存在过程，则将其删除。

CurrentObject.Procedures.GetEventHandlerIndex "Click", lIndex, lFound

If lFound = 1 Then

CurrentObject.Procedures.Remove lIndex

End If