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

竹笛

       现在，提供一道简单的测试，帮大家回顾一下前面的知识。建议您做一下，因为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显示

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

songwupei

有没有答案呢？？

hua221

初学者的好东西

jial1047

初学者的好东西

rzz8118

一直不知道自定义类模块如何使用，期待楼主更新

ivccav

hua221 发表于 2015-1-30 17:36
初学者的好东西

初学者学这个？别逗了。把基本的语法和对象学会了再说吧

22119679@QQ.com

原来的listview不好用，我重新做了一下，现在应该可以用了，见下图。如果想要答案，请加QQ22119679

excel海

期望下答案

天涯诗酒客

天涯诗酒客

期待答案啊