浅谈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实现多窗体交互。

文章题目：浅谈VB6.0实现多窗体交互
文章链接：http://www.mswzjz.cn/qtweb/news39/387139.html

攀枝花网站建设、攀枝花网站运维推广公司-贝锐智能，是专注品牌与效果的网络营销公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：贝锐智能

贝锐智能技术为您推荐以下文章