广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： unknow

我们通常在同一时间将我们的数据表示为各种不同的形式，比如列表、图形等等。

我们也同样希望当数据改变时，将这个更新信息很方便的通知所有依赖于它的各个对象。

例如：我们可以使用图形、表格或者列表框显示股票的价格，当股票的价格发生改变时，我们期望同时很方便的更改其它部分。

在这种情况下我们就可以使用Observer模式。我们可以很容易的利用Observer模式使我们的程序可以很方便的解决上面的问题。

结构图：



观察者模式假定保存数据的对象和显示数据的对象是分开的，负责显示数据的对象观察数据对象中的改变。（如图）









当我们要实现Observer模式时，通常将数据对象作为目标（Subject），各个显示数据的对象作为观察者（Observer）。每一个观察者（Observer）通过调用目标（Subject）中的一个公有（public）方法，在他所感兴趣的数据中注册（registers）自己。这样，当数据改变时，每一个目标（Subject）通过观察者（Observer）的接口发送更新通知。

我们定义以下两个接口：

@#Observer.vb

@#定义Observer接口

Public Interface Observer

Sub sendNotify(ByVal mesg As String) @#用于发送更新通知

End Interface



Subject.vb

@#定义Subject接口

Public Interface Subject

Sub registerInterest(ByVal obs As observer) @#用于注册观察者

End Interface

我们可以写一个简单的程序，以便更好的理解（Observer）观察者模式.。第一个窗体—主窗体，它有3个Radio Button,名称为Red, Blue and Green。



我们这个主窗体类实现Subject接口，这就意味着它必须提供公有方法registerInterest，用于注册（observer）观察者。

Public Sub registerInterest(ByVal obs As VBNetObserver.Observer) Implements VBNetObserver.Subject.registerInterest

observers.Add (obs)

End Sub



我们建立两个observer（观察者），一个显示颜色，另一个在一个list box中增加颜色。我们在主窗体类中显示他们。

Dim lscol As New listObs(Me)

lscol.Show ()

Dim frcol As New ColFrame(Me)

Frcol.Show()

第一个观察者（Observer）--------- ColorFrame，它实现Observer接口，下面是部分主要代码。

@#Class ColorFrame

Public Class ColFrame

Inherits System.Windows.Forms.Form

Implements Observer ‘实现Observer接口

Private colname As String

Dim fnt As Font

Dim bBrush As SolidBrush

@#构造函数

Public Sub New(ByVal subj As Subject)

MyBase.New()

subj.registerInterest(Me) ‘注册Observer

ColFrame = Me

InitializeComponent()

fnt = New Font("arial", 18, Drawing.FontStyle.Bold)

bBrush = New SolidBrush(Color.Black)

AddHandler Pic.Paint, New Forms.PaintEventHandler(AddressOf paintHandler)

End Sub



Public Shadows Sub Dispose()

MyBase.Dispose()

components.Dispose()

End Sub

@#----

Public Sub sendNotify(ByVal mesg As System.String) Implements VBNetObserver.Observer.sendNotify

colname = mesg

Select Case mesg.ToLower

Case "red"

Pic.BackColor = Color.Red @#

Case "blue"

Pic.BackColor = Color.Blue

Case "green"

Pic.BackColor = Color.Green

End Select

End Sub

End Class

我们的listbox窗体也是一个observer观察者，它将颜色加到列表中。下面是部分主要代码。

public Class listObs

Inherits System.Windows.Forms.Form

Implements Observer

Public Sub New(ByVal subj As Subject)

MyBase.New()

listObs = Me

InitializeComponent()

subj.registerInterest(Me)

End Sub

@#-----

Public Shadows Sub Dispose()

MyBase.Dispose()

components.Dispose()

End Sub

@#-----

Public Sub sendNotify(ByVal mesg As System.String) Implements Observer.sendNotify

lscolors.Items.Add(mesg)

End Sub

End Class



在我们的程序中，点击主窗体中的任意一个radio button，它将调用每个注册过的Observer(观察者)的sendNotify方法。

运行的效果为：