案例十六设计一个银行账户类 学习目标 利用继承选择器将己有窗体集成到项目中 创建具有自定文属性和方法的基类 利用1s语句从基类派生新类 紫例说明 设计一个基类，包含通用属性，具有特殊性的子类可以通过对基类的雅承，米生成多种 多样的子类 技能与要点 知识点 要领与方法 膝承已有窗体 单击【项目】菜单下的【添加新项】金令，选择【维承的窗体】模 的界面和功能 板，为港承窗体指定名称，接着单击【添加】按组。用继承选择器 选择把继承的窗体，接着单击【确定】按钮。请注意：潍承窗体时， 基础窗体必须编译为EXE或.DL文件。如果想藤承一个并丰当 前项目中的窗体，则该窗体必策编译为D山文件 白定复胜承窗 将【工具箱】中的控件添加到窗体上，进行属性设置。请注意，不 体 能设置密体上维承对象的属性。这些对象可以通过小图标识别，并 且是不活动的 设计类的步覆 识别程序中要成为对象的事物 确定想让对象具有的属性 在类模块中创建类 为每个属性声明专用的成员变量 写属性块 创建方法 创建自己的基 单击【项目】菜单下的【添加类】命令，指定类名，接着单击【打 类 开】按钮。用程序代码在一个类模块中定义该类 在类中隐藏声 用Pv关键字可以隐藏类变量，莲免其他人查看。例如 明的变量 Privatem_NameAsString
案例十六设计一个银行账户类 学习目标 利用继承选择器将已有窗体集成到项目中 创建具有自定义属性和方法的基类 利用 Inherits 语句从基类派生新类 案例说明 设计一个基类，包含通用属性，具有特殊性的子类可以通过对基类的继承，来生成多种 多样的子类 技能与要点 知识点 要领与方法 继承已有窗体 的界面和功能 单击【项目】菜单下的【添加新项】命令，选择【继承的窗体】模 板，为继承窗体指定名称，接着单击【添加】按钮。用继承选择器 选择想继承的窗体，接着单击【确定】按钮。请注意：继承窗体时， 基础窗体必须编译为 EXE 或．DLL 文件。如果想继承一个并非当 前项目中的窗体，则该窗体必须编译为 DLL 文件 自定义继承窗 体 将【工具箱】中的控件添加到窗体上，进行属性设置。请注意，不 能设置窗体上继承对象的属性。这些对象可以通过小图标识别，并 且是不活动的 设计类的步骤 识别程序中要成为对象的事物 确定想让对象具有的属性 在类模块中创建类 为每个属性声明专用的成员变量 写属性块 创建方法 创建自己的基 类 单击【项目】菜单下的【添加类】命令，指定类名，接着单击【打 开】按钮。用程序代码在一个类模块中定义该类 在类中隐藏声 明的变量 用 Private 关键字可以隐藏类变量，避免其他人查看。例如： Privatem_NameAsString
在类中创建新 在类中定义一个Ple属性过程。例如： 属性 PublicProperty Name (ASString Get Returnm_Name EndGet Set(ByValValueASString) m_Name-Value EndSet EndProperty 在类中创建新 在类中定文一个子过程或者一个函数过程。例如： 方法 PublicFunctionAge(ByValBirthday AsDate)AsImeger Returlni(NowSubtraci(Birthdary).Days/365.25) EndFunction 声明对象变量 在程序语句中使用Dim和Nw关键字，变量名称和用户定义的类。 以使用类 例如： DimEmployeeAsNewPerson 设置对象变量 使用设置对象属性的标准语法。例如： 的属性 Employee.Name-TextBaxlText 在新类中继承 创建新类，用s关键字引入基类的类定义。例如1 基类 PublicclassTeacher InheritsPerson PrivateLevelAsShort PublicProperty Grade )AsShort Get ReturnLevel EndGct SetCByValValueASShort) Level-Value EndSet
在类中创建新 属性 在类中定义一个 Public 属性过程。例如： PublicPropertyName（）ASString Get Returnm_Name EndGet Set(ByValValueASString) m_Name=Value EndSet EndProperty 在类中创建新 方法 在类中定义一个子过程或者一个函数过程。例如： PublicFunctionAge(ByValBirthdayAsDate)AsInteger ReturnInt(NowSubtract(Birthday)．Days／365.25) EndFunction 声明对象变量 以使用类 在程序语句中使用 Dim 和 New 关键字、变量名称和用户定义的类。 例如： DimEmployeeAsNewPerson 设置对象变量 的属性 使用设置对象属性的标准语法。例如： Employee.Name=TextBoxlText 在新类中继承 基类 创建新类，用 Inhedts 关键字引入基类的类定义。例如： PublicclassTeacher InheritsPerson PrivateLevelAsShort PublicPropertyGrade()AsShort Get ReturnLevel EndGet SetCByValValueASShort) Level=Value EndSet
EndProperty EndClass
EndProperty EndClass