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