第9章 面向对象程序设计

9.1.3 定义和添加类
1. 定义类 在VB 2005中，程序员可以自己定义类。 类的实现包括两部分内容：类的说明和类的 主体。其语法格式如下： [〈类说明修饰符〉] Class 〈类名〉 [〈类主体〉] End Class
【例9-1】声明一个类名是Student的类。 Public Class Student Public Name As String Public Sex As String Public Birthday As Date End Class
说明：这段代码声明了一个简单的类，它包含姓 名、性别和出生日期三个成员变量，而没有任何方 法和事件。
2. 添加类 VB 2005中的类是一个代码块，可出现在3个位置中： （1）放在窗体和模块文件中。在Windows窗体文件、 Web窗体文件、模块文件中都可以定义类； （2）放在项目内的单独文件中。方法是：建立一个项目 后，执行“项目”菜单→“添加类”命令，会打开“添加新 项”对话框，在“模板”窗口中选择“类”，并在“名称” 栏内输入要建立的类文件名，然后单击“添加”按钮。 （3）放在单独的项目中。当要建立的类比较多时，可以 把相关的类放在一个“类库”项目中。
2. 成员函数 可以创建成员的属性。其语法格式如下： [〈访问权限〉] Property 〈成员名称〉 As 〈成员类型〉 Get Return 〈私有成员属性值〉 End Get Set 〈私有成员属性〉=〈值〉 End Set End Property
【例9-2】给Student类创建StudentID属性。 Public Class Student Private Name As String Private Sex As String Public Property StudentID() As String Get Return Name End Get Set(ByVal Value As String) Name = Value End Set End Property Public Birthday As Date End Class
（2）在窗体中添加一个按钮，代码如下： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Student1 As Student Student1 = New Student MsgBox(Student1.Num) End Sub （3）运行程序。每单击一次按钮，就会自动创 建类的一个实例，计数器会自动加1。
9.1.4 创建成员属性
1. 成员变量 成员变量和程序的一般变量一样，需要先声明。 对于成员变量，主要通过以下几个关键字来控制变 量的作用域： • Private：仅适用于声明它的类中的代码。 • Friend：仅适用于声明它的工程和组件中的代码。 • Protected：仅适用于继承于类的类。 • Public：适用于类外的代码，具有最大的开放性。
9.1.2 New子句
1. 创建对象实例的语法格式 使用New子句可以创建一个新的对象实例， 其语法格式如下： [ Dim | Public | Friend | Private | Shared | Static | Protected ]〈变量名〉[ As New 〈控件名称〉]
2. 创建控件类举例 在窗体的Load事件中，创建一个Label类对象lbl，一个TextBox类对象txt。 代码如下： Dim lbl As New Label Dim txt As New TextBox 设置这两个对象的属性，代码如下： With lbl .Text = "当前日期：" .Font = New Font("楷体", 15) ' 设置字体也使用New子句，即生成新的 Font类 .Width = 100 .Height = 30 .ForeColor = Color.Blue End With With txt .Text = Today .Font = New Font("楷体", 10) ' 设置字体也使用New子句，即生成新的 Font类 .ForeColor = Color.Green .Focus() End With
9.1.7 共享方法和共享成员
1. 共享成员 当类的所有实例需要共享一个数值时，可 以使用共享成员来实现。共享成员实际就是 类中定义的一个属性。 共享成员和共享方法一样，都用Shared来 定义。共享成员的默认访问权限是Private。
【例9-6】创建学生Student类，类中声明一个共享成员来保存当前学 生数。 设计步骤如下： （1）创建Student类： Public Class Student Private Shared StudentNum As Integer Public Sub New() StudentNum += 1 End Sub Public ReadOnly Property Num() As Integer Get Return StudentNum End Get End Property End Class
第9章 面向对象程序设计
1பைடு நூலகம்
面向对象在VB 2005中的实现
2
类的继承和多态
3
接口与模块
9.1 面向对象在VB 2005中的实现
9.1.1 类与对象 类是对具有相同属性和相同行为的一组相似对象的集合。 类是用来创建对象的模板，它为属于该类的全部对象提供了 统一的抽象描述，其内部包含状态描述和方法定义，而对象 只是类的一个具体实例。 类本身没有属性值，也不能执行类方法，对类事件也不 会做出任何响应。类定义了属性并包含了将被该类创建的每 个对象所使用的方法的实现过程，这些对象将具有属性值并 执行相应的方法。例如，在VB 2005中，工具箱上的控件表 示类。当将控件工具箱拖放到窗体上时，实际上是在创建一 个对象，即类的实例。 类通过设定该类中每个对象都具有的属性和方法来提供 对象的定义，该属性和方法称为类的接口。
2. 事件源 引发事件的对象称为事件源。为了确定引 发事件的事件源，必须用WithEvents关键字 声明对象，即在要调用该事件的项目中使用 WithEvents声明对象，声明的位置应该在所 有的过程的前面。声明格式为： Private WithEvents 〈对象名〉 As New 〈类名〉
【例9-5】声明一个能够引发事件的Student对象Stu，代码如下： Private WithEvents Stu As New Student 编写命令按钮的Click事件代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim a As Date a = #8/8/2010# MyStudent.AddBirthday(a) End Sub 然后在代码窗口中的对象下拉列表框中选择Stu，在事件下拉列表框 中选择DataError事件，编写如下代码： Private Sub Stu_DataError(ByVal ErrMsg As String) Handles Stu.DataError MsgBox(ErrMsg, MsgBoxStyle.Exclamation, "Error") End Sub
类只是模板，在具体调用的时候还必须实例化为对象才 可以。如果需要调用Student类中StudentID属性，需要先 创建一个Student类的对象，然后就像操作控件对象的属性 一样操作StudentID属性。代码如下： Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Dim MyStudent As New Student MyStudent.StudentID = "200801001" Dim lbl As New Label lbl.Text = MyStudent.StudentID lbl.Location = New Point(40, 45) Me.Controls.Add(lbl) End Sub
9.1.6 创建成员事件
1. 创建事件 在类中可以创建事件，其语法格式如下： [〈访问权限〉] Event 〈事件名称〉(〈参 数列表〉) public Sub 〈方法名称〉 … RaiseEvent 〈事件名称〉 End Sub
【例9-4】给Student类创建事件，并引发事件。 Public Event DataError(ByVal ErrMsg As String) Public Sub AddBirthday(ByVal d As Date) If (d >= #1/1/1980#) And (d <= Today) Then Birthday = d Else RaiseEvent DataError("出生日期错误，超出 学生年龄范围！") End If End Sub
3. 创建数据类型类实例 除了控件类之外，系统还提供了许多类，如每种数据类型就是一个 类。例如： Dim a As New Integer Dim b As Integer=20 a = 10 说明： （1）使用New子句声明变量，表示运行Dim语句时创建该类的一个 新实例，但在创建时不能被计算或赋予该变量的表达式。 （2）不使用New子句声明变量，表示运行Dim语句时创建该类的一 个变量，可以在创建时被计算或赋予该变量的表达式。 （3）数组也是一个类，例如： Dim arr As Integer() arr = New Integer() {0, 1, 2, 3}