淺談VB6.0實現多窗體交互
在VB6.0等早期版本中，多個窗體之間的交互通常需要借助默認窗體實例來完成。本文向大家介紹VB6.0實現多窗體交互，可能好多人還不了解VB6.0實現多窗體交互，沒有關系，看完本文你肯定有不少收獲，希望本文能教會你更多東西。下面我將結合某些具體的編程任務來講解如何在VB6.0實現多窗體交互，希望它能對你的開發任務有所幫助。
1、保持窗體引用的全局性
前面提到，進行 .NET 窗體編程時應該牢牢把握下列原則：在訪問窗體之前，你必須進行窗體實例化；如果在項目中有多處代碼訪問同一窗體，則你必須把它的同一實例指針傳遞給這些代碼。對于早已習慣了直接把默認窗體實例當成全局變量來使用的VB6.0程序員來說，這可是個嚴重的挑戰。好在 .NET 為你提供了兩條出路：其一，把窗體實例指針保存在全局變量中；其二，把窗體實例指針傳遞給任何需要訪問它的窗體、類、模塊或者過程。
2、.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
像這樣把窗體實例保存為屬性值就能按照你的要求模擬VB6.0中的全局變量。如此模擬的“全局變量”其作用域比類域 (class scope) 高一個層次。所謂類域，是指變量僅僅在定義它的類(確切地說，應該包括模塊、類或窗體)中有效。比類域還低一層次的是過程域 (procedure scope)，即變量僅僅在定義它的例程中有效。以上介紹VB6.0實現多窗體交互。
【編輯推薦】
