Net事件的异步调用模式

最新推荐文章于 2024-08-27 15:54:21 发布

htzguoguo

最新推荐文章于 2024-08-27 15:54:21 发布

阅读量341

点赞数

分类专栏： Net 线程安全文章标签： integer class each list

本文链接：https://blog.youkuaiyun.com/htzguoguo/article/details/4423168

版权

Net 线程安全专栏收录该内容

3 篇文章

订阅专栏

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