VB.NET 实现的观察者模式

Public Delegate Sub NotifyEventHandler(ByVal sender As Object)
Public Class PLC

    Public NotifyEvent As NotifyEventHandler

    Public Symbol As String = ""
    Public Info As String = ""

    Public Sub New(Symbol As String, info As String)
        Me.Symbol = Symbol
        Me.Info = info
    End Sub

    Public Sub AddObserver(ob As NotifyEventHandler)
        NotifyEvent = [Delegate].Combine(ob, NotifyEvent)

    End Sub
    Public Sub RemoveObserver(ob As NotifyEventHandler)
        NotifyEvent = [Delegate].RemoveAll(NotifyEvent, ob)
    End Sub

    Public Sub Update()
        ThreadPool.QueueUserWorkItem(New WaitCallback(Sub()
                                                          NotifyEvent(Me)
                                                      End Sub))

    End Sub
End Class

Public Class PLCStatus
    Inherits PLC

    Public Sub New(symbol As String, info As String)
        MyBase.New(symbol, info)
    End Sub

End Class

' 具体订阅者类

Public Class Subscriber
    Public Name As String = ""

    Public Sub New(name As String)
        Me.Name = name
    End Sub

    Public Sub ReceiveAndPrint(obj As Object)
        Dim plc As PLC = TryCast(obj, PLC)
         
        If Not plc Is Nothing Then
            Console.WriteLine("Notified {0} of {1}'s" + " Info is: {2}", Name, plc.Symbol, plc.Info)
        End If

    End Sub
End Class
 

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim plc As PLCStatus = New PLCStatus("TenXun Game", "Have a new game published ....")
        Dim lh As Subscriber = New Subscriber("李")
        Dim tom As Subscriber = New Subscriber("王")

        '// 添加订阅者

        plc.AddObserver(New NotifyEventHandler(AddressOf lh.ReceiveAndPrint))
        plc.AddObserver(New NotifyEventHandler(AddressOf tom.ReceiveAndPrint))

        plc.Update()

        Console.WriteLine("-----------------------------------")
        Console.WriteLine("移除王订阅者")
        plc.RemoveObserver(New NotifyEventHandler(AddressOf tom.ReceiveAndPrint))
        plc.Update()
        Console.ReadLine()
    End Sub
End Class

　　

转载于:https://www.cnblogs.com/honger0414/p/4707959.html