mfc 文本框点击事件 改变背景色_在类中定义和触发自己的事件

大家好，我们这讲完成自定义事件的触发过程，在上一讲中，我们讲了一些必要的框架，下面我们要讲解在窗体模块和标准模块的代码了。首先我们建立一个窗体：

窗体的代码：

Private WithEvents objPigsy As pigsy

Private Sub CommandButton1_Click()

CommandButton2.Enabled = True

mySJ

End Sub

Private Sub CommandButton2_Click()

mySJ_1

CommandButton2.Enabled = False

End Sub

Private Sub objPigsy_BIR()

UserForm1.Image1.Visible = True

MsgBox ("现在是我的出生秒时刻")

UserForm1.Image1.Visible = False

End Sub

Private Sub UserForm_Initialize()

CommandButton2.Enabled = False

UserForm1.Image1.Visible = False

Set objPigsy = New pigsy

objPigsy.DOB = #2/3/1595 8:30:10 AM#

End Sub

Private Sub UserForm_Terminate()

Set objPigsy = Nothing

If CommandButton2.Enabled = True Then mySJ_1

End Sub

代码截图：

代码解析：

在窗体的加载中我们设置Set objPigsy 为一个New pigsy，同时要给这个对象计入它的生日时刻：

Set objPigsy = New pigsy

objPigsy.DOB = #2/3/1595 8:30:10 AM#

如何能检测到时间的流逝呢？我们需要点击开始按钮：这个时候会执行mySJ过程，这是一个什么过程呢？我们需要到标准模块中去看看了，标准模块：

Sub mySJ()

UserForm1.TextBox1 = Now

Application.OnTime Now + TimeValue("00:00:01"), "mySJ"

End Sub

代码截图：

代码解析：这段代码是什么意思呢？如果你不是很懂，需要你回过头来看看我的第一套教程"VBA代码解决方案"的第一册内容了。有了这段代码，textbox1中会显示当前的时间，由于我们在类模块对象的加载时令Set myTEXT = UserForm1.TextBox1，那么这个时候的myTEXT会不断检测文本框中的内容。直到触发BIR过程。

最后我们再来回顾一下整个执行过程：

1 窗体"测试"被加载，在加载过程中类PIGSY的魂赋给objpigsy对象。

2 当我们点击"开始"按钮时，在text的文本框中会不断显示当前的系统时间。

3 文本框的每次改变，类模块中mytext就会检测一次文本框中的内容。当秒数和objpigsy的出生秒数一样是会触发作为类对象objpigsy的BIR事件。

4 在BIR事件中，将弹出一个对话框，提示生日到了。

下面我们看看部分的代码运行截图：

今日内容回向：

1 在整个过程中，objpigsy是什么时候产生的？是什么时候消亡的？

2 mytext的监听过程的频率是什么？

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

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

怎无凭！

分享成果，随喜正能量