Snippet Library

none

Option Explicit
'
Private m_sObserverText As String
Private WithEvents m_oSubjectObserver As CSubjectObserver
'

Public Sub init(oSubjectObserver_r As CSubjectObserver, iObserverNumber_r As Integer)
    Set m_oSubjectObserver = oSubjectObserver_r
    m_sObserverText = "Observer # " & CStr(iObserverNumber_r)
End Sub
'
Private Sub m_oSubjectObserver_Notify(sState_r As String)
    MsgBox sState_r, , m_sObserverText
End Sub
'
Public Property Get State() As String
    State = m_sObserverText
End Property
;