第三章 面向对象技术.pptVIP

其它PublicPropertyGetCount()AsLong检索集合中的元素数时使用。语法：Debug.Printx.CountCount=mColStudents.CountEndPropertyPublicSubClear()SetmColStudents=NewCollectionEndSub第48页，共69页，星期日，2025年，2月5日利用类生成器构建集合类手工建立繁琐首先利用类生成器构建类然后利用类生成器构建集合类第49页，共69页，星期日，2025年，2月5日VB6语言面向对象的特征（一）在类模块中定义类用Property过程提供公共访问定义多态性方法生成事件封装类常量用ObjectBrowser浏览类创建对象第16页，共69页，星期日，2025年，2月5日VB6语言面向对象的特征（二）将窗体用作对象使用多组对象定义多个接口用ActiveX组件说明对象开发基于Web的应用程序创建C/S应用程序第17页，共69页，星期日，2025年，2月5日VB6中类与集合的应用创建一个类使用一个类的实例窗体类的使用定义类中的常量生成和响应事件定义集合使用集合第18页，共69页，星期日，2025年，2月5日创建一个类插入一个类模块定义类的属性创建类的方法响应类事件文档化类第19页，共69页，星期日，2025年，2月5日插入一个类模块启动一个新的工程从工程菜单选择添加类模块设定类名称窗体也是一个类工具箱中的控件也是一个类第20页，共69页，星期日，2025年，2月5日定义类的属性

类属性定义由一个类创建的全部对象的属性声明一个公共变量 简单数据类型(Integer、String) 抽象类型(Object) 用户定义的类型(UDT)不能定义为公共变量 最简单，不推荐使用先声明一个私有变量，然后创建Property过程以显露属性 Property过程允许一个类中的属性被声明为私有变量并由公共过程显露第21页，共69页，星期日，2025年，2月5日创建Property（一）声明一个私有变量 Privatemvar* 注意是Private而不是Dim 只有类内部的过程可以更改变量值，对应用程序的其它部分隐藏创建Property过程 PropertyGet获取或读入属性值 PropertyLet设置String、Integer等简单数据类型的属性值 PropertySet设置对象数据类型的属性值第22页，共69页，星期日，2025年，2月5日创建Property（二）多数情况下，类的每个属性有一对Property过程PrivatemvarDescriptionAsStringPublicPropertyLetDescription(ByValvDataAsString) 向属性指派值时使用，位于赋值语句的左边。 Syntax:X.Description=5 mvarDescription=vDataEndPropertyPublicPropertyGetDescription()AsString 检索属性值时使用，位于赋值语句的右边。 Syntax:Debug.PrintX.Description Description=mvarDescriptionEndProperty第23页，共69页，星期日，2025年，2月5日创建Property（二）只使用PropertyGet限制属性为只读只使用PropertyLet或PropertySet限制属性为只写Property过程可以包含有效性验证、格式化或其它处理过程FriendPropertyLetPriority(ByValvDataAsInteger) ifvData0orvData4then vData=0 endif mvarPriority=vDataEndPropertyFriendPropertyGetPriority()AsInteger Priority=mvarPriorityEndProperty第24页，共69页，星期日，2025年，2月5日使用Property的益处封装 格式化、数据有效性或其它处理过程只读维护 可以只更改Property过程的代码而不更改使用该属性的代码第25页，共69页，星期日，2025年，2月5日创建方法

类方法定义由一个类创建的全