面向对象程序设计实用第5章.pptVIP

本章学习目标 应知： 面向对象程序设计的特点 类和对象的概念、特点及关系 应会： 创建和使用类模块和对象 集合对象的应用 使用ListBox和Frame控件 面向对象程序设计基础 面向对象程序设计的基本概念 类与对象的特点及关系 方法 属性 事件 对象的三种成员 Form1对象的成员 类具的三个重要特性 封装 继承 多态性 类的继承特性的例子 项目1 创建“名片”类 任务1 使用类生成器创建“名片”类 类生成器的主窗口 添加属性和方法 任务3 创建一个“名片”对象 Private Sub Command1_Click() Dim cxm As cCard 定义一个cCard类型的对象变量cxm Set cxm = New cCard 实例化cCard类 即由cCard类生成一个对象并赋值给cxm变量 cxm.UserName = “小明” 设置cxm对象的UserName属性 cxm.Tel = 设置cxm对象的Tel属性 cxm.Email = xiaoming@ 设置cxm对象的Email属性 cxm.Say 调用cxm对象的Say方法 MsgBox cxm对象的Email属性值为： cxm.Email 获取Email属性的值 Set cxm = Nothing 释放cxm对象 End Sub 项目2 制作一个名片簿程序 做一个名片簿程序，工作原理是使用上个项目做好了“名片”类生成一系列的“名片”，并用“名片”对象存储一系列联系人的资料，然后用一个集合对象将所有的“名片”储存起来，这个集合对象类似一个“名片簿（名片盒）” 任务1 设计程序的界面 添加Frame和ListBox控件 任务2 使用集合对象储存“名片”对象 Private mBox As Collection 定义一个集合对象mBox 用这个对象来储存“名片”, 其作用相当于“盒子” Private Sub Form_Load() Set mBox = New Collection 创建集合对象mBox End Sub Private Sub Form_Unload(Cancel As Integer) Set mBox = Nothing 销毁mBox对象 End Sub 任务3 使用列表框控件显示所有“名片” Private Sub Command2_Click() 列举所有名片 Dim onecard As cCard 定义一个cCard类型的对象变量onecard List1.Clear 清空列表框控件List1原先的内容 For Each onecard In mBox 用For Each语句枚举集合mBox中的每一个 元素到onecard对象 List1.AddItem onecard.UserName - _ onecard.Tel - _ onecard.Email 上一行语句的作用是将名片上的姓名、电话和Email等信息， 作为一项内容添加到List1中。其中的下划线符号表示一条语句还未 写完，通常用它来将一行很长的语句换行来写。 Next End Sub 项目3 增加保存和读取资料的功能 如果想要名片资料不随着程序的关闭而消失，必须用文件将资料保存起来。 在上个项目里面添加代码，让程序关闭时能自动将名片资料保存到一个文件当中，当程序重新运行时能自动从文件读取出名片资料。 任务1 增加保存名片资料的功能 Private S