Private Sub frmMain_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
mobjDataEventChannel = New clsDataEvents()
Me.IsMdiContainer = True
Me.Text = "Publish/Subscribe Event Sample"
Me.WindowState = FormWindowState.Maximized
End Sub
當MDI表單被運行時,你可以在菜單中選擇"File->New List"來建立一個frmList類的執行個體。
Private Sub MenuItem2_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles MenuItem2.Click
Dim objNewForm As frmList
objNewForm = New frmList()
mobjDataEventChannel.AttachSubscriber(objNewForm)
objNewForm.MdiParent = Me
objNewForm.Show()
End Sub
當建立了子表單以後,它將被註冊到event channel,在註冊過程期間,event channel將要初始化subscriber。
Public Overridable Sub Initialize(ByVal Token As _
String, ByVal EventChannel As clsEventChannel)
mstrToken = Token
mobjEventChannel = EventChannel
End Sub