【分享成果，随喜正能量】生活百般滋味，你要笑着面对，善待自己，顺其自然，生活才能处处是惊喜，事事有回应。人活一世，不要把什么都看得那么重，最怕什么都想计较，却又什么都抓不牢，盼不来的只能放下，留不住的学会放手。若人走情凉，就守心自暖；若聚散难免，便独享浮世清欢。一切顺其自然，不回头，不将就。。

《VBA中类的解读及应用》教程是我推出的第五套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。

类，是非常抽象的，更具研究的价值。随着我们学习、应用VBA的深入，有必要理解这些抽象的理论知识。对象，类，过程，方法，属性，事件，接口，接口如何实现等等。掌握了这些理论，不仅对于VBA这种寄生语言的实质有所深入的理解，也对自然界的很多事物将同样有所感悟。目前，这套教程程序文件已经通过32位，64位两种office系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA对事件的监听

第四十讲 使用WithEvents定义响应事件的对象

大家好，我们继续VBA类的学习，在这套教程中，大家会逐步认识到很多事物的本质东西，在上一讲中我们提到事件的定义时指出，事件是对象的响应。这里的对象是指接收方或者称之为事件监听者。事件的整个过程对象：事件的发起方，或者称之为事件源（Event Source），可以为按钮对象；事件的响应方，或者称之为事件监听者（Event Sink），可以为窗体或者其他的对象。在上一讲也着重地指出：事件的监听方可以为多个对象。我们在这一讲就来测试一下。

1 WithEvents关键字的意义

这一讲中我们要向大家介绍VBA中的一个关键字：WithEvents（字面意思是携带事件）。这个关键字是什么意思呢？就是要引出我们将利用这个事件的对象。当然这个对象只能在类模块和窗体模块中有效，为什么呢？对于窗体是一个对象，这一点很容易理解；而类也可以看做是一个对象的。其实WithEvents定义的对象又何尝不是虚拟的呢？这一点只能理解吧。

好了我们先定义下面的一个窗体：

2 监听事件的代码

这个窗体中我们有两个按钮：按钮1和按钮2；一个标签；我们要在按钮1按下的时候窗体和标签同时监听到这个事件，同时有不同的反应。从而说明一个事件会由多个对象监听到。好了，我们看下面的代码：

Private WithEvents myCmd As CommandButton

Private Sub CommandButton1_Click()

MsgBox "你好，我是窗体"

End Sub

Private Sub CommandButton2_Click()

Label1.Caption = ""

End Sub

Private Sub myCmd_Click()

Label1.Caption = "您好，欢迎学习VBA"

End Sub

Private Sub UserForm_Initialize()

Set myCmd = UserForm1.CommandButton1

Label1.Caption = ""

End Sub

Private Sub UserForm_Terminate()

Set myCmd = Nothing

End Sub

代码截图：

3 事件监听过程的分析

代码解析：

1） 在这个过程中我们定义了一个myCmd对象，用于响应CommandButton1_Click，即CommandButton1的单击事件。

2） 在窗体的加载时Set myCmd = UserForm1.CommandButton1 令myCmd对象指向CommandButton1.

3） 当CommandButton1的单击事件发生时：窗体的监听到后弹出对话框，“你好，我是窗体”

对象myCmd监听到后修改了标签的文本内容“您好，欢迎学习VBA”

下面看一下代码的测试：

也许有的朋友说，老师，为什么要引入一个如此虚拟的对象mycmd 呢？把代码直接写入单击事件不就行了吗？各位学员，不要有这种想法，这套教程侧重的是理论，不是实现的手段。这里讲的是对于事件的监听，在理论学习阶段大家要理解这个过程。

对于事件的理解，希望大家能把握。

今日内容回向：

1 如何理解事件的监听？

2 一个事件的响应必须是一个对象吗？

本讲内容参考程序文件：VBA-CLASS（39-40）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】凡事不必苛求，来了就来了；凡事不必计较，过了就过了；遇事不要皱眉，笑了就笑了；结果不要强求，做了就对了；生活就是一种简单，心静了就平和了。