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

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

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

0eb2cff103ae7c3ed9d04e26e932c36d.png

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

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

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

c33008abd43f6fa73d70ceec9131c651.png

这个窗体中我们有两个按钮:按钮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

代码截图:

73b0902b000560f6c2d7d06558d733db.png

代码解析:

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

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

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

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

下面看一下代码的测试:

ca98da8fa97493241dacc639ae885407.png

b4ad9ca6c74d75722702b76300522d99.png

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

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

今日内容回向:

1 如何理解事件的监听?

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

备注:本讲测试程序参考:VBA-CLASS(上39-40).xlsm

cbe69c11f156fd94ff3344eec7df1d84.png

在取代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的顺序逐渐深入的逐渐学习。

56673cf80cc503ad493868bc1efd3573.png

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

浮云掠过,暗语无声,

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

望星,疏移北斗,

奈将往事雁同行。

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

多少VBA人,

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

怎无凭!

分享成果,随喜正能量

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值