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如何改变控件按钮颜色