使用对象变量 除了存储值以外，变量可引用对象。如同给变量赋值一样，基于下列相同理由，可把对象赋给变量： 1.变量名往往比变量所含的值（或者，在此情况下，所含值就是它们引用的对象）短而好记。 2.在运行代码时，为了引用其它对象，应改变变量。 3.引用包含对象的变量比反复引用对象本身有更高的效率。 使用对象变量与使用常规变量一样，只不过多了把对象赋予变量这一步： 4.首先声明变量： Dim variable As class 5.然后把对象赋予变量： Set variable = object
声明对象变量 声明对象变量的方法和声明其它变量一样，要用 Dim、ReDim、Static、Private和 Public。仅有的不同在于可选的 New 关键字和 Class 参数，本章后面将会对 New 关键字和 Class 参数都作介绍。语法是： {Dim | ReDim | Static | Private | Public} variable As [New] class 例如，可以声明一个对象变量，它引用应用程序中的被称做 frmMain 的窗体： Dim FormVar As New frmMain 声明一个类型为 frmMain 的对象变量。 也可以声明一个对象变量，它引用应用程序中的任何窗体： Dim anyForm As Form 一般窗体变量。 类似地，可以声明一个对象变量，它能够引用应用程序中的任何文本框： Dim anyText As TextBox 可以引用任何文本框 （但只能是一个文本框）。 还可以声明一个对象变量，它能够引用任何类型的控件： Dim anyControl As Control 一般控件变量。 注意，可以声明一个引用应用程序中的指定窗体的窗体变量，但不能声引用特定控件的控件变量。可以声明能够引用控件的特定类型（如 TextBox或列表框）的控件变量，但不是引用那种类型的一个特定控件（如 txtEntry 或List1）。但是，可把特定的控件赋予那种类型的变量。例如，对于具有列表框 lstSample 的窗体可以这样编码： Dim objDemo As ListBox Set objDemo = lstSample
赋值对象变量 用 Set 语句将对象赋予对象变量： Set variable = object 无论何时，只要希望对象变量引用对象，就可使用 Set 语句。 有时可用对象变量，尤其可用控件变量直接缩短要键入的代码。例如，原来的代码是这样的： If frmAccountDisplay!txtAccountBalance.Text < 0 Then frmAccountDisplay!txtAccountBalance.BackColor = 0 frmAccountDisplay!txtAccountBalance.ForeColor = 255 End If 如果使用控件变量，程序就可显著缩短： Dim Bal As TextBox Set Bal = frmAccountDisplay!txtAccountBalance If Bal.Text < 0 Then Bal.BackColor = 0 Bal.ForeColor = 255 End If
特定对象类型与一般对象类型 特定的对象变量必须引用特定类型的对象或类。特定的窗体变量只能引用应用程序中的一个窗体（尽管可在该窗体的诸多实例中引用其中之一）。与此相似，特定的控件变量只能引用应用程序中的特定类型的控件，比如TextBox 或者列表框。请看一例，打开新的工程，在窗体中放置一文本框。将下列代码添加到窗体中： Private Sub Form_Click () Dim anyText As TextBox Set anyText = Text1 anyText.Text = "Hello" End Sub 运行应用程序并单击窗体。文本框的 Text 属性将变成 "Hello"。 一般对象变量可在多种特定对象类型中引用其中一种。例如，一般窗体变量可引用应用程序中的任何窗体；一般控件变量可引用应用程序中任何窗体上的任何控件。请看一例，打开新的工程并在窗体中按任意顺序放置若干 Frame、Label 和 CommandButton 控件。将下列代码添加到窗体中： Private Sub Form_Click () Dim anyControl As Control Set anyControl = Form1.Controls (3) anyControl.Caption = "Hello" End Sub 运行程序并单击窗体。刚才放入窗体中的第三个控件的标题将变成"Hello"。 Visual Basic 中有四种一般对象：