出處： 論壇

我用單個(gè)窗體的多實(shí)例構(gòu)建一個(gè) Windows 窗體應(yīng)用程序。我想把它寫成 這樣一個(gè)程序：對該窗體任何一個(gè)實(shí)例的操作都會(huì)在所有其它實(shí)例上反映出來。我該怎么做？

　　這是一個(gè)有趣的問題。我保證某些聰明的編程好手會(huì)建議我使用委托。在這種事情發(fā)生之前，讓我們 先探究一下這個(gè)問題的幾種解決方案。

　　假定我有兩個(gè)窗體，每個(gè)窗體都有兩個(gè) textbox 控件：txt1stData 和 txt2ndData。我怎樣才能保持這兩個(gè)窗體中的控件同步呢？對于我們討論的問題來說，有兩個(gè)或十個(gè)窗體都不重要，問題是相同的。

第一個(gè)辦法相對簡單。事實(shí)上，它甚至比我們直接使用委托更為簡單，我想委托有時(shí)會(huì)給人用牛刀殺雞的感覺。首先，我建立一個(gè)類它包含我希望與應(yīng)用程序中的 所有窗體共享的屬性(參見 Figure 1)。例如，MyData 和 MoreData 擁有每個(gè)窗體都能顯示的數(shù)據(jù)。我將很快回到這個(gè)類來。

　　第二，正如我早先提到的我用相同的控件（txt1stData 和 txt2ndData)建立了兩個(gè)窗體。你可以參考 Figure 2 的布局。兩個(gè)窗體都有完全相同的數(shù)據(jù)，并且我將很快解釋為什么。


Figure 2 窗體布局

　下面，我建立一個(gè)名為 modGeneral 的模塊并加入下面一行代碼：

Friend DataStuff As DataClass

　　這一行代碼為我的新類 DataClass 創(chuàng)建了一個(gè)友元變量，使你可以完全訪問程序集，對這個(gè)簡單例子來說，也就是指完整的應(yīng)用程序。然后我添加了下面的代碼到 Form1 的 Load 事件：

DataStuff = New DataClass Me.txt1stData.DataBindings.Add("Text", DataStuff, "MyData") Me.txt2ndData.DataBindings.Add("Text", DataStuff, "MoreData")

　　第一行建立一個(gè) DataClass 新實(shí)例。下面兩行代碼將數(shù)據(jù)綁定到 textbox 控件。對這個(gè)窗體而言，就這么些操作！

　　現(xiàn)在，你怎樣讓它們與 Form2 和其它窗體上的數(shù)據(jù)同步呢？將下面兩行加入到 Form 2 的窗體load 事件中去：

Me.txt1stData.DataBindings.Add("Text",DataStuff, "MyData") Me.txt2ndData.DataBindings.Add("Text",DataStuff, "Moredata")

　　這個(gè)方法容易確保所有窗體上的幾乎任何類型的數(shù)據(jù)處于同步狀態(tài)。你可以簡單地將控件綁定到某個(gè)類的相同實(shí)例上，這就行了。

現(xiàn)在來看另一個(gè)方法。我創(chuàng)建了一個(gè)名為 frmBase 的新窗體。這時(shí)我在上面放一個(gè) textbox (txtNextData)和 label。我想 讓應(yīng)用程序的每個(gè)窗體都共享這個(gè) textbox 和 label，并且我希望它們互相之間保持同步，于是我重建這個(gè)工程。通過從新的 frmBase 中的繼承 ，我創(chuàng)建了 Form1 和Form2，因此它們繼承了所有新的控件。但是我怎樣能保持這些控件同步呢？這時(shí)必須寫一點(diǎn)代碼去達(dá)到此效果，這些代碼在單個(gè)的類中，通過簡單地調(diào)用一 個(gè)函數(shù)而被復(fù)用。

　　Figure 3 中的代碼展示了這個(gè)稱為 modGeneral 模塊。它的第一個(gè)任務(wù)是定義兩個(gè)變量：MyForms 和 localNextData。MyForms 是一個(gè) 集合，它將包含我想要同步的窗體列表。localNextData變量將儲(chǔ)存所有我想要在窗體里顯示的數(shù)據(jù)。注意這些變量可以駐留于某個(gè)類中而不是某個(gè)模 塊里。

　　AddForm 過程來自 modGeneral，帶一個(gè)窗體實(shí)例參數(shù)，并將其加入 MyForms 集合中。我將在UpdateControlsNextData 過程中使用這個(gè) 集合以決定哪些窗體要更新。AddForm 也調(diào)用UpdateControlsNextData 來確保一個(gè)新窗體是用正確的數(shù)據(jù)更新的。

