vba多个button响应一个事件
大家好，我们今天继续讲解类的相关知识。在上一讲中我们讲了使用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人，
暗夜中，悄声寻梦，盼却天明。
怎无凭！
分享成果，随喜正能量