vba类模块浅显学习之七，类模块自身事件

wbzxz · 发表于 2011-4-12 22:58

本帖最后由 wbzxz 于 2011-4-15 08:07 编辑

距离上一次写类模块的心得已经有三周时间啦，之所以过了这么久的时间，一是时间有限，还有主要的原因就是类模块的事件这一部分让我纠结了很久，翻阅了不少资料，现在才感觉略微有一点点清晰，战战兢兢的继续写下去，一方面与大家分享，另一方面也希望在写心得的过程中，能让自己的思路更清晰些。

今天我要分享的是“类模块自身事件”，之所以用这个题目，是因为类模块能够自定义事件（这也是把我搞晕很久的原因），为了与类模块的自定义事件区分开，我把今天的内容称之为“类模块自身事件”。

类模块自身事件很简单，也很好理解。
之所以说它简单，因为他只有两个事件：Class_Initialize和Class_Terminate
之所以说它好理解，是因为调用事件过程和Sheet1，Sheet2，Sheet3，Thisworkbook这些模块一样，都可以通过代码窗口的下拉框中找到，如图所示

Class_Initialize事件：在创建对象（类的实例）时触发，可用于设置对象属性的默认值。
Class_Terminate事件：在销毁对象时触发，可用于对象销毁前的整理工作。

因为没有对Class_Terminate事件理解的透彻，也不敢举关于Class_Terminate的例子，这里仅仅举一个关于Class_Initialize的例子。

在下面的例子中，我们通过Initialize事件，在类模块中为“姓名，每小时工资，每周工作时间”三个属性赋了初值，代码如下：

Public 每小时工资 As Double
Public 每周工作时间 As Double
Private 中间姓名变量 As String
Public Function 每周工资() As Double
每周工资 = 每小时工资 * 每周工作时间
End Function
Property Get 姓名() As String
姓名 = 中间姓名变量
End Property
Property Let 姓名(参数变量 As String)
中间姓名变量 = 参数变量
End Property
'在初识化事件中，给各属性赋初值，作为属性的默认值
Private Sub Class_Initialize()
姓名 = "张三"
每小时工资 = 15
每周工作时间 = 40
End Sub

复制代码

在标准模块中，即使没有给“姓名，每小时工资，每周工作时间”三个变量赋值，仍然可以得到相应的结果，代码如下：

Sub EmployeePay()
Dim 新雇员 As New 雇员 '创建“雇员”类模块对象的单个实例——新雇员
'读取“新雇员”的各个属性的值
MsgBox "雇员姓名:" & 新雇员.姓名 & Chr(13) & _
"雇员每小时工资:" & 新雇员.每小时工资 & Chr(13) & _
"雇员每周工资:" & 新雇员.每周工资 & Chr(13)
End Sub

复制代码

大家通过上面的代码可以看到，利用Initialize事件，为对象的属性赋予了初始值，这样在标准模块中没有赋值的情况下，也是不容易出现错误的。

vba类模块浅显学习之一，定义变量与作用域

vba类模块浅显学习之二，最简单的类模块

vba类模块浅显学习之三，控制类模块的属性

vba类模块浅显学习之四，进一步理解如何控制类模块的属性

vba类模块浅显学习之五，类模块的属性定义小结

vba类模块浅显学习之六，类模块创建方法

兰色幻想 · 发表于 2011-4-13 08:11

字母很有钻研精神~~赞一个！

wbzxz · 发表于 2011-4-13 08:13

嘿嘿，谢谢兰版支持，有您领航，我就跑不偏啦，嘿嘿。

老糊涂 · 发表于 2011-4-15 07:50

谢谢分享

yiyiyicz · 发表于 2011-4-16 21:24

本帖最后由 yiyiyicz 于 2011-4-16 21:28 编辑

楼主的谨慎，让我等跟着学的，很放心
另外，在类模块里给对象赋值，在实际当中的意义好像不大。如果是规律性的常量，在类模块中设定，这可以理解
如果作为模板（工厂），实际情况千差万别，是不是应该由模块或者是sub end这样的调用程序来赋值，或者交互问答来，比较符合实际
当然，我理解这是为了问题

wbzxz · 发表于 2011-4-16 21:31

这是给类模块的属性赋初始值，可以防止在使用的时候，忘记给属性赋值造成的错误，呵呵。

Matt_Yao · 发表于 2018-8-15 20:52

貌似不见了第八章？

		自动登录	找回密码
密码			注册

[分享] vba类模块浅显学习之七，类模块自身事件

评分