第8章_类的继承.pptVIP

第8章 类的继承 教学内容 理解类的继承 掌握类的使用方法 了解其他的限定修饰符 8.1 类的继承 类最重要的性能之一是代码重用。同时，为了具有进化性，应该能够做比拷贝代码更多的事情。因此，可以创建一个新类，作为一个已存在类的类型，采用这个已存在的类的形式，对它增加代码，但不修改它。这样一种方式称为继承。 8.1 引例 例8-1 从前面创建的cStudent类中创建一个派生类，cGraduateStd用来对研究生的情况进行纪录。 分析 在cGraduateStd类中增加一个新的公共变量，用来记录导师的姓名。随后在基类（cStudent）中为Grade属性加上Overridable修饰符，再在继承类中重写Grade属性，以使它适合研究生的学制。为了使继承类中的Grade属性能够访问基类的nGrade变量，需要把基类中的nGrade的Private的修饰符改为Protected。随后重载了继承类的构造函数，并在两个构造函数中均使用的关键字MyBase显式的调用了基类的构造函数。 代码 ‘cGraduatedStd的代码 Public Class cGraduateStd Inherits cStudent ‘继承的声明 8.2.1节 Public strTeacherName As String Public Overrides Property Grade() As String ‘重载和重写 8.2.3节 Get Select Case nGrade Case 1 Return 研究生一年级 Case 2 Return 研究生二年级 Case 3 Return 研究生三年级 Case Else Return End Select End Get Set(ByVal Value As String) Select Case Trim(Value) Case 研究生一年级 nGrade = 1 Case 研究生二年级 nGrade = 2 Case 研究生三年级 nGrade = 3 End Select End Set End Property Public Sub New() MyBase.New() End Sub Public Sub New(ByVal strName As String) MyBase.New() Name = strName End Sub End Class ‘2个新Butoon控件的Click事件代码 Private Sub BtnShow3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles BtnShow3.Click Dim strTemp As String strTemp = Student: objGStd1.FullInfo vbCrLf strTemp += Grade: objGStd1.Grade vbCrLf strTemp += Age: objGStd1.Age.ToString() vbCrLf strTemp += EntranceDate:+objGStd1.EntranceDate.ToLongDateString() _ vbCrLf strTemp += Teacher: objGStd1.strTeacherName vbCrLf strTemp += Instance: objGStd1.intInstanceID strTemp += of objGStd1.lngClassInstanceCount