Snippet Library

'
' Declarations Section of a form:
'
Option Explicit
'
Private m_oObservers(5) As CConcreteObserver
Private m_oSubjectObserver As CSubjectObserver
Private m_oSubject As CConcreteSubject
'

Private Sub cmdUpdate_Click()
    m_oSubject.State = txtState.Text
End Sub
'
Private Sub Form_Load()
'
    Dim iLoop As Integer
'
    Set m_oSubjectObserver = New cSubjectObserver
    Set m_oSubject = New CConcreteSubject
'
    m_oSubject.init m_oSubjectObserver
'
' Create 5 Observer objects
'
    For iLoop = 1 To 5
        Set m_oObservers(iLoop) = New CConcreteObserver
        m_oObservers(iLoop).init m_oSubjectObserver, iLoop
    Next iLoop
'
End Sub
;