日期:2008-04-11  浏览次数:20698 次

每一天,都有VB6的程序员开始转入.NET开发,而他们面临的最首要的问题,便是要习惯.NET里那些面向对象的金科玉律。因此,论坛上总会重复地听到网友们讨论如何在Visual Basic .NET 2003中进行窗体之间的互相访问的问题。早些时候,我特地发表了一篇关于此问题解决方案的文章,通过重写Sub New,利用Me关键字在新窗体中获得另一个窗体的实例。现在VB2005的时代马上要到来了,会不会有更简单的方法呢?答案是肯定的,所有的奥秘都藏在了My.Forms命名空间里!

其实这里本没有什么值得大书特书的地方,维护任何一个窗体类的默认实例,在VB的早期版本就提供了这项功能了。在.NET 2003,VB为了追求和其他面向对象语言风格上的一致,就忍痛把这个特性割掉。而VB2005在革新的同时,微软似乎从更理性的角度去看待那些VB6里被删去的特性(存在即是有理,不是吗?),维护窗体默认类便是被重新拾回的一项技术。只不过,现在所有窗体的默认实例都被统一在了My.Forms命名空间下(例如My.Forms.Form2),改变了VB6里混乱之治的风格(Oops,涕淌魔兽玩得走火入魔了呵呵)。但是尽管如此,你在写代码时,仍然可以省略前面的My.Forms,比如你可以在Form2.vb里这样写:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Form1.Text = "Hello My.Forms"
End Sub

哈哈,是不是又找到了VB6的感觉了?

其实我刚接触到2005里的这个特性时,我还颇有些不适应呢。由于习惯了在2003下开发,我总是自己去New一个窗体。于是我曾经突发奇想想,如果每次启动程序,是不是My.Forms都为我们自动生成一个默认的窗体实例,如果我们用不到这个实例,岂不是很浪费内存?其实不是这样的,我觉得有必要在这里说以下。

Visual Basic在执行你的代码时,当遇到了对My.Forms下某一个实例的引用,say,Form2,那么,它做的第一件事是先判断Form2窗体的默认实例(注意,是默认实例而不是你自己New出来的实例)是否已被创建。如果是的话,就引用这个实例;否的话,就创建一个默认实例。也就是说,如果你的代码里根本没有出现My.Forms.Form2的话,Form2的默认实例就根本不会被创建!所以说,My.Forms命名空间只是自动维护窗体的默认实例,而不是自动创建。同样地,My.Forms一般情况下也不负责默认实例的自动回收。

我在上面一直在强调“默认”二字,是因为我想让你记住,默认毕竟只是默认,它还是有一点点局限性:比如你不得不自己New一个窗体实例时,它就不会被包含在My.Forms空间下。所以我想说,如果你的程序里某一个窗体需要被创建很多实例的话,掌握一下VB2003里的窗体互访技术还是有些必要的。我从前的那篇文章写得有点赶,没有把代码的细节写出来,所以有些网友向我抱怨。趁着这个机会我细致地讲解一下:

我还是假设你的主窗体类名为Form1,新窗体类名为Form2,那么你现在先重写一下Form2的Sub New,使它能够接受主窗体的实例。你恐怕已经发现你找不到原来的那个Sub New了吧?没错,VB 2005 Beta向程序员隐藏了Windows自动生成窗体的代码。你是不是想起了VB6呀?哦,你和我产生同样的错觉了呵呵。其实这些代码并没有隐藏,只是被分离到Form2.Designer.vb文件下了(不信,你去打开看看)。其实这是VB2005里的一个新得令人称奇的特性,称之为Partial Types或是部分类型。限于篇幅,关于部分类型的介绍,此处从略。

先在Form2.vb中定义一个Form1类型的全局变量:
Dim frmMain As Form1

然后再重写Sub New,使frmMain指向传入的Form1实例:
Sub New(ByVal frm As Form1)
MyBase.New()
InitializeComponent()
frmMain = frm
End Sub

回到Form1.vb,我们这样创建一个Form2的实例:
Dim frmNew As New Form2(Me)

现在,你就可以在Form2.vb中随心所欲地调用主窗体实例了。

提到了Sub New,你也可以直接在Form2.Designer.vb里重写,不过既然微软把这些代码分离出来,一方面就是为了避免它们遭到污染,所以除非你是老鸟,否则我不建议你这样做。

篇末,让我们再回到Visual Basic 2005的My关键字。My向我们展示了她朝气蓬勃的一面,但你仔细看看,居然还能找出些返璞归真的味道来呢,比如说窗体的互访,就是如此。总之,My是VB2005里一个值得大书特书的新特性。如果你现在想了解My关键字更多的内容,你可以先参考我的关于My的一篇很简单的译文,然后自己在智能感知下试一试。如果你想更详细地了解My,包括上面提到的部分类型,就到我师兄Ninputer的blog装配中的脑袋里去找吧(那几篇文章是我迄今见到的最详细的)。我想,你每了解My的一项新功能,你一定会发出一声感叹:“Oh, My God!”