面向对象编程简介.pptVIP

Visual Basic 程序设计教程 机械工业出版社同名教材配套电子教案 * 2003 年 6月 第13章 面向对象编程简介 13.1 基本概念 13.1.1 对象和类 13.1.2 对象变量 13.2 类的创建 13.2.1 创建类模块 13.2.2 为类添加属性 13.2.3 为类添加方法 13.2.4 为类添加事件 习题十三 13.1 基本概念 13.1.1 对象和类 1.对象 2. 类 3. 面向对象编程的特点 面向对象编程有以下特点： 对象是程序的主体： 对象具有多态性： 对象具有继承性： 对象具有封装性： 13.1.2 对象变量 对象变量的声明 声明一个对象变量的语法格式为 {Dim | ReDim | Static | Private | Public}〈变量名〉As [New]〈类名〉 【例13-1】使用对象变量创建新窗体。 设计步骤如下： (1) 设计界面与设置属性参见图13-1左。 图13-1 “克隆”窗体 (2) 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() Dim objForm As New Form1 objForm.Show End Sub 运行程序，单击命令按钮，将不断地创建与原有窗体完全一样的新窗体，如图13-1右所示。 2. 对象变量的赋值 对象变量赋值语句的语法格式为: Set〈变量名〉=〈对象〉 【例13-2】使用对象变量引用按钮对象。 设计步骤如下： (1) 设计界面与设置属性参见图13-2左。 图13-2 引用按钮对象 (2) 编写窗体的MouseUp事件代码： Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim cmd As CommandButton 声明对象变量cmd为按钮类型 Set cmd = Command1 将命令按钮Command1赋值给cmd cmd.Top = Y 引用cmd cmd.Left = X End Sub 运行程序，在窗体上单击鼠标，命令按钮将随着鼠标单击的位置移动，如图13-2右所示。 3. 特定对象变量与通用对象变量 【例13-3】使用通用控件变量引用不同的控件。 设计步骤如下： (1) 设计界面与设置属性。 (2) 编写代码。 首先编写窗体的Load事件代码，将各控件的Left属性保存在Tag属性中： Private Sub Form_Load() For Each obj In Me.Controls obj.Tag = obj.Left Next End Sub 然后编写窗体的Click事件代码： Private Sub Form_Click() Static n As Integer, y As Boolean Dim cnt As Control 声明对象变量cnt为通用控件 y = Not y Set cnt = Me.Controls(n) 依次将不同的控件赋值给cnt If y Then cnt.Left = cnt.Tag 引用cnt n = n + 1 Else cnt.Left = 0 引用cnt End If n = n Mod 3 End Sub 13.2 类的创建 13.2.1 创建类模块 在工程中创建一个类模块的步骤为: (1) 选择“工程”菜单中的“添加类模块”菜单项，打开“添加类模块”对话框（图13-4）。 图13-4 “添加类模块”对话框 13.2.2 为类添加属性 添加全局变量与局部变量 2. 属性过程 (1) Property Let过程的语法格式为 [Public | Private | Friend] [Static] Property Let〈属性名〉([参数列表,]〈值〉) [〈语句列〉] [Exit Property] [〈语句列〉] End Property (2) Property Get过程的语法格式为 [Public | Private | Fri