　　modGeneral 中的其它代碼是 NextData 屬性。這些屬性的 set 存取器更新 localNextData 并也調(diào)用 UpdateControlsNextData 去同步所有窗體。這時(shí)所有我需要做的是 在想要改變它時(shí)設(shè)置 NextData，通過調(diào)用 UpdateControlsNextData，所有窗體將被更新。
第三個(gè)方法是定制鏈接，它是第二個(gè)方法的精華版。我創(chuàng)建它以獲得多一些窗體控件處理的靈活性。例如，我只想跟蹤和處理某些窗體，這些窗體包含必須同步的控件。這個(gè)方法 還可以讓我自己定義擬同步的控件，并且只處理這些控件的窗體。

我為這個(gè)辦法添加了另一個(gè)模塊 (modGeneralv2)，如 Figure 4 所示。該模塊包括一個(gè)集合(MyFormsToUpdate)，其中包含所有我想要同步的窗體。這個(gè)模塊 還有一個(gè)新的數(shù)組 (ControlsToUpdate)，它提供一個(gè)我要同步的控件列表。該數(shù)組的定義如下：

Private ControlsToUpdate() As String = {"txtCustomer", "txtAddress", "txtName"}

這個(gè)模塊里有一個(gè)新的替代 AddForm 的改良版本，叫做 AddFormToUpdate。該方法工作方式與AddForm 類似，但現(xiàn)在它只添加擁有一個(gè)或多 個(gè) ControlsToUpdate 數(shù)組中控件的窗體，因此只有那些含有特定控件的窗體在更新集合中。它使我可以從每個(gè)窗體中調(diào)用該函數(shù)。如果我決定以后添加某個(gè)特定的控件，它將會(huì)被自動(dòng)添 加到窗體列表。我只需對窗體代碼做細(xì)小的改動(dòng)便可以實(shí)現(xiàn)。

　　這個(gè)模塊還包含 UpdateControlsOnAllForms 過程，它執(zhí)行更新。代替上一個(gè)方法中使用的一個(gè)應(yīng)用程序級(jí)變量，我現(xiàn)在使用主窗體的概念。因此我可以將那個(gè)窗體的值拷貝到集合中的所有其它窗體。 UpdateControlsOnAllForms 其實(shí)就是一組簡單的 For...Nexts 循環(huán)遍歷某個(gè)窗體的所有控件，找到需要更新的控體，并更新它們。

　　為了在我的窗體中實(shí)現(xiàn)這一功能，我在窗體的 Load 事件中加入了這一行代碼： AddFormToUpdate(Me)

　　另外一種可選的方法，我可以將它添加到構(gòu)造函數(shù)。這一行代碼將把當(dāng)前窗體實(shí)例添加到集合進(jìn)行更新。

　　現(xiàn)在讓我們考察單個(gè)事件過程：

Private Sub txt_Leave(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles txtAddress.Leave, _ txtCustomer.Leave, txtName.Leave UpdateControlsOnAllForms(Me) End Sub

這段代碼將我想要同步的所有三個(gè)控件 (txtAddress、txtCustomer 和 txtName)的 Leave 事件捆綁到一個(gè)事件句柄上。這時(shí)我可以添加一行代碼 來調(diào)用 UpdateControlsOnAllForms。Me 被傳遞到該過程調(diào)用，從而導(dǎo)致其它窗體與該窗體同步。

　　現(xiàn)在我有三個(gè)版本的代碼，它們都可以同步窗體中控件，因此我可以進(jìn)行選擇。 我可能已經(jīng)使用了自定義事件，在 DataClass 中定義某個(gè)事件并讓每個(gè)窗體都預(yù)訂它。 然后當(dāng)這個(gè)事件觸發(fā)時(shí)，這些窗體可以從每個(gè)事件句柄中獲取新的數(shù)據(jù)并設(shè)置適當(dāng)?shù)目丶?。但是這樣做所需的代碼量一點(diǎn)也不會(huì)比第一種方法中將控件綁定到類來得 少。我可以構(gòu)建單個(gè)實(shí)現(xiàn)更新的過程，并將該過程放到某個(gè)模塊中。我需要向該過程傳遞窗體實(shí)例來實(shí)現(xiàn)更新。我可以用類中的某個(gè)事件句柄觸發(fā)這個(gè)過程。此過程 看起來就像這樣：

Sub UpdateControls(ByVal ThisForm As frmBase) With ThisForm .txtNextData.Text = localNextData End With End Sub

　　ThisForm 參數(shù)被定義為 frmBase 類型，以便它可以訪問 IntelliSense 并獲得窗體的自定義屬性。簡單地將它寫成 Form 將無法顯示 frmBase 中的屬性及其派生窗體。

另一選擇是使用委托。當(dāng)然，委托可以讓我將委托調(diào)用重定向到每個(gè)窗體的方法上。如果我使用多播機(jī)制，那么我可以讓每個(gè)窗體都處理該事件并更新相應(yīng)的控 件。用委托建立這樣的功能聽起來確實(shí)簡單，但 對我來說它更麻煩且沒有實(shí)踐價(jià)值。此外，與第三個(gè)方法中的 For...Next 循環(huán)嵌套相比，這個(gè)代碼并不難理解。畢竟，一個(gè)應(yīng)用程序花費(fèi)最大的部分仍然是它的維護(hù)。