13章 面向对象编程简介ppt课件.pptVIP

第13章 面向对象编程简介 §13.1 基本概念 一、对象和类 二、对象变量 §13.2 类的创建 一、 创建类模块 二、 为类添加属性 三、为类添加方法 四、为类添加事件 VB 马致明 * §13.1 基本概念 13.1.1 对象和类 13.1.2 对象变量 §13.2 类的创建 13.2.1 创建类模块 13.2.2 为类添加属性 13.2.3 为类添加方法 13.2.4 为类添加事件 一、 对象和类 二、　对象变量 　1.　对象 　2.　类 　3.　面向对象编程的特点 对象是程序的主体： 对象具有多态性： 对象具有继承性： 对象具有封装性： 1.对象变量的声明 Dim | Private | Public〈变量名〉As [New]〈类名〉 　　Dim objForm As New Form1 【例13-1】使用对象变量创建新窗体。 _____“克隆”窗体 演示 2. 对象变量的赋值 Set〈变量名〉=〈对象〉 图13-2 引用按钮对象 二、对象变量 【例13-2】使用对象变量引用按钮对象★ 。 3. 特定对象变量与通用对象变量 特定对象变量 　　Dim objForm As New Form1 　　Dim cmd As CommandButton 二、对象变量 【例13-3】使用通用控件变量引用不同的控件。 通用对象变量 　　Dim cnt As Control 演示 13.2.1 创建类模块 13.2.2 为类添加属性 13.2.3 为类添加方法 13.2.4 为类添加事件 1.　选择“工程”菜单中的“添加类模块”菜单项，打开“添加类模块”对话框。 1.Property Let属性过程 [Public | Private] Property Let〈属性名〉([参数列表,]〈值〉) 　〈语句序列〉 End Property 2. Property Get属性过程 [Public | Private] Property Get〈属性名〉[参数列表] [As〈类型〉] 　〈语句序列〉　　‘包括〈属性名〉= 表达式 End Property 3. Property Set属性过程 [Public | Private] Property Set〈属性名〉([参数列表,]〈对象变量〉) 　〈语句序列〉 End Property 【例13-4】设计一个能画出五角星的类，并在窗体中调用。 新建一个工程，为工程添加一个类模块Class1。 在类模块的“通用”段声明变量如下。 在类模块中添加用于设置窗体对象的属性过程。 在类模块中添加用于设置输出五角星横坐标的属性过程。 在类模块中添加用于设置输出五角星纵坐标的属性过程。 在类模块中添加输出五角星的方法。 在窗体中编写事件代码。 演示 1. 在类模块声明部分，用Event语句来声明事件。事件可以带有多个参数，不能是命名参数、可选参数或ParamArray参数。事件没有返回值，而且总是全局的。 2. 在类模块中的适当地方，用RaiseEvent语句来引发事件，并提供所需要的参数。 3. 在将要处理事件的模块声明部分，使用WithEvents关键字，添加该类类型的变量。它必须是一个模块级的变量。 4. 在代码窗口左边的下拉菜单上，选择声明为WithEvents的变量，在代码窗口右边的下拉菜单上，选择希望处理的事件。使用所提供的参数，将代码添加到事件过程中。 添加的对象应该能够根据不同的事件做出不同的反应。 添加和处理事件的基本步骤如下：