文本框只能输入数字（限制文本框的输入）
大家好。今天继续讲解类和类模块的知识。从这一点开始，我们开始学习各种例子。在学习例题的过程中，我们需要加深对概念的理解。对于几个重要的概念，我们再来复习一下。
CLASS 1class: Class是一个对象的“灵魂”。对象可以是任何东西，而类不会做任何事情，也不会占用内存。只有当一个类变成一个对象，并使用Set语句和New关键字实例化成一个具体的对象时，它才能做一些事情并占用内存。
class 2的属性用于描述类。有两种声明方案，一种是直接在类中声明，另一种是用属性Let/Set/Get语句声明。
类3的方法是类中的公共Sub和Function。
4类模块类模块由属性和方法组成，类本身类似于名词；属性可以作为形容词来描述类；方法是执行操作的动词。
类5的实例化创建了一个新的类对象。注意，这个对象不一定是一个实际的实体，但它可以被视为一个实体。
6.声明类的事件:用Event声明，但只声明。
7用事件声明类实例化对象变量
要理解上面的概念，理解之后，就要用上面的知识点去处理我们实际遇到的问题。
在本讲的例子中，使用类模块来完成文本框输入，只能用数字来验证。如果输入的不是数字，输入将被取消。
两个思路分析在这个例子中，我们要完成对几个文本框的验证，所以可以在加载表单的时候把这些文本框设置到同一个类中，然后让这个类共同响应一个类对象的事件，就是判断输入的值是不是数字。这样我们就能实现我们的目标。
三个代码实现
1.首先，创建一个新类mytext。在这个类中，您应该声明一个用于响应事件的类对象变量。
作为MSForms的公共WithEvents Txtbox。文本框
私有Sub Txtbox_Change()
使用CreateObject(\"vbscript.regexp \")
.全局=真
.模式= \"[^0-9.]+\"
如果。测试(Txtbox。文本)然后
Txtbox。文本=。更换(Txtbox。文本，\"\")
如果…就会结束
以…结尾
末端接头
在上面的代码中，Txtbox是一个类对象的变量，这个变量应该对应Txtbox_Change事件。
建立一个有几个文本框的窗口。同时输入代码。
Dim Txt()作为新的mytext
私有子命令Button1_Click()
目标
末端接头
私有子UserForm_Initialize()
我身体里的每一个细胞。控制
如果TypeName(myctl) = \"TextBox \",则
m = m + 1
ReDim Preserve Txt(1到m)
设置Txt(m)。Txtbox = myctl
如果…就会结束
然后
末端接头
私有子UserForm_Terminate()
目标
末端接头
上面的代码中声明了一个类，同时通过动态数组的方式将几个文本框放入我们想要的类对象中。这样，当代码运行时，该类的所有事件都可以得到响应。
由于篇幅原因，代码的解释和操作在下一讲。
今天的内容回来了:
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！
