Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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显示


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



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助