<nobr><strong style="border: 0px none ; color: rgb(0, 0, 255); font-weight: normal; text-decoration: underline;" οnmοuseοver='isShowAds = true;isShowAds2 = true;KeyGate_ads.Move(this,"","%u901A%u8FC7%u4E00%u4E2A%u7B80%u5355%u7684%u95EE%u5019%u7A0B%u5E8F%20HelloServer%20%u6765%u4ECB%u7ECD","-100879","应用程序","%u5F00%u53D1%u9AD8%u6027%u80FD%u7F51%u7EDC%u7A0B%u5E8F","http%3A//ibm.csdn.net/ISN_J.aspx%3Faction%3DJMP%26pointid%3D2613", event)' οnmοuseοut="isShowAds = false;isShowAds2 = false" οnclick='javascript:window.open("http://s4.17luntan.com/ClickPortal/WebClick.aspx?id=-100879&k=%u5E94%u7528%u7A0B%u5E8F&siteid=0098295a-e262-40f7-ae50-7a6fbbdb678b&url=http%3A//news.csdn.net/n/20040603/47067.html&gourl=http%3A//ibm.csdn.net/ISN_J.aspx%3Faction%3DJMP%26pointid%3D2613&parm=226DC19B75C55210FCFF44A0FB9B26AD7463BDE5061EEFFF&alliedsiteid=0");' class="kgb">应用程序</strong></nobr>。我想把它写成 这样一个程序：对该窗体任何一个实例的操作都会在所有其它实例上反映出来。我该怎么做？
这是一个有趣的问题。我保证某些聪明的<nobr><strong style="border: 0px none ; margin: 0px; padding: 0px; color: rgb(0, 0, 255); font-weight: normal; text-decoration: underline;" οnmοuseοver='isShowAds = false;isShowAds2 = false;isShowGg = true;InTextAds_GgLayer="_u7F16_u7A0B";KeyGate_ads.ShowGgAds(this,"_u7F16_u7A0B",event)' οnmοuseοut='isShowGg = false;InTextAds_GgLayer="_u7F16_u7A0B"' οnclick='javascript:window.open("http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=BcTl5-GQASJHUH4buuQPx5tD2Df2B2E7hn5HRBq2HmMYE4JgXEAIYAiDPgYcKKBQ4AFC7xq_5AWCdudCBkAWyAQ1uZXdzLmNzZG4ubmV0yAEB2gEqaHR0cDovL25ld3MuY3Nkbi5uZXQvbi8yMDA0MDYwMy80NzA2Ny5odG1sqQIKUbvdUiyDPsACAcgC_ZqlBagDAegD2wX1AwAEAAA&num=2&adurl=http://www.ni.com/pac/zhs%3Fmetc%3Dmtptqy&client=ca-pub-3578421812762734");GgKwClickStat("编程","ni.com/pac/zhs","afc","2000084115");' class="kgb">编程</strong></nobr>好手会建议我使用委托。在这种事情发生之前，让我们 先探究一下这个问题的几种解决方案。
假定我有两个窗体，每个窗体都有两个 textbox 控件：txt1stData 和 txt2ndData。我怎样才能保持这两个窗体中的控件同步呢？对于我们讨论的问题来说，有两个或十个窗体都不重要，问题是相同的。
第一个办法相对<nobr><strong style="border: 0px none ; margin: 0px; padding: 0px; color: rgb(0, 0, 255); font-weight: normal; text-decoration: underline;" οnmοuseοver='isShowAds = false;isShowAds2 = false;isShowGg = true;InTextAds_GgLayer="_u7B80_u5355";KeyGate_ads.ShowGgAds(this,"_u7B80_u5355",event)' οnmοuseοut='isShowGg = false;InTextAds_GgLayer="_u7B80_u5355"' οnclick='javascript:window.open("http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=BZRJQ-GQASJHUH4buuQPx5tD2Daj_tU7Mm6q0BcCNtwGQvwUQBBgEIM-BhwooFDgAUMLd-Kb8_____wFgnbnQgZAFsgENbmV3cy5jc2RuLm5ldMgBAdoBKmh0dHA6Ly9uZXdzLmNzZG4ubmV0L24vMjAwNDA2MDMvNDcwNjcuaHRtbKkCClG73VIsgz7IAtSS3gWoAwHoA9sF9QMABAAA&num=4&adurl=http://tj.28.com/ws/zkjm/index.htm%3FbannerID%3D47346%26kw%3D%25BD%25D5%25B8%25D1%25C6%25F8%25BB%25AF%25C2%25AF%26fz%3D700&client=ca-pub-3578421812762734");GgKwClickStat("简单","28.com","afc","2000084115");' class="kgb">简单</strong></nobr>。事实上，它甚至比我们直接使用委托更为简单，我想委托有时会给人用牛刀杀鸡的感觉。首先，我建立一个类它包含我希望与应用程序中的所有窗体共享的属性(参见 Figure 1)。例如，MyData 和 MoreData 拥有每个窗体都能显示的<nobr><strong style="border: 0px none ; color: rgb(0, 0, 255); font-weight: normal; text-decoration: underline;" οnmοuseοver='isShowAds = true;isShowAds2 = true;KeyGate_ads.Move(this,"","%u4E00%u4E2A%u771F%u6B63%u7684%u591A%u4EFB%u52A1%u7CFB%u7EDF","-100850","数据","AIX%20V5.3%20%u7CFB%u7EDF%u7BA1%u7406","http%3A//ibm.csdn.net/ISN_J.aspx%3Faction%3DJMP%26pointid%3D2488", event)' οnmοuseοut="isShowAds = false;isShowAds2 = false" οnclick='javascript:window.open("http://s4.17luntan.com/ClickPortal/WebClick.aspx?id=-100850&k=%u6570%u636E&siteid=0098295a-e262-40f7-ae50-7a6fbbdb678b&url=http%3A//news.csdn.net/n/20040603/47067.html&gourl=http%3A//ibm.csdn.net/ISN_J.aspx%3Faction%3DJMP%26pointid%3D2488&parm=226DC19B75C55210FCFF44A0FB9B26AD7463BDE5061EEFFF&alliedsiteid=0");' class="kgb">数据</strong></nobr>。我将很快回到这个类来。
第二，正如我早先提到的我用相同的控件(txt1stData 和 txt2ndData)建立了两个窗体。你可以参考 Figure 2 的布局。两个窗体都有完全相同的数据，并且我将很快解释为什么。
Figure 2 窗体布局
下面，我建立一个名为 modGeneral 的模块并加入下面一行代码：
Friend DataStuff As DataClass
这一行代码为我的新类 DataClass 创建了一个友元变量，使你可以完全访问程序集，对这个简单例子来说，也就是指完整的应用程序。然后我添加了下面的代码到 Form1 的 Load 事件：
DataStuff = New DataClass
Me.txt1stData.DataBindings.Add("Text", DataStuff, "MyData")
Me.txt2ndData.DataBindings.Add("Text", DataStuff, "MoreData")
第一行建立一个 DataClass 新实例。下面两行代码将数据绑定到 textbox 控件。对这个窗体而言，就这么些操作！
现在，你怎样让它们与 Form2 和其它窗体上的数据同步呢？将下面两行加入到 Form 2 的窗体load 事件中去：
Me.txt1stData.DataBindings.Add("Text",DataStuff, "MyData")
Me.txt2ndData.DataBindings.Add("Text",DataStuff, "Moredata")
这个方法容易确保所有窗体上的几乎任何类型的数据处于同步状态。你可以简单地将控件绑定到某个类的相同实例上，这就行了。
现在来看另一个方法。我创建了一个名为 frmBase 的新窗体。这时我在上面放一个 textbox (txtNextData)和 label。我想 让应用程序的每个窗体都共享这个 textbox 和 label，并且我希望它们互相之间保持同步，于是我重建这个<nobr><strong style="border: 0px none ; margin: 0px; padding: 0px; color: rgb(0, 0, 255); font-weight: normal; text-decoration: underline;" οnmοuseοver='isShowAds = false;isShowAds2 = false;isShowGg = true;InTextAds_GgLayer="_u5DE5_u7A0B";KeyGate_ads.ShowGgAds(this,"_u5DE5_u7A0B",event)' οnmοuseοut='isShowGg = false;InTextAds_GgLayer="_u5DE5_u7A0B"' οnclick='javascript:window.open("http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=B82-6-GQASJHUH4buuQPx5tD2DY7KplGmpLLpBMCNtwHAixEQBxgHIM-BhwooFDgAUOSHwLUEYJ250IGQBbIBDW5ld3MuY3Nkbi5uZXTIAQHaASpodHRwOi8vbmV3cy5jc2RuLm5ldC9uLzIwMDQwNjAzLzQ3MDY3Lmh0bWyAAgGpAgpRu91SLIM-yAK-sJoFqAMB6APbBfUDAAQAAA&num=7&adurl=http://www.rigol.com/products_waveform_generators.aspx&client=ca-pub-3578421812762734");GgKwClickStat("工程","www.rigol.com","afc","2000084115");' class="kgb">工程</strong></nobr>。通过从新的 frmBase 中的继承 ，我创建了 Form1 和Form2，因此它们继承了所有新的控件。但是我怎样能保持这些控件同步呢？这时必须写一点代码去达到此效果，这些代码在单个的类中，通过简单地调用一个函数而被复用。
Figure 3 中的代码展示了这个称为 modGeneral 模块。它的第一个任务是定义两个变量：MyForms 和 localNextData。MyForms 是一个 集合，它将包含我想要同步的窗体列表。localNextData变量将储存所有我想要在窗体里显示的数据。注意这些变量可以驻留于某个类中而不是某个模 块里。
AddForm 过程来自 modGeneral，带一个窗体实例参数，并将其加入 MyForms 集合中。我将在UpdateControlsNextData 过程中使用这个 集合以决定哪些窗体要更新。AddForm 也调用UpdateControlsNextData 来确保一个新窗体是用正确的数据更新的。
modGeneral 中的其它代码是 NextData 属性。这些属性的 set 存取器更新 localNextData 并也调用 UpdateControlsNextData 去同步所有窗体。这时所有我需要做的是 在想要改变它时设置 NextData，通过调用 UpdateControlsNextData，所有窗体将被更新。
603
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
