高亮显示文本框激活的测试效果

【分享成果，随喜正能量】 不是井里没有水，而是挖的不够深;不是成功来的慢，而是放弃速度快。得到一件东西需要智慧，放弃一样东西则需要勇气!一个人有一个人的天性，一个人有一个人的活法。在这个世界上是独一无二的，只要你保持了本色，生活同样绚丽夺目。有眼界才有境界，有实力才有魅力，有思路才有出路，有作为才有地位。政从正来，智从知来，财从才来，位从为来!

《VBA中类的解读及应用》教程是我推出第五套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。

类，是非常抽象的，更具研究的价值。随着我们学习、应用VBA的深入，有必要理解这些抽象的理论知识。对象，类，过程，方法，属性，事件，接口，接口如何实现等等。掌握了这些理论，不仅对于VBA这种寄生语言的实质有所深入的理解，也对自然界的很多事物将同样有所感悟。目前，这套教程程序文件已经通过32位，64位两种office系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是第17讲：高亮显示文本框激活的测试效果

第十七讲  利用类方法和事件,让文本框在激活时改变颜色(下)

（接上讲）

我们接着上讲的内容讲解，这讲我们看程序的运行.根据程序的运行过程再次理解类的相关知识。

5  窗体的初始化执行过程

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。

6  程序的执行效果

1）  我们点击第二排第一个文本框,由于这个文本框关联了响应类事件的类对象的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

这个事件中将把前景变成白色，背景变成蓝色。

2） 当我们录入数值时发生了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，会触发这个事件中的弹出对话框动作：

3） 在窗体上的求和及重置两个按钮没有被列入类中，不会执行类的动作。

今日内容回向：

1  窗体的对象如何触发类的事件？

2  类中定义的响应类事件的对象是如何落实到窗体上控件的？

本讲内容参考程序文件：VBA-CLASS（1-28）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

各套教程内容简介:

第7套教程（共三册）：《VBA之EXCEL应用》：是对VBA基本的讲解

第1套教程（共三册）：《VBA代码解决方案》：是入门后的提高教程

第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）

第3套教程（共两册）：《VBA数组与字典解决方案》：是对数组和字典的专题讲解

第2套教程（共两册）：《VBA数据库解决方案》：是对数据库的专题讲解

第6套教程（共两册）：《VBA信息获取与处理》：讲解VBA的网络及跨程序应用

第5套教程（共两册）：VBA中类的解读和利用：类及接口技术的讲解

第8套教程（共三册）：VBA之Word应用（最新教程）：word中VBA的利用