大家好&＃xff0c;在我之前的教程中分别讲了"VBA代码解决方案""VBA数据库方案""VBA字典和数组方案"&＃xff0c;通过对这三套教程的学习&＃xff0c;我们对VBA的基本知识和基本的操作能有了一定的了解。这套教材是在前面教材基础上的讲解&＃xff0c;希望大家在学习前面教材的基础上再学习本套教材。这套教程&＃xff0c;我们开始讲解VBA的高级内容&＃xff0c;类和类模块应用。今日的内容是第一讲&＃xff1a;什么是类&＃xff0c;什么是对象。
一什么是类&＃xff1f; 类是对象的"灵魂"。对象可以是任何事物&＃xff0c;而类不会做任何事情&＃xff0c;也不会占用内存&＃xff0c;只有当类成为对象并使用Set语句和New关键字实例化为具体对象后&＃xff0c;才能做事情并占用内存。
把类实例化为具体对象的语法为&＃xff1a;
Dim C As Class
Set C&＃61;New Class
上述语句创建了一个名为C的对象&＃xff0c;该对象的数据类型为定义的类Class。其特点是&＃xff1a;
1 使用New关键字&＃xff0c;可以创建任意数量的类的新实例&＃xff0c;并且能够将其存储在Collection对象中。
2 使用Property Let/Set/Get语句&＃xff0c;可以编写代码验证赋给类元素的值&＃xff0c;并且可以编写当值改变时执行的相应代码。例如&＃xff0c;能够编写代码确保某个值为要求的特性。
3 类可以定义方法(使用Sub过程和Function过程)&＃xff0c;执行某项动作。
注意点&＃xff1a;与用户自定义类型的区别&＃xff0c;下面给出了自定义数据类型的特点&＃xff1a;
1 在编译时必须声明所有的自定义类型变量。可以使用动态数组来处理多个自定义类型&＃xff0c;但须使用Redim Preserve关键词。
2 不能在运行时添加新的自定义类型变量。
3 不能控制赋给自定义类型中元素的值。如只能定义为整数&＃xff0c;但假如要求是大于5的值无法进行控制。
4 自定义类型只是静态地存储数据。
二 什么是类模块&＃xff0c;类属性和方法&＃xff1a;
类模块由属性和方法组成&＃xff0c;类本身类似于名词&＃xff1b;属性可以当作形容词&＃xff0c;用来描述类&＃xff1b;方法则为动词&＃xff0c;执行操作
三 类和对象的比较
让我们先来看一条非常简单的程序&＃xff0c;让我们亲身体会一下类的庐山真面目&＃xff1a;
Sub mynzclass1_1()
Sheets("1").Activate
Range("A1").Value &＃61; "Hello,VBA world"
End Sub
上面代码的第二句&＃xff1a;Range("A1").Value &＃61; "Hello,VBA world"
我们把这这句代码全部放开&＃xff0c;把隐藏的补充完整&＃xff0c;看看是什么样子&＃xff1a;
Application.ActiveWorkbook.ActiveSheet.Range("A1")&＃61;"Hello,VBA world"
我们解释一下&＃xff1a;
1 Range("A1")为对象&＃xff0c;指定单元格.
2 Range("A1")前面&＃xff0c;ActiveSheet也是对象&＃xff0c;指定了哪个工作表。
3 ActiveSheet前面又有一个对象ActiveWorkbook&＃xff0c;指定了是哪个工作薄&＃xff0c;
4 ActiveWorkbook前面还有一个Application&＃xff0c;指定的是哪个应用。
那么其中的Value是什么&＃xff1f;Value是一个Range("A1")这个对象的一个属性。那它是从哪来的呢&＃xff1f;它是由Range类定义的。那么range是类还是对象呢&＃xff1f;别急&＃xff0c;我慢慢讲解&＃xff0c;希望大家通过我的讲解能理解类和对象的关系。
在上面的讲解中&＃xff0c;我们提到实例化类为具体对象的过程&＃xff0c;其实在mynzclass_1引用了一个Range类&＃xff0c;并将之实例化后修改了它的属性。而在例子中&＃xff0c;我们只不过是将这一切都以隐藏起来&＃xff0c;直接对一个对象Range("A1")修改它的属性&＃xff0c;但Range("A1")这个对象正是引用了Ragne这个类&＃xff0c;才具有了Range类的属性"Value"。
我们把上面的代码转换一下&＃xff1a;
Sub mynzclass1_2 ()
Sheets("1").Activate
Dim RA As Range &＃39;引用一个Range类
Set RA &＃61; Range("A1") &＃39;set将类实例化
RA.Value &＃61; "Hello,world" &＃39;RA是一个对象了
Set RA &＃61; Nothing &＃39;将实例化销毁
End Sub
这段代码是上面mynzclass1_1的原始代码&＃xff0c;从中我们看出类本身并不直接为我们做什么&＃xff0c;但是&＃xff0c;它却又一直默默地隐藏在幕后规化着我们的动作。是的&＃xff0c;这就是类。它是通过对象的方式展现在我们的面前&＃xff0c;让我们无时无刻与之交流&＃xff0c;却又常常在不经意间忽视了它的存在。
现在再回到mynzclass1_1去看&＃xff0c;就会很容易的发现&＃xff0c;ActiveSheet实际引用了Worksheet类、ActiveWorkbook引用了Workbook类&＃xff0c;而Application则引用了和它同名的Application类(这也正是我们会经常被混淆的一个概念&＃xff0c;一个对象可以和被它所引用的类同名)&＃xff0c;原来我们在短短一个赋值的语句中&＃xff0c;已经在与这么多的类打交道。
那我们又要怎样来区分类和对象呢&＃xff1f;其实它们经常成对地出现在我们面前&＃xff0c;只是一个是看得见摸得着的&＃xff0c;一个却深藏不露。我们可以这样去理解类与对象&＃xff1a;类是一个概念或是一种定义&＃xff0c;每个类拥有其自己的特征和行为方式&＃xff0c;而对象就是某个类的实例。所以类是对象的"灵魂"&＃xff0c;它无处不在&＃xff0c;而你却看不到它。
比如&＃xff1a;汽车
如果作为类&＃xff1a;汽车的定义为有四个或者四个以上轮子&＃xff0c;人能够坐在上面&＃xff0c;操作它行走的工具(好难的定义)。这个时候"汽车类"是有自己的属性&＃xff0c;如&＃xff1a;汽车的前轮(是负责转向的)。汽车的前玻璃(是负责挡风的)等等。这里的"汽车"是一个概念抽象的概念。
而我们通常指的汽车是作为对象&＃xff1a;如丰田汽车就是汽车类中的一个大对象&＃xff0c;这个大对象中还有小的对象&＃xff0c;如"威驰FS"对象&＃xff0c;属性&＃xff1a;轮子是某某牌子的&＃xff0c;前挡风玻璃是某某牌子的。这些就是很具体的属性值了。
今日内容回向&＃xff1a;
1 什么是类&＃xff1f;
2 类和对象的联系是什么&＃xff1f;
京公网安备 11010802041100号