对程序员和编程爱好者来说，VB 中类的技术是学习中的一个难点，在大型软件的开发过程中，模块（Mou dle)、控件（Activ e ocx )、链接库（Activ e dll)和类（Class mou dle)构成了系统化、高效化的软件工程，而类的技术是控件和链接库技术的基础，因此掌握类的理论和编程方法是非常有意义的。 （一）类的基本定义和应用概述； 类是包含了方法、属性、数据成员的高级代码模块，它既在模块的范畴之内，又是一个没有图形界面的Activ e ocx ，程序员可以象使用控件一样使用它，但却不能看到它，值得注意的是，类是不能继承的。 类能够使我们高效的完成对某一个或者某几个特定的对象的复杂操作，对象的动作就是类的方法，对象的属性就是类的属性过程。相对而言，如果编程的对象是一组事物，那么，我们采用标准模块的方式是非常合适的，在下列两种情况下，应该使用类进行代码处理： （1）创建大量性质相近的对象； （2）提高代码的封装性。 类的创建非常简单 ，在进行代码编写 的时 候 ，在“工程”菜 单 中选 择 “添 加 类模块”项 目 ，就可以添 加 一个空 白 的类。 类文 件一般 以.cls 作为 扩 展 名 保 存 。 （二 ）类的方法的实 现 ； 类的方法类似 于 动态 链接库的接口 函 数，它能够接受 其 他 窗 体 代码的指 定类型参 数，并且 传 递 到类中。一般 来说类的方法是能够指 定是否 有返 回 值的。它在类中通 常是一个pu blic过程。请 看下面的代码示 例 ，它使一个密 码框 拒 绝 非字 母 的输 入 ： （1）类cls 的代码； Option Ex plicit '变 量检 查 Priv ate WithEv ents my tx t As Tex tBox '本类中的方法接受 和控制 一个tex t 密 码框 Dim isNUM As Boolean '类的模块级变 量 Pu blic Su b Attach(itTEXT As Tex tBox ) '接受 外 部 变 量到 my tx t 中 Set mytxt = itTEXT End Sub Private Sub mytxt_KeyUp(KeyCode As Integer, Shift As Integer) isNUM = (KeyCode > = 65) And (KeyCode <= 90) '测试密码框的键盘输入是否是英文字母 If isNUM = False Then Beep mytxt.Text = " " '如果输入不是英文字母则响铃并且清空密码框内容 MsgBox "非法字符输入！ " End If Debug.Print mytxt.Text '调试输出密码框内容 End Sub '类的代码结束 （2）类...
