模块内部使用的变量
按照缺省规定，模块级变量对该模块的所有过程都可用，但对其它模块的代码不可用。可在模块顶部的声明段用 Private 关键字声明模块级变量，从而建立模块级变量。例如：
Private intTemp As Integer
在模块级，Private 和 Dim 之间没有什么区别，但 Private 更好些，因为很容易把它和 Public 区别开来，使代码更容易理解。
所有模块使用的变量
为了使模块级的变量在其它模块中也有效，用 Public 关键字声明变量。公用变量中的值可用于应用程序的所有过程。和所有模块级变量一样，也在模块顶部的声明段来声明公用变量。例如：
Public intTemp As Integer
注意 不能在过程中声明公用变量，只能在模块的声明段中声明公用变量。
详细信息 有关变量的其它信息，请参阅 “高级变量主题”。
高级变量主题
使用多个同名的变量
如果不同模块中的公用变量使用同一名字，则通过同时引用模块名和变量名就可以在代码中区分它们。例如，如果有一个在 Form1 和 Module1 中都声明了的公用 Integer 变量 intX，则把它们作为 Module1.intX 和Form1.intX 来引用便得到正确值。
为了看清这是如何工作的，在一个新工程中插入两个标准模块，并在窗体上画上三个命令按钮。
在第一个标准模块 Module1 之中声明一个变量 intX。Test 过程设置它的值：
Public intX As Integer '声明 Module1 的 intX。
Sub Test ()
'设置 Module1 的 intX 变量的值。
intX = 1
End Sub
在第二个标准模块 Module2 中声明了第二个变量 intX，它有相同的名字。又是名为 Test 的过程设置它的值：
Public intX As Integer '声明 Module2 的 intX。
Sub Test ()
'设置 Module2 的 intX 变量的值。
intX = 2
End Sub
在窗体模块中声明了第三个变量 intX。名为 Test 的过程又一次设置它的值。
Public intX As Integer '声明了该窗体的 intX 变量。
Sub Test ()
' 设置 form 中的 intX 变量值。
intX = 3
End Sub
在三个命令按钮的 Click 事件过程中，每一个都调用了相应的 Test 过程，并用 MsgBox 来显示这三个变量的值。
Private Sub Command1_Click ()
Module1.Test ' 调用 Module1 中的 Test。
MsgBox Module1.intX ' 显示 Module1 的 intX。
End Sub
Private Sub Command2_Click ()
Module2.Test ' 调用 Module2 中的 Test。
MsgBox Module2.intX ' 显示 Module2 的 intX。
End Sub
Private Sub Command3_Click ()
Test ' 调用 Form1 中的 Test。
MsgBox intX' 显示 Form1 的 intX。
End Sub
运行应用程序，单击三个命令按钮中的每一个按钮。于是将看到三个公用变量被分别引用。注意在第三个命令按钮的 Click 事件过程中，在调用Form1 的 Test 过程时不必指定 Form1.Test，在调用 Form1 的 Integer 变量的值时也不必指定 Form1.intX 。如果多个过程或变量同名，则 VisualBasic 会取变化更受限制的值，在本例中就是 Form1 变量。
公用变量与局部变量的比较
在不同的范围内也可有同名的变量。例如，可有名为 Temp 的公用变量，然后在过程中声明名为 Temp 的局部变量。在过程内通过引用名字 Temp来访问局部变量；而在过程外则通过引用名字 Temp 来访问公用变量。通过用模块名限定模块级变量就可在过程内访问这样的变量。
Public Temp As Integer
Sub Test ()
Dim Temp As Integer
Temp = 2 ' Temp 的值为 2。
MsgBox Form1.Temp ' Form1.Temp 的值为 1。
End Sub
Private Sub Form_Load ()
Temp = 1 ' 将 Form1.Temp 的值设置成 1。
End Sub
Private Sub Command1_Click ()
Test
End Sub
一般说来，当变量名称相同而范围不同时，局限性大的变量总会用“阴影”遮住局限性不太大的变量（即优先访问局限性大的变量）。所以，如果还有名为 Temp 的过程级变量，则它会用“阴影”遮住模块内部的公用变量Temp。
阴影窗体属性和控件
由于阴影效应，窗体属性、控件、常数和过程皆被视为窗体模块中的模块级变量。窗体属性或控件的名称与模块级变量、常数、自定义类型或过程的名称相同是不合法的，因为它们的范围相同。
在窗体模块内，和窗体中控件同名的局部变量将遮住同名控件。因此必须引用窗体名称或 Me 关键字来限定控件，才能设置或者得到该控件的值或它的属性值。例如：
Private Sub Form_Click ()
Dim Text 1 ， BackColor
'假定该窗体有一个控件也叫做 Text1。
Text1 = "Variable" '变量用“阴影”遮住控件。
Me.Text1 = "Control" '要得到控件，必须用‘Me’限定。
Text1.Top = 0 '导致出错！
Me.Text1.Top = 0 '要得到控件，必须用‘Me’限定。
BackColor = 0 '变量用“阴影”遮住属性。
Me.BackColor = 0 '要得到窗体属性，必须用‘Me’限定。
End Sub
使用同名的变量和过程
专用模块级变量和公共模块级变量的名字也会和过程名冲突。模块中的变量不能和任何过程同名，也不能和模块中定义的类型同名。但可以和公用过程或其它模块中定义的类型或变量同名。在这种情况下，从别的模块访问这个变量时，就必须用模块名来限定。
虽然上面讨论阴影规则并不复杂，但是用阴影的方法可能会带来麻烦，而且会导致难以查找的错误。因此，对不同的变量使用不同的名称才是一种好的编程习惯。在窗体模块中应尽量使变量名和窗体中的控件名不一样。
静态变量
除范围之外，变量还有存活期，在这一期间变量能够保持它们的值。在应用程序的存活期内一直保持模块级变量和公用变量的值。但是，对于 Dim 声明的局部变量以及声明局部变量的过程，仅当过程在执行时这些局部变量才存在。通常，当一个过程执行完毕，它的局部变量的值就已经不存在，而且变量所占据的内存也被释放。当下一次执行该过程时，它的所有局部变量将重新初始化。
但可将局部变量定义成静态的，从而保留变量的值。在过程内部用 Static 关键字声明一个或多个变量，其用法和 Dim 语句完全一样：
Static Depth
例如，下面的函数将存储在静态变量 Accumulate 中的以前的运营总值与一个新值相加，以计算运营总值。
Function RunningTotal (num)
Static ApplesSold
ApplesSold = ApplesSold + num
RunningTotal = ApplesSold
End Function
如果用 Dim 而不用 Static 声明 ApplesSold，则以前的累计值不会通过调用函数保留下来，函数只会简单地返回调用它的那个相同值。
在模块的声明段声明 ApplesSold，并使它成为模块级变量，由此也会收到同样效果。但是，这种方法一旦改变变量的范围，过程就不再对变量排他性存取。由于其它过程也可以访问和改变变量的值，所以运营总值也许不可靠，代码将更难于维护。
声明所有的局部变量为静态变量
为了使过程中所有的局部变量为静态变量，可在过程头的起始处加上 Static关键字。例如：
Static Function RunningTotal (num)
这就使过程中的所有局部变量都变为静态，无论它们是用 Static、Dim 或Private 声明的还是隐式声明的。可以将 Static 放在任何 Sub 或 Function过程头的前面，包括事件过程和声明为 Private 的过程。
2/2 首页 上一页 1 2 |
