VB编程基础--高级变量主题

使用多个同名的变量

如果不同模块中的公用变量使用同一名字，则通过同时引用模块名和变量名就可以在代码中区分它们。例如，如果有一个在 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 。如果多个过程或变量同名，则 Visual Basic 会取变化更受限制的值，在这个例子中，就是 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

使用同名的变量和过程

专用模块级变量和公共模块级变量的名字也会和过程名冲突。模块中的变量不能和任何过程同名，也不能和模块中定义的类型同名。但可以和公用过程或其它模块中定义的类型或变量同名。在这种情况下，从别的模块访问这个变量时，就必须用模块名来限定。

虽然上面讨论阴影规则并不复杂，但是用阴影的方法可能会带来麻烦，而且会导致难以查找的错误。因此，对不同的变量使用不同的名称才是一种好的编程习惯。在窗体模块中应尽量使变量名和窗体中的控件名不一样。