第1章 面向对象编程简介

《第1章 面向对象编程简介》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计教程机械工业出版社同名教材配套电子教案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

2、ReDim

3、Static

4、Private

5、Pub

6、lic}〈变量名〉As[New]〈类名〉【例13-1】使用对象变量创建新窗体。设计步骤如下：(1)设计界面与设置属性参见图13-1左。图13-1“克隆”窗体(2)编写命令按钮Command1的Click事件代码：PrivateSubCommand1_Click()DimobjFormAsNewForm1objForm.ShowEndSub运行程序，单击命令按钮，将不断地创建与原有窗体完全一样的新窗体，如图13-1右所示。2.对象变量的赋值对象变量赋值语句的语法格式为:Set〈变量名〉=〈对象〉【例13-2】使用对象变量引用按钮对象。设计步骤如下：(1)设计界

7、面与设置属性参见图13-2左。图13-2引用按钮对象(2)编写窗体的MouseUp事件代码：PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimcmdAsCommandButton'声明对象变量cmd为按钮类型Setcmd=Command1'将命令按钮Command1赋值给cmdcmd.Top=Y'引用cmdcmd.Left=XEndSub运行程序，在窗体上单击鼠标，命令按钮将随着鼠标单击的位置移动，如图13-2右所示。3.特定对象变量与通用对象变量【例13

8、-3】使用通用控件变量引用不同的控件。设计步骤如下：(1)设计界面与设置属性。(2)编写代码。首先编写窗体的Load事件代码，将各控件的Left属性保存在Tag属性中：PrivateSubForm_Load()ForEachobjInMe.Controlsobj.Tag=obj.LeftNextEndSub然后编写窗体的Click事件代码：PrivateSubForm_Click()StaticnAsInteger,yAsBooleanDimcntAsControl'声明对象变量cnt为通用控件y=NotySetcnt=Me.Controls(n)'依次将不

9、同的控件赋值给cntIfyThencnt.Left=cnt.Tag'引用cntn=n+1Elsecnt.Left=0'引用cntEndIfn=nMod3EndSub13.2类的创建13.2.1创建类模块在工程中创建一个类模块的步骤为:(1)选择“工程”菜单中的“添加类模块”菜单项，打开“添加类模块”对话框（图13-4）。图13-4“添加类模块”对话框13.2.2为类添加属性添加全局变量与局部变量2.属性过程(1)PropertyLet过程的语法格式为[Public

10、Private

11、Friend][Static]PropertyLet〈属性名〉([参数列表,]

12、〈值〉)[〈语句列〉][ExitProperty][〈语句列〉]EndProperty(2)PropertyGet过程的语法格式为[Public

13、Private

14、Friend][Static]PropertyGet〈属性名〉[参数列表][As〈类型〉][〈语句列〉][〈属性名〉=expression][ExitProperty][〈语句列〉][〈属性名〉=expression]EndProperty(3)PropertySet过程的语法格式为[Public

15、Private

16、Friend][Static]PropertySet〈属性名〉([参数列表,]〈对象变

17、量〉)[〈语句列〉][ExitProperty][〈语句列〉]EndProperty13.2.3为类添加方法【例13-4】设计一个能画出五角星的类，并在窗体中调用。设计步骤如下：(1)首先设计类Class1。新建一个工程。为工程添加一个类模块Class1，参见13.2.1。在类模块的“通用”段声明变量如下：PrivatemXAsSingle'用于局部复制X属性PrivatemYAsSingle'用于局部复制Y属性PrivatemFrmAsObject'用于局部复制Frm属性在类模块中添加用于设置窗体对象的属性过程：PublicPropertySetFrm(B

18、yValvDataAsObject)SetmFrm=