vb对象的使用(二).docVIP

vb对象的使用（二） 发布时间：2007-05-05 来源： 作者： 创建对象 创建对象的最简单方法是在“工具箱”中双击控件。但是，对 Visual Basic 中的所有可用对象以及来自其它应用程序的所有可用对象，要想充分体现它们的优势，可在运行时用 Visual Basic 的可编程性能创立对象。 1.用对象变量创建对象引用 2.用类模块“从零开始”创建自己的对象 3.用集合对象创建自己的集合 详细信息 在其它章节将会介绍如何访问对象。例如，在第十章“用部件编程”中将讨论 CreateObject 和 GetObject 函数。 使用对象变量 除了存储值以外，变量可引用对象。如同给变量赋值一样，基于下列相同理由，可把对象赋给变量： 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。 一般对象变量可在多种特定对象类型中引用其中一种。例如，一般窗体变量可引用应用程序中的任何窗体；一般控件变量可引用应用程序中任何