浙江龙网

  1. 首页 > 生活百科 > >

利用类方法 文本框事件

对象事件窗体文本框

文本框事件(使用类方法)
大家好，今天继续讲解一下上课的方法和事件 。至此，我们已经基本学会了如何使用类以及如何使用类的事件 。
如果要使用类，必须在类模块中构建一个类，并且可以将类名更改为所需的形式 。类建立后，需要实例化该类，并将其转化为相对实体对象 。如果类没有被实例化，它就没有意义 。通常，您可以在表单的构造中实例化该类；如果希望此实体对象响应类的事件，则应该在类声明中声明对象，在类模块中响应事件，并在表单模块中对对象进行必要的关联 。
下面还是以实例来说明类模块的实际问题 。
示例:在表单中，让每个文本框在激活时改变颜色 。
思路分析:让表单中的文本框关联到同一个类，可以执行统一的类事件 。在表单中，将必要的文本框与此类以及将执行响应的类事件相关联 。
实施过程:
构建一个类模块和类事件 。
我们建立了一个类模块mytebox 。并将响应类模块中事件的对象Mbox声明为一组我们想要在文本框中干预的对象 。


公共WithEvents mBOX As MSForms 。文本框
私有子mBOX_Change()
m = mBOX 。文本
如果m = 0，那么m = 0
如果是100米，那么
MsgBox(超过100 ): DoEvents
如果…就会结束
末端接头
私有子对象鼠标向下(按值按钮作为整数，按值移位作为整数，按值X作为单个，按值Y作为单个)
对于i = 2到4
使用UserForm7 。控件(文本框一)
。前颜色= 0(黑色)
。BackColor = 16777215(白色)
TT 。文本
以…结尾
然后
MBOX 。背景色= 16711680(蓝色)
MBOX 。ForeColor = 16777215白色
末端接头
1在上面的代码中，public withevents mbox作为msforms.textbox声明了应该响应类对象事件的对象 。
上面的对象有两个事件，一个是mBOX_Change，另一个是mBox_MouseDown 。
让我们看看第一个事件mBOX_Change 。当对象更改时，将执行以下操作:
m = mBOX 。文本
如果m = 0，那么m = 0
如果是100米，那么
MsgBox(超过100 ): DoEvents
首先，mBOX的价值 。文字要拿出来评判 。如果是空，则按0处理；如果大于100，会提示，已经超过100 。
4 mBox_MouseDown过程 。
对于i = 2到4
使用UserForm7 。控件(文本框一)
。前颜色= 0(黑色)
。BackColor = 16777215(白色)
TT 。文本
以…结尾
然后
MBOX 。背景色= 16711680(蓝色)
MBOX 。ForeColor = 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的身手最好！
版权声明：【利用类方法 文本框事件】本文内容由互联网用户自发贡献，该文观点仅代表作者本人 。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任 。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 2672143071@qq.com 举报，一经查实，本站将立刻删除 。

推荐阅读


上一篇：中考优秀范文欣赏：我心中的太阳 我心中的太阳作文

下一篇：民主小学教师教育随笔 小学教师教学随笔