excel表格_excel函数公式大全_execl从入门到精通
利用VBA类的方法和事件，让文本框在激活时改变颜色(下)2024-05-18 21:27:01
（接上讲）
我们接着上讲的内容讲解，这讲我们看程序的运行.根据程序的运行过程再次理解类的相关知识。
1 点击此程序的运行按钮，弹出下面的窗体。
上面窗体在弹出的时候，执行了下面代码：
If TypeName(myctl) <> "CommandButton" And TypeName(myctl) <> "Label" Then
yy = TypeName(myctl)
m = m + 1
ReDim Preserve mytexbox(1 To m)
Set mytexbox(m) = New mytebox '创建一个新的mycdl类对象
Set mytexbox(m).mBOX = myctl '设置关联
End If
Next
将每个文本框设置为新的类，并关联上了响应类事件的类对象mBOX。
2 我们点击第二排第一个文本框,由于这个文本框关联了响应类事件的类对象的mBOX.我们到类模块中看看mBOX有什么事件发生：一共是两个事件：mBOX_Change和mBox_MouseDown。当点击发生生会发生mBox_MouseDown事件：
Private Sub mBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For i = 2 To 4
With UserForm7.Controls("TextBox" & i)
.ForeColor = 0 '（黑色）
.BackColor = 16777215 ' (白色)
TT = .Text
End With
Next
mBOX.BackColor = 16711680 ' (蓝色)
mBOX.ForeColor = 16777215 '白色
End Sub
这个事件中将把前景变成白色，背景变成蓝色。
3 当我们录入数值时发生了mBOX_Change事件，我们看看这个事件的代码：
Private Sub mBOX_Change()
m = mBOX.Text
If m = "" Then m = 0
If m > 100 Then
MsgBox ("已经超过100"): DoEvents
End If
End Sub
我们录入一个数值111，会触发这个事件中的弹出对话框动作：4 在窗体上的求和及重置两个按钮没有被列入类中，不会执行类的动作。
今日内容回向：
1 窗体的对象如何触发类的事件？
2 类中定义的响应类事件的对象是如何落实到窗体上控件的？
--------------------------------------------------------------------------------------
学习有用的东西需要一种不知足的精神，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里。待到暮年时再去做自欺欺人的言论。要努力提高自己，有一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。在后疫情更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。
VBA是利用Office实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现在推出了五部VBA教程。第一：VBA代码解决方案，是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点；第二：VBA数据库解决方案，是数据处理的专业利器，详细的介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。第三：VBA数组与字典解决方案，讲解VBA中的数组和字典的利用。字典是VBA代码水平提高的手段，值得深入的学习。第四：VBA代码解决方案之视频，是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。第五：VBA中类的解读和利用，是一部高级教程，对于自己理论的提高很有益处。上述教程可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的学习和利用。
在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！
分享成果，随喜正能量
标签: excel如何改变控件按钮颜色