答案:可以将完全相同的对象变量看成所引用的对象。可以设置或返回对象的属性或者使用它所有的方法。
创建对象变量:
声明对象变量。
指定对象变量到某一对象。
声明一个对象变量
使用 Dim 语句或其它的声明语句之一(Public、Private、或 Static)去声明对象变量。一引用对象的变量必须是 Variant、Object,或是一个对象的指定类型。例如,下列声明是有效的:
'声明 MyObject 为 Variant 数据类型。
Dim MyObject
'声明 MyObject 为 Object 数据类型。
Dim MyObject As Object
'声明 MyObject 为 Font 类型。
Dim MyObject As Font
注意 如果使用对象变量前没有声明它,则对象变量缺省的数据类型是 Variant 类型。
当需等到过程运行才知道指定的对象类型时,可以利用 Object 数据类型来声明。使用 Object 数据类型来创建对任何对象的一般的引用。
如果知道指定的对象类型,必须将对象变量声明成所知道的对象类型。例如,如果应用程序包含 Sample 对象类型,则可以用下列的语句来声明一个对象变量为 Sample 对象类型:
Dim MyObject As Object '声明为一般的对象。
Dim MyObject As Sample '只声明为 Sample 对象。
声明指定的对象类型提供自动的类型检查,更快的代码,并增加可读性。
赋值对象变量给对象
使用 Set 语句可以赋值一个对象给对象变量。可以赋值对象表达式或是 Nothing 。例如,下列的对象变量赋值是有效的:
Set MyObject = YourObject ' 赋值对象引用。
Set MyObject = Nothing ' 中断关联。
可以同时使用 New 关键字和 Set 语句来声明对象变量,并赋值一对象给它。例如:
Set MyObject = New Object ' 创建和赋值
设置一个对象变量等于 Nothing,会中断此对象变量与任何特定对象的关联,如此可预防因意外的改变变量而更改对象。在关闭关联对象后,对象变量总是设置为 Nothing,所以可以检测对象变量是否指到有效的对象。例如:
If Not MyObject Is Nothing Then
' 变量引用有效的对象。
. . .
End If
当然,该检测不能绝对的决定用户是否已关闭包含对象变量所引用对象的应用程序。
引用对象的当前实例
Me 关键字可用来引用对象的当前实例,而此为代码正在执行的对象。所有与当前对象关联的过程都可以通过 Me 来引用。使用 Me 来传递关于对象的当前实例信息到其它模块中的过程显得特别有用。例如,假设在模块中有以下这些过程:
Sub ChangeObjectColor(MyObjectName As Object)
MyObjectName.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub
使用以下语句,可以调用过程并将对象的当前的实例当做参数来传递:
ChangeObjectColor Me
上一个:vb中PaintPicture怎么使用呢?
下一个:vb控制摄像头代码