知识大全升级到 .NET

Posted 2022-07-16 知

篇首语：哪有什么四季，遇见你，四季如春。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全升级到 .NET相关的知识，希望对你有一定的参考价值。

VB.NET中的多窗体编程：升级到 .NET 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　 一前言 　　在微软 Visual Basic 中一条简单的 Form Show 语句就能显示项目中的第二窗体 (Form ) 然而它在 Visaul Basic NET 中却行不通了因为 NET 版在窗体处理机制上有了很大的变化刚刚转向 NET 版的 Visaul Basic 程序员实在难以接受这么大的变化因为现在连显示第二窗体这么简单的任务都无从下手我希望能够通过本文向大家介绍 Visaul Basic NET 与早期的 Visual Basic 在窗体处理机制上有哪些不同之处以及如何按照 NET 的模式进行多窗体编程　　 二 Visual Basic 对 Visual Basic NET 　　窗体(窗体类)正如其它类一样无论在哪个版本的 Visual Basic 中都是必不可少的窗体也有属性方法和事件且在同一个项目中也允许创建多个窗体实例 (参见 //msdn microsoft /library/en us/off //defInstance asp) 例如假设你在 Visual Basic 项目中定义了一个窗体 Form 则你可以创建它的个实例并同时显示出来代码如下 Dim myFirstForm As Form Dim mySecondForm As Form Dim myThirdForm As Form

Set myFirstForm = New Form Set mySecondForm = New Form Set myThirdForm = New Form

myFirstForm Show mySecondForm Show myThirdForm Show 　　以上代码用条 Set 语句生成了个 Form 实例你可以把它原封不动地搬到 Visual Basic NET 中运行它照样能够正确显示个 Form 窗体在这里 Form 其实相当于一个普通的类 Visual Basic 允许代码直接访问尚未实例化的窗体类然而Visual Basic NET 却规定在访问任何类之前都要进行实例化而且必须借助实例来访问类这种变化当然有可能造成许多疑惑 Visual Basic 等早期版本能自动生成每个窗体的默认实例从而允许直接通过窗体名称来访问窗体例如在Visual Basic 项目中可以直接用代码 Form Show 显示 Form 的默认实例然而在 Visual Basic NET 中这么做只会引发错误因为 Visual Basic NET 既不会创建默认的窗体实例也不允许直接访问尚未实例化的窗体类　　这就是 Visual Basic NET 与早期 Visual Basic 在窗体处理机制上的关键区别——你只有先创建窗体实例然后才可以显示窗体外观访问窗体属性及其控件它们还有另一个区别 Visual Basic 项目自动创建的默认窗体实例都能被当成全局变量使用也就是说项目中的任何代码都能直接引用窗体并且每次被引用的都是该窗体的同一个实例例如你可以在窗体中 button 控件的 Click 事件处理程序里用代码 Form Show 显示 Form 窗体然后用下列代码改变 Form 中某个 textbox 控件 (TextBox )的内容 Form TextBox Text = Fred 　　可是你在 Visual Basic NET 中运行它却会得到一条错误消息 Reference to a Non Shared Member Requires an Object Reference (引用非共享类成员必须使用对象指针) 这是在提醒你你正在访问的类尚未进行实例化有一个简便的解决方案当你在调试过程中得到上述错误消息时就把相应的语句 Form Show() 改成 Dim myForm As New Form () myForm Show() 　　此方案适用于大多数场合然而当项目中还有其它代码访问同一个 Form 实例 (比如改变其中 TextBox 的文本) 时你可能会考虑把下列语句 Form TextBox Text = Fred 改成 Dim myForm As New Form () myForm TextBox Text = Fred 　　不幸的是这段代码创建了一个新的 Form 实例结果你所访问的窗体不再是原先的 Form 这岂不麻烦了！更坏的是你不会因此而得到任何错误消息提示同时你先前调用 Show() 显示的 Form 窗体也不会发生任何变化　　三升级向导如何解决它 　　如果你用升级向导 (Upgrade Wizard) 把 Visual Basic 项目升级为 Visual Basic NET 版则它会在每个窗体中自动添加一段特殊代码通过显式创建窗体实例来模拟早期 Visual Basic 版本中的默认实例化机制此段代码被包裹于标号为 Upgrade Support 的代码区块内借助一个新增的 Shared 属性来生成当前窗体的实例 Private Shared m_vb FormDefInstance As Form Private Shared m_InitializingDefInstance As Boolean Public Shared Property DefInstance() As Form Get If m_vb FormDefInstance Is Nothing _ OrElse m_vb FormDefInstance IsDisposed Then m_InitializingDefInstance = True m_vb FormDefInstance = New Form () m_InitializingDefInstance = False End If DefInstance = m_vb FormDefInstance End Get Set(ByVal Value As Form ) m_vb FormDefInstance = Value End Set End Property 　　代码中的 DefInstance 是一个 Shared 属性它能以窗体名 DefInstance 的形式直接访问它所在项目中的任何代码访问它都将得到同一个窗体实例这样你就能模拟 Visual Basic 项目对窗体的直接引用了只不过在代码中以 Form DefInstance 代替 Form 而已　　这时你只需用 Form DefInstance Show() 和Form DefInstance TextBox Text = Fred 分别替换原先对 Form 相应的直接引用就大功告成了假如你不用升级向导而是在 Visual Basic NET 窗体中手工插入上述代码 (以及升级向导在窗体的 New过程中自动添加的代码) 也行当然了你并不一定非要修改窗体代码因为有一种编程模式可以在 NET 项目中模拟默认窗体实例的创建本文将用余下的篇幅来介绍这种编程模式　　四 NET 窗体之间的交互 　　在 Visual Basic 等早期版本中多个窗体之间的交互通常需要借助默认窗体实例来完成下面我将结合某些具体的编程任务来讲解如何在 NET 下实现多窗体交互希望它能对你的开发任务有所帮助　　１保持窗体引用的全局性　　前面提到进行 NET 窗体编程时应该牢牢把握下列原则在访问窗体之前你必须进行窗体实例化如果在项目中有多处代码访问同一窗体则你必须把它的同一实例指针传递给这些代码对于早已习惯了直接把默认窗体实例当成全局变量来使用的 Visual Basic 程序员来说这可是个严重的挑战好在 NET 为你提供了两条出路其一把窗体实例指针保存在全局变量中其二把窗体实例指针传递给任何需要访问它的窗体类模块或者过程　　２ NET 中的数值全局化　　我以前曾经指出 Visual Basic NET 不支持全局变量现在我又要说在 NET 中可以在某种程度上实现数值全局化这算不算此一时彼一时？不我不是那种人 Visual Basic NET 确实不支持全局变量然而它借助 Shared (相当于 C# 中的 static) 变量却能模拟全局变量事实上前面介绍的 Visual Basic 升级向导自动添加到窗体代码中的 DefInstance 属性就是 Shared 类成员无论容纳 DefInstance 属性的窗体类是否已经实例化它都能被项目中的任何代码所引用象这样的 Shared 属性不就相当于全局变量吗？因此你可以创建这样的类 Public Class myForms Private Shared m_CustomerForm As CustomerForm Public Shared Property CustomerForm() As CustomerForm Get Return m_CustomerForm End Get Set(ByVal Value As CustomerForm) m_CustomerForm = Value End Set End Property End Class 　　你需要在首次实例化一个窗体时把该窗体的实例保存到一个类中 Dim myNewCust As New CustomerForm() myNewCust Show() myForms CustomerForm = myNewCust 　　这里的 CustomerForm 属性值就是你的窗体实例于是其它代码就能从项目的任何地方通过它来间接访问你的窗体了 Module DoingStuffWithForms Sub DoExcitingThings() myForms CustomerForm Text = _ DateTime Now() ToLongTimeString End Sub End Module 　　象这样把窗体实例保存为属性值就能按照你的要求模拟 Visual Basic 中的全局变量如此模拟的全局变量其作用域比类域 (class scope) 高一个层次所谓类域是指变量仅仅在定义它的类(确切地说应该包括模块类或窗体)中有效比类域还低一层次的是过程域 (procedure scope) 即变量仅仅在定义它的例程中有效　　３窗体指针在项目中的传递　　除了把窗体实例全局化以外你还可以把窗体类指针保存在变量中传递给需要访问该窗体的例程假设你有一个窗体 Form 并希望在点击 Form 中某个按钮 (Button ) 时打开另第二窗体 Form 然后在点击第二窗体 Form 中的另一个按钮 (Button ) 时进行某项计算你可以把整个代码都写在 Form 中即 Public Class Form Inherits System Windows Forms Form Dim myForm As Form

Private Sub Button _Click(ByVal sender As System Object _ ByVal e As System EventArgs) Handles Button Click myForm = New Form () myForm Show() End Sub

Private Sub Button _Click(ByVal sender As System Object _ ByVal e As System EventArgs) Handles Button Click Calculations CompoundInterestCalc(myForm ) End Sub End Class 　　无论是把窗体指针全局化还是把它以参数的形式传递都是可行的然而你必须根据项目的需要选择最佳方案当 NET 项目中只有少数几个过程需要访问特定窗体时我建议你给这些过程增加一个参数以在必要时接受窗体指针当你的项目有太多过程需要访问该窗体时你就应该考虑设置一个全局窗体指针变量当然了你最好还是考虑调整项目代码结构使得真正访问该窗体的类或者过程只有一个如果你希望用窗体来显示登录信息则你可以先创建一个类把窗体实例保存为它的 Shared 类成员然后添加一个 Shared 方法 WriteToLogWindow 来完成实际的窗体访问于是项目中的任何代码只需调用此 WriteToLogWindow 方法就能间接访问显示登录信息的窗体了 Public Class Log Private Shared m_LogForm As Form Public Shared Property LogForm() As Form Get Return m_LogForm End Get Set(ByVal Value As Form ) m_LogForm = Value End Set End Property

cha138/Article/program/net/201311/15749

知识大全 升级到 .NET

知识大全升级到 .NET