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

/ 0评 / 0

文本框事件(应用类办法)

大家好,2021-09-28 持续讲授类的办法和事件。到这一讲,我们根本已经懂得了如何应用类,如何应用类的事件。

如果想应用类,必需在类模块中树立类,类的名称是可以改为自己须要的情势;树立类后还要实例化类,把类转化为一个相对的实体对象,如果不对类进行实例化,是没有任何意义的;一般情形下,可以在窗体的构建中进行类的实例化;如果要让这个实体对象响应类的事件,那么要在类的声明中进行对象的声明,在类模块中进行事件的响应,在窗体模块中进行对象的必要关联。

下面仍是以实例为基本,进行类模块实际问题的讲授。

实例:在窗体中,让每一个文本框在激活时产生色彩的转变。

思路的剖析:让窗体中的文本框关联上同一个类,可以履行统一的类事件。在窗体中把必要的文本框和这个类及将履行响应的类事件进行关联。

实现进程:

一 搭建类模块及类事件

我们树立一个类模块mytebox.并在类模块中声明一个响应事件的对象Mbox,作为我们要干涉文本框的一个对象聚集。

Public WithEvents mBOX As MSForms.TextBox

Private Sub mBOX_Chang百思特网e()

m = mBOX.Text

If m =(原创版权www.isoyu.com) "" Then m = 0

If m > 100 Then

MsgBox ("已经超过100"): DoEvents

End If

End Sub

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

1 在上述代码中Public WithEvents mBOX As MSForms.TextBox是对要响应类对象事件的对象进行了声明。

2 上面的对象共有两个事件,其一是mBOX_Change其二是mBox_MouseDown。

3 我们先看第一个事件mBOX_Change。当对象产生转变时,将履行下面的操作:

m = mBOX.Text

If m = "" Then m = 0

If m > 100 Then

MsgBox ("已经超过100"): DoEvents

首先要把mBOX.Text的值提起出来,进行断定,如果是空值按0处置,如果是大于100将进行提醒,已经超过100.

4 mBox_MouseDown进程。

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 '白色

对于textbox的第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新的办公软件没有到来之前,谁能在数据处置方面做到极致,谁就是王者。其中登峰至极的技巧非VBA莫属!