|
本帖最后由 碧血晶狐 于 2017-5-22 23:02 编辑
花了很久,看了论坛的大量关于类模块的文章,终于初步理解了类模块的概念。在此写一个容易理解的教程,分享给大家。
在阅读本文之前,你必须已经对VBA有了一定基础。
一、基本概念
在理解类之前,先要建立两个概念——个体和群体。
个体,指的是某一个东西。例如,一个人,一只鱼。
群体,指的是某一类东西中所有个体的集合。例如人类,鱼类。
二、个体和群体的关系
假定有三个人,分别是张三、李四、王五。
人类,包括张三、李四、王五,指的是世界上所有的人。
张三、李四、王五,是个体的人,都是群体“人”类中的个体“人”。
你可以尝试理解这样一句话:张三是一个人,他属于人类。
同样,鱼类,鸟类的概念也是相同的。
三、类的属性
所有的人,也就是人类都有相同的属性,比如身高,体重。
任何一个个体的人,都有人类共同的属性。
张三是人类中的一个个体,因此就拥有人类的属性。
四、类的概念
VBA中的类模块,本质上是定义了一种群体。定义群体的方式,就是申明群体的属性。
五、实战
首先,我们定义一个类模块,模块的名称叫做“人”。
在类模块中可以定义“人”类的共有特征,例如:
- Public 身高 As Double ‘定义所有人类的一个属性为身高。
- Public 体重 As Double ‘定义所有人类的一个属性为体重。
复制代码
然后,我们在一般模块中就可以使用“人”类。使用的办法和系统类的方式一样。
我们可以定义“张三”是一个人,也就是属于“人”类,就可以使用下面代码
- Sub Test()
- Dim 张三 As New 人 ‘ 声明“张三”是“人”类的一员
- ‘ 接着,我们就可以定义张三的身高和体重了。
- 张三.身高=1.7 ‘ 赋值张三的身高
- 张三.体重=60 ‘ 赋值张三的体重
- ‘ 到此,我们可以使用张三的属性了。
- Debug.Print 张三.身高 ‘ 把张三的身高输出到调试窗口
- End Sub
复制代码
到这里,希望你已经理解VBA中“类”的含义。
|
|