使用Publish/Subscribe 设计模式达到对象间数据同步(二)

新客网 XKER.COM 2004-06-06 来源： 收藏本文

在注册处理期间，subscriber被分配一个独特的标记，用来在event channel中标识subscriber。event channel也使用这个标记索引那些subscriber。 虽然样品应用作为标记目标的杂乱脉冲干扰电码使用，我推荐在你的自己的程序里使用另一个方法产生一个独特的标识符 ( 例如产生一GUID)。

使用目录菜单建立3到4个frmList窗口实例。使用新的目录菜单选项创作frmList 的3 或者4 个实例，然后在其中一个窗口中选择一个条目，双击这个条目进入可编辑模式，键入一个新的名字。窗体建立一个描述数据更新的事件并通过event channel发送。

Private Sub lvwList_AfterLabelEdit(ByVal sender As _ Object,
ByVal e As _ System.Windows.Forms.LabelEditEventArgs) _
Handles lvwList.AfterLabelEdit
Dim objEvent As clsDataEvent
If e.Label <> "" Then
objEvent = New clsDataEvent()
With objEvent
.Name = "NameChanged"
.Value = e.Label
.ExtraData = lvwList.Items(e.Item).Tag
.Origin = Me
End With
MyBase.EventChannel.PublishEvent(objEvent)
End If
End Sub
发送事件的窗体证实它是事件的创始人；并将clsDataEvent类的Origin属性设置为它自己。这样可以阻挡其他多余的事件，以确保发送者接收到的事件都是已经发布过的。最后，事件的发布者注意到了数据的改变。

所有的subscribers将收到事件。在EventApp 中，每个frmList 的实例将收到事件并且改变每个ListView中的发生变化的项目：

Public Overrides Sub EventRaise( _ ByVal NewEvent As _
EventApp.clsEvent)
Dim objListItem As ListViewItem

Select Case NewEvent.Name
Case "NameChanged"
For Each objListItem In lvwList.Items
If objListItem.Tag = NewEvent.ExtraData Then
objListItem.Text = NewEvent.Value
End If
Next
Case Else
'Handle other events
End Select
End Sub

这种事件系统类型将给你带来很大的灵活性。你可以使在应用程序中的任何一个
对象发布事件，只有那些对此感兴趣的对象的到更新的信息。也可以改变Event
Channel类的实现方式， 如可以通过使用Web service或者消息系统(如MS
Message Queue 或者 IBM MQ 系列)，通过 HTTP协发送事件。

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决