关闭

注册和注销事件

标签: 事件Eventvb.netcad注册事件
599人阅读 评论(0) 收藏 举报
分类:

该样例程序是通过执行“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
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    最新评论
    个人资料
    • 访问:124624次
    • 积分:2351
    • 等级:
    • 排名:第15891名
    • 原创:113篇
    • 转载:30篇
    • 译文:0篇
    • 评论:4条