面向对象编程简介.ppt
《面向对象编程简介.ppt》由会员分享,可在线阅读,更多相关《面向对象编程简介.ppt(23页珍藏版)》请在三一文库上搜索。
1、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
2、 | 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变量名=对象 【例1
3、3-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 运行程序,在窗体上单
4、击鼠标,命令按钮将随着鼠标单击的位置移动,如图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 Boo
5、lean 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 为类添加属
6、性 添加全局变量与局部变量 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) Propert
7、y 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 mFr
8、m 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 Ge
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 面向 对象 编程 简介
链接地址:https://www.31doc.com/p-2605237.html