jmenuitem监听事件触发事件_监听过程中触发事件，祝二师兄生日快乐

你已选中了添加链接的内容蓝字关注，加微信NZ9668获资料信息

 VBA解决方案   系列丛书作者 

头条百家平台 VBA资深创作者

_______________________________

(接上讲) 在前面的三讲中我们讲了类模块，窗体模块，以及标准模块的建立以及其中的部分代码，在这一系列的讲解中，我们了解了如何对事件源进行监听，那么监听的目的是什么呢？对了，就是在符合某个条件的时候触发我们的过程。 在这讲中我们就讲解如果窗体的时间秒和myDOB 的时间秒相等时所执行自定义事件BIR 的过程。BIR 过程我们是在类模块中定义的：Public Event BIR(inAge As Integer) 这个过程需要传入一个参数inAge As Integer ，这个参数是年龄。这个事件是在哪里呢？对的，由于事件是类的事件，我们就要在类的对象中去找寻，在窗体的加载过程中我们定义了Set objPigsy = New pigsy ，所以我们要在窗体的模块中写入这个事件，代码如下：Private Sub objPigsy_BIR(inAge AsInteger)UserForm1.Image1.Visible = TrueobjPigsy.AgeA = objPigsy.AgeA + 1UserForm1.Label1.Caption = Time& " ，是俺" & objPigsy.Name & " 的" & inAge & " 岁生秒" MsgBoxTimeOut 0, " 俺" & objPigsy.Name &inAge & " 岁生秒了", " 提示", 64, 0, 5000'MsgBox " 俺" & objPigsy.Name &inAge & " 岁生秒了"UserForm1.Image1.Visible = FalseEnd Sub 代码截图：    代码讲解：1 在这个过程中我们要首先将objPigsy 的AgeA 属性加上1 ，表示年龄增加了一岁。2 将UserForm1.Label1.Caption 的显示更新为Time & " ，是俺" & objPigsy.Name &" 的" & inAge & " 岁生秒" ，注意这里改成了" 岁生秒" ，如果你可以有足够的耐心用大师兄的实际年龄来取值，不妨可以按年来触发这个事件。3  弹出一个对话框 " 俺" & objPigsy.Name &inAge & " 岁生秒了" ，大家要注意这个弹出对话框的显示是可以自动消失的，为什么要自动消失呢，以免影响我们的二师兄过生日呢。自动消失的时间是5 秒钟。 如何做到自动消失呢？详细的讲解大家可以参考《VBA 代码解决方案》的相关内容。这里利用了一个MsgBoxTimeOut API 函数，所以我们要在标准模块的头部加上下面的代码：Public Declare FunctionMsgBoxTimeOut Lib "user32" Alias _"MessageBoxTimeoutA"(ByVal hwnd As Long, ByVal lpText As _ String, ByVal lpCaption As String, ByVal wTypeAs Long, ByVal _ wlange As Long, ByVal dwTimeout As Long) AsLong 截图如下：   4  上面的工作结束后我们就让二师兄过生日的专用图片消失： UserForm1.Image1.Visible= False  好了，到这里我们就把整个代码的过程大体上讲了一遍，还有一些小的细节没有讲到，大家可以参考我的测试程序文件自己理解，这一讲是二师兄成长系列的结束篇，大家可以从中看到类的实际代码，整个过程对于大家理解类的知识是非常有帮助的。 下面我们简单地看看代码的执行过程：    我在5 秒钟内做了一个视频的截图，大家看看，还是很好玩的：  看看我们的二师兄，憨态可掬的样子，也是我们写出这讲代码的一个回报吧。当然，理论掌握后要用到实际中，本书的内容虽然实例较多，但这些实例大部分是为了让大家更好地接受理论。  今日内容回向：1 自定义事件中传入参数的意义是什么？2  如何做到提示框自动消失？3  “监听的目的是为了实现自定义事件的响应”，如何理解这句话呢？    在取代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 人， 暗夜中，悄声寻梦，盼却天明。 怎无凭！    分享成果，随喜正能量

_____________________________ 

有启发 点在看，转给朋友  约作者 请留言，直接交流

更多关联阅读