IDC资讯中心
这个例子，也可以看作是使用类模块的入门级的演示。
新建一个工程，在form1中添加3个文本框。我们希望对这三个文本框中输入的字符进行限制，第一个只允许输入数字，第二个只允许输入字母，第三个只允许输入大写字母。
一般的做法，可以在这三个文本框的keypress事件过程中分别写检查代码。好一点的方案，是把检查代码写成一个共用的过程，让这三个文本框的keypress事件去各自进行调用。
现在，我们用面向对象的思想来解决这个问题。
在工程中添加一个类模块，命名为ctxt。添加下面的代码到其代码窗口：
public withevents textbox as textbox 添加一个textbox，这只是一个演示，所以简单地把它写成public成员，在实际的工程中，一般是私有的。
public isdecimal as boolean 简单地用public表示此类的一个属性。值为“是”，则只能输入数字，“否”，则只能输入字母
private sub textbox_keypress(keyascii as integer)
select case keyascii
case 0 to 31
case 48 to 57 按键为数字
if not isdecimal then keyascii = 0
case 65 to 90, 97 to 122 按键为字母
if isdecimal then keyascii = 0
case else
keyascii = 0
end select
end sub
类模块完成了。
在form1代码窗口，添加下面的代码：
option explicit
dim decitext as ctxt, lettertext as ctxt, ucasetext as ctxt
private sub form_load()
set decitext = new ctxt
set decitext.textbox = text1 decitext.textbox指向text1
decitext.isdecimal = true 设置decitext的isdecimal属性，使text1只能输入数字。
set lettertext = new ctxt
set lettertext.textbox = text2
lettertext.isdecimal = false
set lettertext = new ctxt
set lettertext.textbox = text3
lettertext.isdecimal = false
end sub
按f5运行，在三个文本框中随便输入一些字符试试。哈哈，我们在form1窗口中，没有写任何的检查代码，就让这三个文本框工作得很好了。
现在，我们需要让text3有ctxt不具备的特性，即只允许输入大写字母。简单地添加下面几行代码到form1的代码窗体中：
private sub text3_keypress(keyascii as integer)
if keyascii > 96 and keyascii < 123 then
keyascii = 0
end if
end sub
f5运行看看。text3能准确地控制按键了。在这里，我们注意到，text3既能响应form1窗体中的事件过程。作为类的成员，又能响应类中的同一事件的过程。
是不是很简单？
这就是类。
