VB中怎样声明全局变量
3个回答
展开全部
Public 声明的就是全局的..
转贴内容如下:
VB 共享数据 全局变量
在用VB开发软件时,经常需要在不同的窗体间共享数据,但在过多的使用全局变量时不便于软件的调试和修改。通常有两种解决方法。
第一种方法:定义全局变量,然后在各个窗体中直接使用,例如
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*函数。
转贴内容如下:
VB 共享数据 全局变量
在用VB开发软件时,经常需要在不同的窗体间共享数据,但在过多的使用全局变量时不便于软件的调试和修改。通常有两种解决方法。
第一种方法:定义全局变量,然后在各个窗体中直接使用,例如
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*函数。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询