《VBA中类的解读及应用》教程【10165646】是我推出的第五套教程，当今照旧是初版改造了。这套教程定位于最高等，是学完低级J9九游会，中级后的教程。

类，曲直常概括的，更具探究的价值。跟着咱们学习、应用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推论教化J9九游会，一皆浓缩鄙人面的各个教程中：