学习VBNET中最重要面向对象编程类与对象.pptVIP

7.2.3 向类中添加方法 类的方法就是在该类中声明的Sub或Function过程。 例如，将员工的姓与名分开，在某些情况下比如按照姓氏排序，比较有用。但大多数时候，还需要使用员工的全名。 下面的代码为Employee类添加一个名为FullName的公共方法，用于返回员工的全名，它由firstNameValue和lastNameValue连接得到。 1 Public Function FullName( ) As String 2 FullName = FirstName LastName 3 End Function 下面的代码中向Employee类添加了一个计算年龄的私有方法CalcAge，并修改了只读属性Age的Get过程，以使用该私有方法。 1 Private Function CalcAge(ByVal year As Integer) As Integer 2 CalcAge = My.Computer.Clock.LocalTime.Year - year 3 End Function 4 5 ReadOnly Property Age( ) As String 6 Get 7 Age = CalcAge(birthYearValue) 8 End Get 9 End Property 7.2.4 向类中添加事件 向类中添加事件时必须执行以下两个步骤。 首先必须使用Event语句声明事件。 然后必须使用RaiseEvent关键字引发事件，引发事件是指发出发生事件的信号。 下面的代码声明了一个AgeCalculated事件。 Public Event AgeCalculated(ByVal Age As Single) 下面的代码在CalcAge方法中引发AgeCalculated事件。 1 Private Function CalcAge(ByVal year As Integer) As Integer 2 Dim Age = My.Computer.Clock.LocalTime.Year - year 3 RaiseEvent AgeCalculated(Age) 4 CalcAge = My.Computer.Clock.LocalTime.Year - year 5 End Function 7.2.5 构造函数 类的构造函数用于类的实例的创建，实现当一个类被创建时需要运行的代码。 类的构造函数Sub new在类实例化的时候调用，一般用于对类中某些字段或属性进行初始化，可以类定义中的任何地方创建析构函数。 下面的代码为Employee类创建了一个构造函数，用于对类内所有变量初始化。 1 Sub New( ) 2 Retired = False 3 FirstName = 4 LastName = 5 BirthYear = 0 6 Password = 7 End Sub 下面代码分别创建了使用不同参数创建类实例的构造函数。 1 Sub New(ByVal first As String,ByVal last As String) 2 FirstName=first 3 LastName=last 4 End Sub 5 6 Sub New(ByVal id As Integer) 7 IDValue=id 8 End Sub 在拥有多个构造函数的情况下，如何确定类的实例将调用哪个构造函数呢？这根据类实例化时传入的参数来确定。 7.3 创建和使用对象 对象类型如下。 内部对象，包括项目中的内部对象和类。 外部对象，包括程序集和COM对象。 7.3.1 对象类型 7.3.2 使用New关键字创建对象 New关键字用于创建一个类的实例。由于对象是引用类型，所以必须显式创建之后才能使用。 下面的代码声明了两个Employee类的对象。 1 Dim objEm1 As Employee 2 Dim objEm2 As Employee = New Employee( ) 7.3.3 设置和获取属性 对象属性的设置和获取很简单，使用对象名.属性名即可完成。 例如，下面的代码为对象objEm1设置了FirstName和LastName属性。 1 Dim objEm1 = New Employee 2 objEm1.FirstName=Allen 3 objEm1.LastName=Smith 下面的代码则获取objEm1的年龄Age属性，并将其赋给变量a。 Dim a As Integer = objEm1.Age 7.3.4 使用方法 使用对