![]() ![]() |
|
全局变量的定义和使用 | |
作者:佚名 文章来源:不详 点击数 更新时间:2008/10/22 21:37:29 文章录入:杜斌 责任编辑:杜斌 | |
|
|
第一种方法:定义全局变量,然后在各个窗体中直接使用,例如 Public strCustomerID As String Public strCustomerName As String 第二种方法:添加一个模块专门用于定义变量,然后定义一些Public过程或函数来设置和获取这些数据,例如 Dim strCustomerID As String Dim strCustomerName As String Public Sub SetCustomerID(CustomerID As String) strCustomerID = CustomerID End Sub Public Function GetCustomerID() As String GetCustomerID = strCustomerID End Function Public Sub SetCustomerName(CustomerName As String) strCustomerName = CustomerName End Sub Public Function GetCustomerName() As String GetCustomerName = strCustomerName End Function 考试大提醒:其实这两种方法都有缺点,使用第一种方法时,当过程或函数中过于频繁的使用全局变量时会给调试和修改程序带来很大的工作量,有时会产生灾难性的后果。使用第二种方法时,若共享数据很多,则需要定义很多的Set*和Get*函数。 |
|
![]() ![]() |