VBA类模块完全教程（完结篇）

时　间:2013-02-26 08:51:13
作　者:周芳（转）   ID：24526  城市：上海
摘　要:一个完整的类实例 
正　文:

      现在，提供一道简单的测试，帮大家回顾一下前面的知识。建议您做一下，因为VBA是实践性的。

题目要求：
（一）构建两个类：
1．Student类
具有2个属性：
（1）Name：可读写。
（2）Id：可读写，但只能写一次。格式为字母S加两位整数，如S01，S02…等。

2．Students类
具有1个属性，3个方法，2个事件：
（1）Count属性：只读，返回Student成员数量。
（2）Item方法：使用下标如Stus.Item(i)的方式调用，返回相应的Student成员，i可以是Student成员的自然顺序，也可以是Student成员的Id。
（3）Add方法：增加Student成员。当增加成员时，按顺序递增生成成员的Id，每个Id号只用一次，不因删除成员受影响。
（4）Remove方法：删除Student成员。
（5）BeforeAdd事件：在增加成员前作出响应，允许用户取消增加成员。
（6）AfterRemove事件：在删除成员后响应。

（二）构建一个用户窗体测试前面的类：
1．窗体上包含四个CommandButton，分别完成如下功能：
（1）增加成员
使用InputBox输入Student成员的Name，完成增加。
（2）删除成员
使用InputBox输入Student成员的Id或自然序号，完成删除。
（3）显示学员总数。
使用MsgBox显示Student成员总数。
（4）查询学员
使用InputBox输入Student成员的Id或自然序号，然后使用MsgBox显示相应Student成员的Name。

2．一个ListView，即时显示现有的所有Student成员。

3．事件处理
（1）BeforeAdd事件，查找现有成员的Name是否有和要增加的成员的Name相同的，如有，则给出提示，让用户选择是否增加。
（2）AfterRemove事件，刷新ListView显示

（三）未尽之处自由发挥，假定用户操作规范，可不考虑错误处理。