大家好，我们今天继续讲解类的相关知识。在上一讲中我们讲了使用WithEvents定义响应事件的对象，那么有了对象自然要跟进到事件了，这讲就给大家讲解两个新技能——在类中定义和触发自己的事件(Event)。这两个技能，再加上上讲介绍的WithEvents，这三项技能一旦合体，就会变形成一支神奇的笔，凡是用这只笔创建的类对象，就立刻有了自主意识。这套VBA中类的解读及应用中，侧重点是理论的学习，要求大家在有一定的VBA基础上再开始的学习(这是我的第五部教程，建议大家在掌握前几套教程的内容后再学习这套教程)，我也力争用尽可能简单的例子给大家加以辅助的讲解。在这套教程中大家会体会到很多生命或者佛教的点滴，很多事物都是相通的，VBA代码不是枯燥的。

好了，我们继续讲解，在类中如何能自定义一个自己的事件呢？就是利用Event，Event是VBA的又一个关键字，专门用来定义事件。

我们在pigsy类的头部写如下代码：

Public Event BIR()

这样就定义了一个我们需要的BIR事件。是不是出奇的简单？Public表示此事件是公有的，事件是用来往外转播的，私有事件没有任何意义。所以，这里必须是Public，你可以试试将它改成Private，编译就会报错。Bir就是我们的事件名，后面有一对括号，我们可以在括号里面添加参数，当往外传播事件时，连同参数一起传递出去。我们先弄简单一点，不写任何参数。

这个事件是什么意义呢？我们姑且设定为生日事件，当pigsy类的魂赋给某个对象肉身成为一个生命后，自然会有自己的生日，我们就用这个BIR事件来提示生日。

所谓事件，我在之前利用了大量的篇幅讲解了事件，我们知道，事件要有触发，要有对象的响应，触发是很好理解的，要求对象能监听到生日这一天；那么响应呢？我们需要一个对象响应生日这个事件，我们同样在pigsy类的头部写如下代码：

Private WithEvents myTEXT As MSForms.TextBox

这里我定义了一个myTEXT对象作为监听生日的对象。在窗体的头部添加一段代码：

Private WithEvents objPigsy As pigsy

这样我们就实现了事件从监听到触发到事件发生的整个过程。下面我们要给大家讲解具体的内容了，先看类模块部分代码：

Private myName As String '宿主myName

Private myDOB As Date '宿主myDOB

Private myGender As String '宿主myGender

Public Situation As String '属性:场合

Public Event BIR()

Private WithEvents myTEXT As MSForms.TextBox

Public Enum pGender

Female

male

End Enum

Private Sub myTEXT_Change()

Debug.Print "现在时间是：" & UserForm1.TextBox1

If Format(myDOB, "SS") = Format(UserForm1.TextBox1, "SS") Then

RaiseEvent BIR

End If

End Sub

代码截图：

代码解析：

在上述的类代码中，当myTEXT发生改变时，要判断当前的时间是否为myDOB，(由于测试的原因，我在这里利用了秒做为生日的时间，这样可以在每分钟内完成一轮测试)，当检测到是出生的时间后就执行RaiseEvent BIR语句，RaiseEvent字面意思是"发起事件"。BIR就是我们定义的自定义的事件。执行这个事件有的语句是：

RaiseEvent BIR

当然，为了能让myTGEXT正常的工作，我们要在类的初始化过程中关联上必要的对象：

Private Sub Class_Initialize()

Debug.Print "二师兄睁开了眼睛，欣欣然望着这个美好的世界!"; Situation = "一般"

Set myTEXT = UserForm1.TextBox1

End Sub

其他的内容就不再过多地讲解了。

备注：第41讲和42讲内容参考测试程序文件VBA-CLASS(上41-42).xlsm

今日内容回向：

1 如何自定义类对象事件？

2 如何触发和响应类自定义事件？

在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。

学习VBA是个过程，这个过程是自己忍受孤独的过程。

"水善利万物而不争"，你看她绵绵密密，微处则无声，巨则汹涌。学习亦如此，把握现在，为达千里，需要默默耕耘，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时去自欺欺人。要在当下，用一颗充满生机的心灵，努力提高自己，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。一杯茶，满也好，少也好，不要去计较；浓也好，淡也好，其中都有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。一切众生的心都在变化，像时间一样，永远不会停留，把握现在就是福报。

VBA是利用Office实现自己小型办公自动化的有效手段，我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了五部VBA专门教程，回向给需要学习的朋友：

第一套：VBA代码解决方案 是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点，初学必备；

第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。

第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习。

第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。

第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，可以对促进自己理论的提高。

学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。在平静中积累自己的财富。我的上述教程是我多的经验的传递，大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。

最后将一阙词送给致力于VBA学习的朋友：

浮云掠过，暗语无声，

唯有清风，惊了梦中啼莺。

望星，疏移北斗，

奈将往事雁同行。

阡陌人，昏灯明暗，忍顾长亭。

多少VBA人，

暗夜中，悄声寻梦，盼却天明。

怎无凭！

分享成果，随喜正能量