面向对象程序设计实用教程--Visual Basic可视化编程 教学课件 作者 杨光宏 第5章.pptVIP

面向对象程序设计实用教程--Visual Basic可视化编程 教学课件 作者 杨光宏 第5章.ppt

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第五章 类与对象 本章学习目标 应知: 面向对象程序设计的特点 类和对象的概念、特点及关系 应会: 创建和使用类模块和对象 集合对象的应用 使用ListBox和Frame控件 面向对象程序设计基础 面向对象程序设计的基本概念 类与对象的特点及关系 类具的三个重要特性 封装 继承 多态性 项目1 创建“名片”类 任务1 使用类生成器创建“名片”类 类生成器的主窗口 任务3 创建一个“名片”对象 项目2 制作一个名片簿程序 做一个名片簿程序,工作原理是使用上个项目做好了“名片”类生成一系列的“名片”,并用“名片”对象存储一系列联系人的资料,然后用一个集合对象将所有的“名片”储存起来,这个集合对象类似一个“名片簿(名片盒)” 任务1 设计程序的界面 添加Frame和ListBox控件 任务2 使用集合对象储存“名片”对象 任务3 使用列表框控件显示所有“名片” 项目3 增加保存和读取资料的功能 如果想要名片资料不随着程序的关闭而消失,必须用文件将资料保存起来。 在上个项目里面添加代码,让程序关闭时能自动将名片资料保存到一个文件当中,当程序重新运行时能自动从文件读取出名片资料。 任务1 增加保存名片资料的功能 任务2 增加读取名片资料的功能 小结 使用VisualBasic 6.0编程时其实就在不知不觉中使用到了面向对象编程这一方法,例如用窗体和控件来编写程序的概念就是应用到OOP的思想。使用OOP思想编写程序不但可以增强代码的重用性,还提供我们解决实际问题的思路,所以在用VisualBasic编写程序过程中要善于使用类模块。 思考与练习题 说出下列事物哪些属于“类”,哪些属于“对象”: 亚洲人、中国人、我的朋友小明、铅笔、我桌面上的那支钢笔、汽车、火车、我家里的那辆小轿车。 创建一个实现四则运算的类,并做一个小程序来调用它。 * * 面向对象程序设计实用教程 — Visual Basic 可视化编程 方法 属性 事件 对象的三种成员 Form1对象的成员 类的继承特性的例子 添加属性和方法 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 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 Private Sub Command2_Click() 列举所有名片 Dim onecard As cCard 定义一个cCard类型的对象变量onecard List1.Clear 清空列表框控件List1原先的内容 For Each onecard In mBox 用For Each语句

您可能关注的文档

文档评论(0)

开心农场 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档