vba 定义类_使用WithEvents定义响应事件的对象

最新推荐文章于 2025-04-19 16:33:14 发布

weixin_39962356

最新推荐文章于 2025-04-19 16:33:14 发布

阅读量1.8k

点赞数 1

文章标签： vba 定义类

本文通过实例演示了VBA中事件监听的概念及应用，重点介绍了WithEvents关键字的作用，并通过两个按钮触发不同对象响应的案例，展示了如何实现多对象监听同一事件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

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

这个窗体中我们有两个按钮：按钮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 mCmd = Nothing

End Sub

代码截图：

代码解析：

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

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

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

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

下面看一下代码的测试：

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

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

今日内容回向：

1 如何理解事件的监听？

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

备注：本讲测试程序参考：VBA-CLASS（上39-40）.xlsm

在取代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人，

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

怎无凭！

分享成果，随喜正能量