碧雪的博客网

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://cibe.yourblog.org/logs/135251.html

第28楼 创建对象 创建对象的最简单方法是在“工具箱”中双击控件。但是，对 Visual Basic 中的所有可用对象以及来自其它应用程序的所有可用对象，要想充分体现它们的优势，可在运行时用 Visual Basic 的可编程性能创立对象。 用对象变量创建对象引用。 用类模块“从零开始”创建自己的对象。 用集合对象创建自己的集合。 详细信息 其它章节会介绍如何访问对象。例如，在“用部件编程”中将讨论 CreateObject 和 GetObject 函数。 使用对象变量 除了存储值以外，变量可引用对象。如同给变量赋值一样，基于下列相同理由，可把对象赋给变量： 变量名往往比变量所含的值（或者，在此情况下，所含值就是它们引用的对象）短而好记。 在运行代码时，为了引用其它对象，应改变变量。 引用包含对象的变量比反复引用对象本身有更高的效率。 使用对象变量与使用常规变量一样，只不过多了把对象赋予变量这一步： 首先声明变量： Dim variable As class 然后把对象赋予变量： 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 中有四种一般对象： 一般对象类型 可引用的对象 Form 应用程序中的任何窗体（包括 MDI 子窗体和 MDI 窗体）。 Control 应用程序中的任何控件。 MDIForm 应用程序中的 MDI 窗体（如果应用程序有 MDI 窗体的话）。 Object 任何对象。 在不知道变量运行时是否引用特定类型的对象时，一般对象变量是很有用的。例如，如果要书写代码，并使之在应用程序的任何窗体中都可操作，则必须使用一般窗体变量。 注意 由于应用程序中只能有一个 MDI 窗体，因此不必使用一般的 MDIForm