全局变量的定义和使用

在用VB开发软件时，经常需要在不同的窗体间共享数据，但在过多的使用全局变量时不便于软件的调试和修改。通常有两种解决方法。

第一种方法：定义全局变量，然后在各个窗体中直接使用，例如Public strCustomerID As StringPublic strCustomerName As String

第二种方法：添加一个模块专门用于定义变量，然后定义一些Public过程或函数来设置和获取这些数据，例如Dim strCustomerID As StringDim strCustomerName As String

Public Sub SetCustomerID(CustomerID As String) strCustomerID = CustomerIDEnd Sub

Public Function GetCustomerID() As String GetCustomerID = strCustomerIDEnd Function

Public Sub SetCustomerName(CustomerName As String) strCustomerName = CustomerNameEnd Sub

Public Function GetCustomerName() As String GetCustomerName = strCustomerNameEnd Function

其实这两种方法都有缺点，使用第一种方法时，当过程或函数中过于频繁的使用全局变量时会给调试和修改程序带来很大的工作量,有时会产生灾难性的后果。使用第二种方法时，若共享数据很多，则需要定义很多的Set*和Get*函数。小弟经验有限，望各位大虾多多指教，同时欢迎来Email：xbxue@163.com共同探讨。