Henry手记－VB.net WinForm中的FORM初探(二）
韩睿 (2002.9.25)
二、怎么样切换两个窗体？
在上一节中，我们认识到vb.net窗体的新特性，也知道了怎么样show出一个窗体了。那么面对一个这样的需求（也是真实的提得较多的问题）。怎么样实现两个窗口间的切换。即：
窗体一：Form1,上面有个button1
窗体一：Form2,上面有个button2
点击button1，会show出Form2；点击button2，会show出Form1。
如果在vb6中，我们还真不用费工夫写文章来讨论了//hehe。上一节中我们讨论的是 Visual Basic .NET 与 Visual Basic6 在窗体处理机制上的关键区别——你只有先创建窗体实例，然后才可以显示窗体外观、访问窗体属性及其控件。
这节中讨论的是另一个区别：Visual Basic 6.0 项目自动创建的默认窗体实例都能被当成全局变量使用，也就是说，项目中的任何代码都能直接引用窗体，并且每次被引用的都是该窗体的同一个实例。Vb.net呢？是不能这样做了。
我们先来做个小实验，来加深类与对象的概念。
你在一个窗体frmMain里，放四个按钮，在每个按钮的click事件里写上：
dim frm1 as new form1
frm1.show
那么，你将会看到四个一模一样的form1。
明白了吧？但此form1非彼form1，都是form1类的一个个实例化的内容。
所以我们不能指望在调用的时候，命名一个局部的frm1就能一直都对form1的实例进行控制，这是不可能的。
也就是说，在button1的click事件中写：
dim frm2 as new form2
frm2.show
me.hide
在button2的click事件中写：
dim frm1 as new form1
frm1.show
me.hide
是有问题的，你发现问题在哪了吗？就在于click事件中写的都是局部变量，每一次都会新生成一个Form的实例，而hide起来的那个form的实例却再也show不回来了。如果不在form的closing（关闭时触发）或其它类似事件中做任何处理，该程序的进程是不会停止的，这是由于做为主线程的第一个form1是被hide起来了，它还在运行着，进程当然不会终止喽。
解决方法有很多，比如
1) 在module中定义Form的全局变量
2) 用share变量模拟vb6中窗体切换的实现
一个一个说明一下吧，希望对朋友们有所启发：
1) 在module中定义Form的全局变量
给程序工程加一个模块，用于存放公用变量，及启动控制用：'Module1.vbModule Module1Public F1 As New Form1() ‘定义Form1的公用变量实例Public F2 As New Form2() ‘定义Form1的公用变量实例Sub Main()Application.Run(F1) ‘这句话表明程序启动了modele后，会接下来启动f1,即form1的一个实例End SubEnd Module'Form1.vbClass Form1...Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickF2.Show() '利用公用变量F1.hide()End SubEnd Class'Form2.vbClass Form2...Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickF1.Show()F2.Hide()End SubEnd Class同时请在：解决方案管理器-〉windowsapplication1.sln -〉右点鼠标 -〉属性 -〉通用属性->常规->启动对象 -〉改为Module1
上面最后一句话的意思是让程序在启动时先执行Module1中的代码。初始化两个Form的公用变量，进程入口在它的sub main，用于启动F1（Form1的实例）。用这个方法，我们可以完成很多窗体间控件控制（比如Form1上的操作结果显示到Form2的文本框中去）和数据传递。在这里要注意的是，只有关闭了F1窗体，程序才会被终止。我们可以做一些处理，比如在Form的closing事件里加入end等等。
但在vb.net中其实是不赞成使用公用变量的，一是由于生存期的管理，二是引用时的混乱问题。那么我们还有没有其它的解决方法？
2) 用share变量模拟vb6中窗体切换的实现
其实有个最简单但是极有用的方法，不知道您想到了吗？就是利用vb.net自带的升级向导工具进行升级呀！(尽管很多人骂这个工具不行，但有的工作它还是可以做得很好的)
我就这样做了，先在vb6中写了两个Form，
Form1:
Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
End ’关闭Form1，程序结束
End Sub
Fomr2:
Private Sub Command2_Click()
Form1.Show
Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form1.Show 关闭Form2，唤出Form1
End Sub
升级后，多了一组用Region折起来的“升级支持”
Form1:
#Region "升级支持"
Private Shared m_vb6FormDefInstance As Form1
Private Shared m_InitializingDefInstance As Boolean
Public Shared Property DefInstance() As Form1
Get
If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
m_InitializingDefInstance = True
m_vb6FormDefInstance = New Form1()
m_InitializingDefInstance = False
End If
DefInstance = m_vb6FormDefInstance
End Get
Set
m_vb6FormDefInstance = Value
End Set
End Property
#End Region
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Form2.DefInstance.Show()
Me.Hide()
End Sub
Private Sub Form1_Closed(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
End
End Sub
在Form2中，除了升级支持外的代码是：
Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Form1.DefInstance.Show()
Me.Hide()
End Sub
Private Sub Form2_Closed(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
Form1.DefInstance.Show()
End Sub
在上面的代码中，要注意的是是用Form1.DefInstance.Show()来show出Form1的一个实例。DefInstance 是 Shared的属性，它能以 “窗体名.DefInstance” 的形式直接访问。它所在项目中的任何代码访问它都将得到同一个窗体实例。
这样，我们就能模拟 vb6完成的项目对窗体的直接引用了，只不过在代码中以 Form1.DefInstance 代替 Form1 而已。如果要设置窗体上的一个label的内容，现在是这样用了：Form1.DefInstance.Label1.text=”Henry”
我们完全可以copy下“升级支持”这一段代码，然后注意我上两段写的内容，就可以不用升级工具，而自己动手写了。
----
声明：本文版权与解释权归韩睿所有，如需转载，请保留完整的内容及此声明。
QQ: 18349592
本文地址：http://com.8s8s.com/it/it45922.htm