《VBA中类的解读及应用》教程【10165646】是我推出的第五套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。
类，是非常抽象的，更具研究的价值。随着我们学习、应用VBA的深入，有必要理解这些抽象的理论知识。对象，类，过程，方法，属性，事件，接口，接口如何实现等等。掌握了这些理论，不仅对于VBA这种寄生语言的实质有所深入的理解，也对自然界的很多事物将同样有所感悟。目前，这套教程程序文件已经通过32位，64位两种office系统测试。
这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA中类的解读及应用第十六讲:利用类方法和事件,让文本框在激活时改变颜色(中)
【分享成果，随喜正能量】最好的修行，用心甘情愿的态度，过随遇而安的生活，怀有一颗慈悲、感恩的心灵，修行的路上，处处都吉祥。
第十六讲 利用类方法和事件,让文本框在激活时改变颜色(中)
大家好，在上一讲中我们讲了利用类方法和事件，实现让文本框在激活时改变颜色的第一部分代码：类模块的建立。我们今天继续讲解，这讲讲的是窗体的代码。
3 窗体的构建及代码
为了实现上述的目的，我们首先要构建一个窗体，由文本框和按钮组成：
窗体的代码如下：
Dim mytexbox() As New mytebox
Private Sub CommandButton1_Click()
If TextBox2.Text = "" Then
t1 = 0
Else
t1 = TextBox2.Text + 0
End If
If TextBox3.Text = "" Then
T2 = 0
Else
T2 = TextBox3.Text + 0
End If
If TextBox4.Text = "" Then
T3 = 0
Else
T3 = TextBox4.Text + 0
End If
TextBox1.Text = t1 + T2 + T3
End Sub
Private Sub CommandButton2_Click()
For i = 1 To 4
With UserForm7.Controls("TextBox" & i)
.ForeColor = 0 '（黑色）
.BackColor = 16777215 ' (白色)
.Text = ""
End With
Next
End Sub
Private Sub UserForm_Initialize()
For Each myctl In Me.Controls
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
End Sub
代码截图：
4 窗体代码的讲解
在上面的语句中有两个按钮的事件，及窗体的构建代码。
1） 窗体的构建函数：
Private Sub UserForm_Initialize()
For Each myctl In Me.Controls
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
End Sub
上述代码中我们先对每一个控件进行循环，如果是文本框控件，那么将这个文本框定义为新的类并设置类与mBOX 类事件对象的关联。以便让文本框响应我们需要的动作。
2）“求和”按钮是把后三个的文本框值相加。
3） “重置”按钮是清空文本框内容，包括颜色设置地复位。
今日内容回向：
1 在窗体的构建中要解决什么问题？
2 如何让窗体的实际对象响应已经定义了类事件的对象？
本讲内容参考程序文件：VBA-CLASS（1-28）.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
