面向对象编程简介.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 | Friend Static Property Get属性名参数列表 As类型 语句列 属性名= expression Exit Property 语句列 属性名= expression End Property (3) Property Set过程的语法格式为 Public | Private | Friend Static Property Set属性名(参数列表,对象变量) 语句列 Exit Property 语句列 End Property,13.2.3 为类添加方法 【例13-4】设计一个能画出五角星的类，并在窗体中调用。 设计步骤如下： (1) 首先设计类Class1。新建一个工程。为工程添加一个类模块Class1，参见13.2.1。在类模块的“通用”段声明变量如下： Private mX As Single 用于局部复制X属性 Private mY As Single 用于局部复制Y属性 Private mFrm As Object 用于局部复制Frm属性 在类模块中添加用于设置窗体对象的属性过程： Public Property Set Frm(ByVal vData As Object) Set mFrm = vData End Property Public Property Get Frm() As Object Set Frm = mFrm End Property,在类模块中添加用于设置输出五角星横坐标的属性过程： Public Property Let X(ByVal vData As Single) mX = vData End Property Public Property Get X() As Single X = mX End Property 在类模块中添加用于设置输出五角星纵坐标的属性过程： Public Property Let Y(ByVal vData As Single) mY = vData End Property Public Property Get Y() As Single Y = mY End Property,在类模块中添加输出五角星的方法： Public Sub star(ByVal n As Single) Const pi = 3.14159 Randomize m = Int(Rnd * 16) colr = QBColor(m) mFrm.Line (X, Y) Step(n * Sin(pi / 10), n * Cos(pi / 10), colr mFrm.Line Step(n * Sin(pi / 10), n * Cos(pi / 10), colr mFrm.Line Step(n * Cos(2 * pi / 10), n * Sin(2 * pi / 10), colr mFrm.Line Step(n, 0), colr mFrm.Line Step(n * Cos(2 * pi / 10), n * Sin(2 * pi / 10), colr End Sub,(2) 设计窗体界面与设置属性如图13-5左所示。,图13-5 设计程序界面与运行程序,(3) 编写命令按钮的事件代码： Private Sub Command1_Click() Dim clas As New Class1 Set clas.Frm = Me clas.X = Rnd * Me.ScaleWidth clas.Y = Rnd * Me.ScaleHeight clas.star 500 End Sub,13.2.4 为类添加事件 程能够根据不同的事件做出不同的反应。 添加和处理事件的基本步骤如下： (1) 在定义类的类模块声明部分，用Event语句来声明事件。事件可以带有多个参数，不能是命名参数、可选参数或ParamArray参数。事件没有返回值，而且总是全局的。 (2) 在类模块中的适当地方，用RaiseEvent语句来引发事件，并提供所需要的参数。 (3) 在将要处理事件的模块声明部分，使用WithEvents关键字，添加该类类型的变量。它必须是一个模块级的变量。 (4) 在代码窗口左边的下拉菜单上，选择声明为WithEvents的变量，在代码窗口右边的下拉菜单上，选择希望处理的事件。使用所提供的参数，将代码添加到事件过程中。,【例13-5】模仿计时器控件，设计一个计时器类，并在窗体中调用。 设计步骤如下： (1) 首先设计类Class1。新建一个工程。为工程添加一个类模块timClass，参见13.2.1节。在类模块的“通用”段声明变量如下： Private mvarEnabled As Boolean 用于局部复制属性Enabled的变量 Private mvarInterval As Integer 用于局部复制属性Interval的变量 Public Event Timer() 声明Timer事件 在类模块中添加计时器类的Interval属性过程： Public Property Let Interval(ByVal vData As Integer) mvarInterval = vData End Property Public Property Get Interval() As Integer Interval = mvarInterval End Property,在类模块中添加计时器类的Enabled属性过程： Public Property Let Enabled(ByVal vData As Boolean) mvarEnabled = vData If vData = True Then Me.Display 调用类模块中的Display方法 End If End Property Public Property Get Enabled() As Boolean Enabled = mvarEnabled End Property 当计时器的Enabled属性为True时，调用如下类模块中的Display方法： Public Sub Display() Dim start As Single Dim NI As Single start = Timer NI = Me.Interval / 1000 Do,If Timer start + NI Then DoEvents RaiseEvent Timer 引发Timer事件 If Not Me.Enabled Then Exit Su Enabled属性为False时，结束方法 NI = NI + Me.Interval / 1000 End If Loop End Sub (2) 设计窗体界面与设置属性如图13-6左所示。 (3) 在窗体模块中编写代码。 首先在窗体的“通用”段用WithEvents关键字声明“带有事件”的对象变量： Private WithEvents mm As timClass 在窗体的Load事件代码中为对象变量赋值： Private Sub Form_Load() Set mm = New timClass End Sub,编写计时器对象的事件代码： Private Sub mm_Timer() Label1.Caption = Time() End Sub 编写命令按钮Command1的Click事件代码，来打开或关闭计时器： Private Sub Command1_Click() Command1.Caption = IIf(mm.Enabled, “开始“, “暂停“) mm.Interval = 100 mm.E