Visual Basic的类对于面向对象的支持
来源:互联网 发布:网络诈骗网警怎么报案 编辑:程序博客网 时间:2024/06/06 00:06
VB最为人垢病的是它的面向对象特性。实际上VB是一种基于对象的开发工具。在VB中
建立的类是支持继承的。下面是范例:
首先建立一个新工程,然后添加一个新的类模块(Class Module),类名称设定为BaseClass。
然后在BaseClass中加入以下代码:
Public Sub BaseSub() '虚拟特性,BaseSub在子类中实现
End Sub
然后添加两个类模块,类名称分别设定为ImpClass以及ImpClass2,然后在类的代码窗口中写入:
Implements BaseClass '继承特性
上面这行代码说明类ImpClass以及ImpClass2实现类BaseClass。
在ImpClass窗口中加入以下代码:
Private Sub BaseClass_BaseSub() '实现基类中的BaseSub方法
MsgBox "Hello. This is Imp. inherited from BaseClass"
End Sub
在ImpClass2中加入以下代码:
Private Sub BaseClass_BaseSub()
MsgBox "Hello. This is Imp2. inherited from BaseClass"
End Sub
完成了上面的类代码后,打开Form1,在上面添加一个CommandButton,在按钮的Click事件中
写入以下代码:
Dim xImp As New ImpClass
Dim xIMp2 As New ImpClass2
Dim xBase As BaseClass
Set xBase = xImp '多态特性
xBase.BaseSub
Set xBase = xIMp2
xBase.BaseSub
Set xBase = Nothing
Set xImp = Nothing
Set xIMp2 = Nothing
运行程序,点击CommandButton,程序会先后弹出消息框,显示在ImpClass以及ImpClass2中
设定的消息。
从上面的代码中可以看到VB中是如何实现面向对象的特性:继承、虚拟以及多态的。只是同
诸如Java、C++、Object Pascal不同,VB将很多实现的细节隐藏了起来。
建立的类是支持继承的。下面是范例:
首先建立一个新工程,然后添加一个新的类模块(Class Module),类名称设定为BaseClass。
然后在BaseClass中加入以下代码:
Public Sub BaseSub() '虚拟特性,BaseSub在子类中实现
End Sub
然后添加两个类模块,类名称分别设定为ImpClass以及ImpClass2,然后在类的代码窗口中写入:
Implements BaseClass '继承特性
上面这行代码说明类ImpClass以及ImpClass2实现类BaseClass。
在ImpClass窗口中加入以下代码:
Private Sub BaseClass_BaseSub() '实现基类中的BaseSub方法
MsgBox "Hello. This is Imp. inherited from BaseClass"
End Sub
在ImpClass2中加入以下代码:
Private Sub BaseClass_BaseSub()
MsgBox "Hello. This is Imp2. inherited from BaseClass"
End Sub
完成了上面的类代码后,打开Form1,在上面添加一个CommandButton,在按钮的Click事件中
写入以下代码:
Dim xImp As New ImpClass
Dim xIMp2 As New ImpClass2
Dim xBase As BaseClass
Set xBase = xImp '多态特性
xBase.BaseSub
Set xBase = xIMp2
xBase.BaseSub
Set xBase = Nothing
Set xImp = Nothing
Set xIMp2 = Nothing
运行程序,点击CommandButton,程序会先后弹出消息框,显示在ImpClass以及ImpClass2中
设定的消息。
从上面的代码中可以看到VB中是如何实现面向对象的特性:继承、虚拟以及多态的。只是同
诸如Java、C++、Object Pascal不同,VB将很多实现的细节隐藏了起来。
- Visual Basic的类对于面向对象的支持
- Visual Basic的类对于面向对象的支持
- Visual Basic .NET 已不再支持的 Visual Basic 6.0 功能
- JavaScript面向对象的支持
- JavaScript面向对象的支持
- JavaScript面向对象的支持
- JavaScript面向对象的支持
- Javascript 的面向对象支持
- 对于面向对象的理解,什么是面向对象
- 最近对于面向对象的定义
- java中对于面向对象的理解
- 对于面向对象的简单理解
- Java对于面向对象编程的设计
- 面向 Microsoft Visual Basic 程序员的 COM+ 概述
- LINQ学习篇(2) -- 支持 LINQ 的 Visual Basic 功能
- Visual Basic 的常见问题
- Visual Basic .NET 中 Printer 对象的更改
- Visual Basic 对象Refresh的方法IAdodc失败
- 浸大讲学引发学生吵闹 周润发叹与好莱坞无缘[news]
- 我的相机 A70
- 解析Win XP操作系统文件共享
- 开源项目的质量警钟
- 2.5 - [lex.digraph] - 【词法.双连符】
- Visual Basic的类对于面向对象的支持
- ASP中页面限权访问的几种方法
- [C] 结构对齐
- 堵住ASP漏洞(转来的)
- 马拉多纳:雷东多含泪的眼睛 (zz from sina)
- 高效率开发过程
- 20种看asp源码的方法及工具
- vb的GUID生成算法
- 界面开发之Flat3DButton