| 网站地图 |
CopyRight © 2004-2007 软讯网络 All Rigths Reserved.
| C#主 | private void ShowForm2Info() { Form f2.Show(); MessageBox.Show(f2.MyName); } |
| C#从 | internal string MyName = "A Form2 Object"; |
| VB主 | Private Sub ShowForm2Info() Dim f2 As New Form2 f2.Show() MsgBox(f2.MyName) End Sub |
| VB从 | Friend MyName As String = "A Form2 Object" |
2、将以上方法反过来用，让从窗体访问创建它的主窗体中的成员，需要增加一个步骤：在从窗体的构造函数中传入一个主窗体的引用，以便找到创建它的主窗体（新建的构造函数中不要忘了调用InitializeComponent()函数）。主窗体创建从窗体对象时传入自身的引用。例如：
| C#主 | private void ShowForm2() { Form f2.Show(); }
internal string MyName = "A Form1 Object"; |
| C#从 | private Form public Form2(Form1 _f1) { InitializeComponent(); f1 = _f1; }
private void ShowForm1Info() { MessageBox.Show(f1.MyName); } |
| VB主 | Private Sub ShowForm2() Dim f2 As New Form2(Me) f2.Show() End Sub
Friend MyName As String = "A Form1 Object" |
| VB从 | Private f1 As Form1 Public Sub New(ByVal _f1 As Form1) MyBase.New() InitializeComponent() f1 = _f1 End Sub
Private Sub ShowForm1Info() MsgBox(f1.MyName) End Sub |
3、从窗体访问主窗体中的成员，如果主窗体只有一个实例，或者被访问对象是全局性的，可以将主窗体中要求访问的成员设置为静态的，加上static或Shared限定符即可：
| C#主 | private void ShowForm2() { Form f2.Show(); }
internal static string MyName = "A Form1 Object"; |
| C#从 | private void ShowForm1Info() { MessageBox.Show(Form1.MyName); } |
| VB主 | Private Sub ShowForm2() Dim f2 As New Form2() f2.Show() End Sub
Friend Shared MyName As String = "A Form1 Object" |
| VB从 | Private Sub ShowForm1Info() MsgBox(Form1.MyName) End Sub |
4、还可以运用.NET的事件委托机制，实现更加灵活的相互调用。下例是从窗体激发主窗体的事件。事件委托机制的功能事实上远比此例强大，大家可以找书看看它的详细用法。
| C#主 | private void ShowForm2() { Form f2.Show(); f2.SendMessage += new Form2.DelegateOfSendMessage(ShowMessage); }
private void ShowMessage(string str) { MessageBox.Show(str); } |
| C#从 | public delegate void DelegateOfSendMessage(string str); public event DelegateOfSendMessage SendMessage;
private void Send() { SendMessage("A Message From Form2"); } |
| VB主 | Private Sub ShowForm2() Dim f2 As New Form2 f2.Show() AddHandler f2.SendMessage, AddressOf ShowMessage End Sub
Private Sub ShowMessage(ByVal str As String) MsgBox(str) End Sub |
| VB从 | Public Delegate Sub DelegateOfSendMessage(ByVal str As String) Public Event SendMessage As DelegateOfSendMessage
Private Sub Send() RaiseEvent SendMessage("A Message From Form2") End Sub |
5、同样的道理，结合方法2和方法4可以实现主窗体激发从窗体的事件，这个请读者自己实验。当然这样一来代码会显得比较乱。一个较好的解决方法是将事件封装入一个接口，同时在事件的发布方和订阅方实现。这种技术在.NET Remoting远程对象操作技术中尤为重要，有一篇不错的文章给大家参考：《Remoting事件处理全接触》（http://www.cnblogs.com/wayfarer/articles/75213.html）
6、习惯了VB6中全局变量的朋友可能觉得.NET中不支持全局变量对于窗体间的交互很不方便，那么再请大家参考这篇文章：《.NET窗体之间的交互》（http://blog.csdn.net/warsgrobe/archive/2005/07/29/438013.aspx），里面叙述了用VB.NET模拟全局变量的方法。
OK，就说到这里。.NET是一个强大而灵活的体系，只要肯动脑筋，一定能发现不少这样的技巧。