文本框事件(使用类方法)

大家好，今天继续讲解一下上课的方法和事件。至此，我们已经基本学会了如何使用类以及如何使用类的事件。

如果要使用类，必须在类模块中构建一个类，并且可以将类名更改为所需的形式。类建立后，需要实例化该类，并将其转化为相对实体对象。如果类没有被实例化，它就没有意义。通常，您可以在表单的构造中实例化该类；如果希望此实体对象响应类的事件，则应该在类声明中声明对象，在类模块中响应事件，并在表单模块中对对象进行必要的关联。

下面还是以实例来说明类模块的实际问题。

示例:在表单中，使每个文本框在激活时改变颜色。

思路分析:让表单中的文本框关联到同一个类，可以执行统一的类事件。在表单中，将必要的文本框与此类以及将执行响应的类事件相关联。

实施过程:

构建一个类模块和类事件。

我们建立了一个类模块mytebox。并将响应类模块中事件的对象Mbox声明为一组我们想要在文本框中干预的对象。

公共WithEvents mBOX As MSForms。文本框

私有子mBOX_Change()

m = mBOX。文本

如果m =“那么m = 0

如果m > 100，则

MsgBox(“已超过100”):鸽子

如果…就会结束

末端接头

私有子对象鼠标向下(按值按钮作为整数，按值移位作为整数，按值X作为单个，按值Y作为单个)

对于i = 2到4

带userform7.controls(“文本框”&；(一)

。前颜色= 0’(黑色)

。BackColor = 16777215 '(白色)

TT。文本

然后

MBOX。BackColor = 16711680 '(蓝色)

MBOX。前颜色= 16777215 '白色

末端接头

1在上面的代码中，public withevents mbox作为msforms.textbox声明了应该响应类对象事件的对象。

上面的对象有两个事件，一个是mBOX_Change，另一个是mBox_MouseDown。

让我们看看第一个事件mBOX_Change。当对象更改时，将执行以下操作:

m = mBOX。文本

如果m =“那么m = 0

如果m > 100，则

MsgBox(“已超过100”):鸽子

首先，mBOX的价值。文字要拿出来评判。如果是空，则按0处理；如果大于100，会提示，已经超过100。

4 mBox_MouseDown过程。

对于i = 2到4

使用UserForm7。控件(“文本框”& i)

。前颜色= 0’(黑色)

。BackColor = 16777215 '(白色)

TT。文本

以…结尾

然后

MBOX。BackColor = 16711680 '(蓝色)

MBOX。前颜色= 16777215 '白色

对于第2到第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软件取代OFFICE到来之前，谁能在数据处理方面做到最好，谁就是王者。其中，VBA的身手最好！