注册和注销事件
发布时间：2020-12-17 08:04:26 所属栏目：百科 来源：网络整理
导读：该样例程序是通过执行“AddEvent”命后，进行注册ObjectErased事件。在注册了该事件之后，每当删除对象时，就是激活该事件进行调用自定义的ObjectErasedEvent函数。 但是如果运行RemoveEvent命令后，将会注销该命令。在注册了该命令后，即使是删除对象，也不
|
该样例程序是通过执行“AddEvent”命后，进行注册ObjectErased事件。在注册了该事件之后，每当删除对象时，就是激活该事件进行调用自定义的ObjectErasedEvent函数。 但是如果运行RemoveEvent命令后，将会注销该命令。在注册了该命令后，即使是删除对象，也不会激活事件的。即也不会调用自定义函数。
Imports ZwSoft.ZwCAD.Runtime Imports ZwSoft.ZwCAD.DatabaseServices Imports ZwSoft.ZwCAD.ApplicationServices Namespace ZwApp Public Class EventSample <CommandMethod("AddEvent")> _ Public Sub AddObjectErasedEvent() Dim ZcDB As Database = HostApplicationServices.WorkingDatabase AddHandler ZcDB.ObjectErased,AddressOf ObjectErasedEvent End Sub <CommandMethod("RemoveEvent")> _ Public Sub RemoveObjectErasedEvent() Dim ZcDB As Database = HostApplicationServices.WorkingDatabase AddHandler ZcDB.ObjectErased,AddressOf ObjectErasedEvent End Sub Public Shared Sub ObjectErasedEvent(ByVal sender As Object,ByVal e As ObjectErasedEventArgs) Application.ShowAlertDialog(vbLf & "Object(s) erased") End Sub End Class End Namespace（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |