Net事件的异步调用模式

来源：互联网发布：java接口api生成工具编辑：程序博客网时间：2024/05/29 14:04

Public Class MyPublisher

        Public Delegate Sub GenericEventHandler(Of T, U)(ByVal t As T, ByVal u As U)
        Public Delegate Sub GenericEventHandler(Of T)(ByVal t As T)

        Private deles As New List(Of GenericEventHandler(Of Integer))

        Public Event SyncNumberChanged As GenericEventHandler(Of Integer)

        Public Custom Event AsyncNumberChanged As GenericEventHandler(Of Integer)
            AddHandler(ByVal value As GenericEventHandler(Of Integer))
                deles.Add(value)
            End AddHandler

            RemoveHandler(ByVal value As GenericEventHandler(Of Integer))
                deles.Remove(value)
            End RemoveHandler

            RaiseEvent(ByVal t As Integer)
                            For Each dele As GenericEventHandler(Of Integer) In deles
                pdele.begininvoke
                Next
            End RaiseEvent
        End Event

        Public Sub AsyncFireEvent(ByVal int As Integer)
            RaiseEvent AsyncNumberChanged(int)
        End Sub

        Public Sub SyncFireEvent(ByVal int As Integer)

        End Sub