VBNET面向对象的实现一.docx
- 文档编号:8106497
- 上传时间:2023-01-28
- 格式:DOCX
- 页数:24
- 大小:29.41KB
VBNET面向对象的实现一.docx
《VBNET面向对象的实现一.docx》由会员分享,可在线阅读,更多相关《VBNET面向对象的实现一.docx(24页珍藏版)》请在冰豆网上搜索。
VBNET面向对象的实现一
VB.NET面向对象的实现
(一)
在VB6中面向对象的能力还不是很强,但随着VB.NET的出现,其面向对象的能力大大增强。
VB.Net不仅为我们提供了新的面向对象的特性,而且它也改变了我们在VB6中实现一些特性时所用的方法。
在本教程中我将带你浏览一下这些特性,并将涉及到新的性能以及现有特性的变化。
本简缩教程的内容有:
1.创建类:
类关键字、类及名空间、创建方法、创建属性、重载方法等。
2.对象的生命周期:
对象的构造、对象的终止
3.继承:
实现基本的继承、阻止继承、继承与辖域、保护方法、重载方法、重载与 构造方法、创建基类以及抽象方法
4.共享或类成员:
共享方法、共享变量
5.事件:
共享事件、触发事件
6.界面:
怎样使用界面
7.对象的处理:
对象的声明等等
8.交叉语言的继承:
创建VB.NET的基类、创建C#子类、创建一个客户应用程序。
9.可视化继承
总结
创建类
在VB以前的版本中创建类时,每一个类都有它自己的文件。
如果VB.NET也使用这种方法的话,那VB.NET工程将是一个更大的面向对象工程因为它包含许多文件。
但是幸运的是,VB.NET并不是采用这样方法来创建类。
可以说这是一个创举,因为它不用为创建一个类就创建一个文件。
而是在一个文件中包含许多类,这样就使得程序的可维护性更好了。
另外VB.NET也提供了对.NET名空间概念的支持。
VB.NET用于创建属性方法的语法也有些改变。
类似于VisualC++,我们可以在类中重载这些方法。
至此,我们对VB.NET的新特性已经可以略见一斑了。
好吧,言归正转,现在可是为一个工程增加类。
其实,在VB.NET中增加一个类与在VB6增加一个类是很类似的。
为了做到这一点我们需要先创建一个新的Winodws应用程序工程,具体操作是从菜单中选择Project(工程)->AddClass(增加类),这时就会弹出一个增加新项目的对话框,如图1所示。
在图1的对话框中用户可以增加任意类型的项目到工程中。
在本例子中是使用缺省的项目,即增加一个类模块。
不管我们选择了哪种VB代码文件(如表单、类、模块等等),我们得到文件名字的扩展名都为.vb,如图1中的class1.vb。
这里值得指出的是,文件的类型是由它的内容决定的,而不是由文件的扩展名决定的。
根据我们所选择的类型,IDE(集成开发环境)就在文件中创建不同的开始代码。
在如图1所示的对话框的最后一行给类命名为MyClass,然后点击Open键,这样一个新的文件就将增加到我们的工程中,它包含了以下简单的代码:
PublicClassMyClass
EndClass
在一个.vb文件中可以包含多个类、模块以及其它代码。
接下来的设计过程实际上跟VB的差不多,我们可以手动增加其它的代码到这个文件中去。
这里值得指出的是一旦在IDE创建类的时候它就会增加一个新的文件到工程中去。
类关键字
在下面的例子中,代码包含了一个关键字EndClass。
这是一个新的关键字,使用它的目的是为了在一个源文件中包含多个类,这点正是VB.NET与VB6在创建类区别的精髓所在。
每当我们在VB.NET中创建类的时候,我们只是简单地将所有的的代码包含在Class和EndClass之间。
例子代码如下:
PublicClassTheClass
PublicSubMyWorks()
EndSub
EndClass
另外在一个特定的源文件(后缀名为.vb)中,我们可以使用多个Class...EndClass块。
类与名空间
名空间的概念是.NET环境重要内容,因为它可以提供哪个类可以被组成逻辑组的机理,并且使得这些类更容易的搜索以及管理。
在VB.NET名空间是使用块结构来声明的。
例如:
NamespaceMyNamespace
PublicClassMyClass
EndClass
EndNamespace
在Namespace...EndNamespace块之间声明的任何类、结构等等将可以使用那个名空间被寻址。
在本例子中,我们的类可以使用这个名空间来引用,这样定义一个变量就变成了:
PrivateobjAsMyNamespace.MyClass
因为名空间是使用块结构来创建的,所以在单一的源文件中就不仅可以包含多个类,而且可以包含多个名空间。
同样,在一个相同名空间的类可以被创建在分隔的文件中。
换句话说,在一个VB.NET工程中,我们可以使用在不同源文件中相同的名空间,而所有在这些名空间中的类将是那个相同名空间的一部分。
为了更好地理解,下面再给出一个源文件:
NamespaceMyNamespace
PublicClassMyClass
EndClass
EndNamespace
我们在工程中还有以下一个独立的源文件,其代码如下:
NamespaceMyNamespace
PublicClassMyOtherClass
EndClass
EndNamespace
以上的两短段代码是为了说明在同一个名空间MyNamespace中有两个类:
MyClass和MyOtherClass。
这里还需指出,在缺省状态下,VB.NET工程有一个根名空间(rootnamespace),它实际上是工程属性的一部分。
这个根名空间使用了与工程相同的名字。
所以当我们使用名空间块结构的时候,我们实际上是增加到根名空间上去。
因此,如果你的工程命名为MyProject,那么我们可以这样来定义一个变量:
PrivateobjAsMyProject.MyNamespace.MyClass
当然你也可以改变根名空间,具体操作可以使用菜单选项:
Project(工程)->Properties(属性)。
VB.NET面向对象的实现
(二)
创建方法
在VB.NET中方法的创建还是跟在VB6中的一样,你可以使用Sub或者Function关键字。
Sub和Function的区别是:
用Sub来创建一个方法,它将不返回数值;若是利用Function来创建一个方法,它将返回一个数值作为结果。
例如:
SubMyWorks()
EndSub
FunctionMyValue()AsInteger
EndFunction
在VB.NET中我们仍可以使用辖域关键字,这跟在VB6中的差不多,只是多了Protected。
具体的辖域关键字有:
Private表明只能调用类中的代码;
Friend表明可以在我们的工程/组件中调用代码;
Public表明可以在我们的类外部调用代码;
Protected是VB.NET新增的,这个我们将在讨论继承的时候再具体阐述。
ProtectedFriend表明只能在我们的工程/组件调用代码以及我们的Subclass的代码。
同样我们将在讨论继承的时候再具体阐述。
缺省地,方法的参数是声明为ByVal而不是ByRef。
当然,我们仍然可以通过使用ByRef关键字来重载这个缺省的行为。
创建属性
以前我们创建属性的时候是使用PropertyGet和PropertyLet,但现在在VB.NET中已经将它集成到一个结构中去了。
例子如下:
PrivatemystrNameAsString
PublicPropertyName()AsString
Get
ReturnmystrName
EndGet
Set
mystrName=Value
EndSet
EndProperty
缺省的属性
在VB6中创建类的时候,我们可以为类声明一个缺省的方法或者属性。
具体做法可以菜单选项:
Tools(工具)->ProcedureAttributes(过程属性)并设置ProcedureID为缺省值。
VB.Net用两种方法改变了这种行为。
第一,使用一个缺省的关键字来创建缺省的属性,使得声明更加清晰直观。
但是,VB.NET还给缺省的属性引入了一种新的限制,即属性必须是一个属性阵列。
属性阵列实际上就跟数组一样,有一个索引。
在选择或者列表对象中的项目属性就是一个例子:
strText=MyList.Item(5)
这个项目属性没有单一的数值,而是有一组的属性,它们可以通过索引来访问。
通过使用属性阵列作为缺省属性,我们就允许程序语言避免了在使用缺省属性的多义性。
正如我们在VB6中所知道的,关键字Set的限制是关键。
下面再看看以下的语句:
MyValue=MyObject
这句是指对象MyObject还是指它的缺省属性呢?
为了识别它,在VB6中使用了Set命令来处理对象,如不使用Set就是指缺省的属性。
在VB.NET中这条语句是指对象,因为缺省的属性是要被索引的。
为了得到缺省的属性,我们要编写以下代码:
MyValue=MyObject(5)
因为索引是一个清楚的指示器(我们指缺省的属性,而不是MyObject本身),所以就不会有多义的存在了。
VB.NET这样的改变就意味着属性阵列过程必须接收一个参数。
例如
PrivateMyMoney(100)AsString
DefaultPublicPropertyMoney(ByValIndexAsInteger)AsString
Get
Money=MyMoney(index)
EndGet
Set
MyMoney(index)=Value
EndSet
EndProperty
最后,看起来这些代码比VB6更清楚,但也会丢失了一些灵活性。
在过去,我们喜欢使用缺省的属性。
举个例子,我们在用GUI控件的时候经常使用缺省的属性,比如缺省的文本属性。
TextBox1=MyText
但是这在VB.NET中已经不再有效,因为文本属性不再是一个属性阵列,相反地我们必须使用属性名字。
重载方法
VB.NET的另外一个新特性是有重载方法的能力。
重载的意思是我们可以在一个类中多次声明相同名字的方法只要每一次的声明都有不同的参数列表。
不同的参数列表意味着在列表中不同类型的数据类型。
现在让我们先看看以下的方法声明:
PublicSubMyMethod(XAsInteger,YAsInteger)
这种方法的参数列表可以看成(integer,integer)。
为了重载这种方法,我们必须使用不同的参数列表,例如(integer,double)。
当然你还可以改变一下数据类型的顺序,比如(integer,double)和(double,integer)是不同的,这两种也是重载。
重载不能只是通过改变函数的返回类型来实现,而是要求参数的数据类型不同。
作为一个例子,假如我们想提供一个搜索的功能并且根据一些条件返回一组数据,具体代码应该为:
PublicFunctionMyFindData(ByValNameAsString)AsArrayList
(搜索数据并且返回结果)
EndFunction
在VB6中,如果我们想基于一些条件增加一个新的搜索选项,就必须增加一个不同名字的函数,也就是说VB6还没有具备重载的能力。
但是现在在VB.NET中,我们可以简单地重载已经存在的函数,这一点和VisualC++很是相似。
PublicOverloadsFunctionFindData(ByValNameAsString)AsArrayList
(搜索数据并且返回结果)
EndFunction
PublicOverloadsFunctionFindData(ByValAgeAsInteger)AsArrayList
(搜索数据并且返回结果)
EndFunction
仔细观察可以发现两种方法的声明都是有相同的方法名字。
这一点在VB6中就不行的,它要求每一个方法名字都不一样。
但是,在VB.NET中就允许存在相同名字的方法,但其参数要求是不同的。
值得一提的是,每一个声明都要加入Overloads关键字。
当重载一个方法的时候,我们可以使用Public、Friend等等的辖域关键字让它有不同的作用域,具体做法只要使用不同的参数列表即可。
这就意味着我们可以改变MyFindData方法,使它有不同的作用域:
PublicOverloadsFunctionFindData(ByValNameAsString)AsArrayList
(搜索数据并且返回结果)
EndFunction
FriendOverloadsFunctionFindData(ByValAgeAsInteger)AsArrayList
(搜索数据并且返回结果)
EndFunction
有了这个改变,在VB.NET工程中其它代码可以使用MyFindData。
MyFindData只需要接收一个整型数据作为参数即可。
VB.NET面向对象的实现(三)
对象的生命周期
在VB6中,对象有一个很清楚的定义以及很容易理解的生命周期的概念,对象的生命周期是由下面的事件来定义的。
事件描述
SubMain运行时它将作为组件被装载,并且是在对象创建之前装载。
Class_Initialize它是在对象中其它代码运行之前运行。
当对象被创建的时候它被运
行程序所调用。
Class_Terminate是在对象中其它代码运行之后再运行。
当对象被卸载的时候被运行
程序调用。
在VB.NET,对象也有生命周期的概念,但是已经跟以前大不一样了。
特别地,我们不再有相同的组件级的SubMain(它作为一个DLL被装载)的概念,并且Class_Terminate事件也被改变了,而Class_Initialize事件被成熟的构造函数方法所取代。
值得指出的是,这个构造函数方法可以接收参数。
现在在VB.NET中,我们定义一个生命周期只需要用了一个New事件,这个New事件是在对象中其它代码之前运行的,并且在对象被创建的时候被调用。
从VB6到VB.NET确实变化很大,下面我们具体讨论。
构造
对象构造是在我们创建一个类新的实例的时候被触发的。
具体可以使用关键字NEW来实现它。
SubMain
自从VB6基于COM,创建一个对象将触发一个SubMain过程运行。
这将发生在一个对象从一个给定的组件(通常为DLL)创建来的时候。
在创建对象之前,VB6运行程序将装载DLL(动态连接库)并运行SubMain过程。
.NET通用语言运行程序处理组件采取不同的方法,当然VB.NET也是这样的。
这就意味着没有SubMain过程在组件装载时候被调用。
实际上,SubMain只使用在当一个应用程序开始的时候。
当另外的组件被应用程序装载的时候,只有在类中的代码才被调用。
其实在VB6中依靠SubMain是不明智的做法,因为代码将在所有错误操作之前被运行。
SubMain中的Bugs是难以在VB6中调试。
如果我们不得不使用依耐于SubMain概念的代码来初始化,那么我们需要在VB.NET执行一个工作区。
在每一个类中从构造函数方法中调用一个方法是很容易做到的。
举个例子,我们可以在一个模块中创建一个有效的代码:
PublicModuleCentralCode
PrivateblnHasRunAsBoolean
PublicSubInitialize()
IfNotblnHasRunThen
blnHasRun=True
(在这里作初始化工作)
EndIf
EndSub
EndModule
这个程序是被设计为只运行一次,不管是怎么被调用。
我们可以从类中的每一个构造函数来使用这个方法。
比如:
PublicClassTheClass
PublicSubNew()
CentralCode.Initialize()
(这里加入另外的工作)
EndSub
EndClass
以上的代码虽然作了一些额外的工作,它跟使用VB6类型的SubMain程序达到同样的效果。
New方法
就象SubMain,Class_Initialize是在其它VB6类中的代码运行之前被调用的。
此外,它是在错误处理之前被调用的,所以使得调试变得很难,而错误作为一般的错误显示在客户端来实例化对象。
另外地,Class_Initialize不用参数,这意味着在VB6中没有方法可以在对象被创建的时候用数据来进行初始化。
VB.NET剔除了Class_Initialize而采用完整的构造函数方法。
这个构造函数有完整的错误处理能力以及可以接收参数。
所以我们可以在创建对象的时候来对它们进行初始化,这是VB.NET一个十分重要的特性。
VB.NET中构造函数方法是SubNew。
PublicClassTheClass
PublicSubNew()
(在这里初始化对象)
EndSub
EndClass
利用这种类型的构造函数,可以如下创建类的实例:
DimobjAsNewTheClass()
这个例子类似于在Class_Initialize创建一个VB6代码。
但是,经常地,我们在创建对象的时候往往要用数据来初始化对象。
我们可以从数据库中来装载一些数据,或者我们可以直接为对象提供数据。
不管用什么方法,我们是想在对象被创建的时候为它提供一些数据。
为了做到这点,可以增加参数列表给New方法:
PublicClassTheClass
PublicSubNew(ByValIDAsInteger)
(在这里使用ID数值来初始化对象)
EndSub
EndClass
现在我们来创建类的一个实例,并且为对象提供数据,代码如下:
DimobjAsNewTheClass(42)
为了增加灵活型,我们可以接收可选的参数数值。
为了实现这个,可以有两种方法:
通过使用Optional关键字来声明一个可选择的参数,或者通过重载New方法。
为了使用Optional关键字,我们简单地声明可选择的参数,代码如下:
PublicSubNew(OptionalByValIDAsInteger=-1)
IfID=-1Then
(这里可以初始化对象)
Else
(这里可以使用ID数值来初始化对象)
EndIf
EndSub
这种方法太过于理想化了,但是,既然我们不得不检查是否参数是(不是)已经提供,然后决定怎样初始化对象。
New方法又两个方法可以实现。
第一种是对于每种行为类型而言的,它可以通过重载来实现:
PublicOverloadsSubNew()
(这里可以初始化对象)
EndSub
PublicOverloadsSubNew(ByValIDAsInteger)
(这里可以使用ID数值来初始化对象)
EndSub
这种方法不仅可以避免有条件的检查以及简化了代码,而且它还使得对于客户代码对象的使用都变得更清晰。
这个重载New方法可以使用参数也可以不用参数,有更大的灵活性。
实际上,通过重载,我们可以创建许多不同的构造函数,也可以利用许多种不同的方法来初始化我们的对象。
在VB.NET中构造函数方法是可选的。
但是只有一个例外,那就是当我们使用继承的时候,父类就只有一个构造函数需要参数。
在本教程的后面我们将讨论继承。
VB.NET面向对象的实现(四)
对象的终止
在VB6中对象是在最后引用移除后被终止的。
换成另外一句话说,当没有其它代码引用这个对象的时候,这个对象将自动终止。
具体触发这个终止事件的是Class_Terminate。
这种方法是使用引用计数来决定对象是否被终止的,是VB的一个直接的产品,它跟COM有紧密的联系。
所以我们在需要终止这个对象的使用就调用Class_Terminate事件,使得很容易控制对象。
但是它也有不足之处。
很明显地,虽然在两个对象之间创建循环引用是很容易,但是它们将在内存中永远地被运行。
这正是在VB6中其中一种导致内存泄漏的缺陷。
这个内存泄漏问题在VB6以前的版本中是无法克服的。
在VB6中,循环引用只发生在不同组件上。
在VB6中,由相同的组件中的类创建而来的类将被自动终止,即使它们有循环引用。
但是,如果对象来自不同的组件,循环引用问题就依然存在。
这个是个很大的问题,它给许多VB开发人员带来了麻烦。
所以,在VB6中程序不得不寻求各种方法来终止对象。
不象COM,.NET不是使用引用计数来决定对象是否被终止的。
取而代之的是,它使用了一个有名的“垃圾收集”方案来终止对象。
可能听到“垃圾收集”方案,您会云里雾里的,它的意思实际上是在VB.NET中我们不用预先定一个对象的终止方案,因此我们就不能准确地预测对象什么时候被终止的。
下面我们详细探讨一下“垃圾收集”。
“垃圾收集”
在.NET中,引用计数不是一个基础功能部分。
相反地,对象是通过一个“垃圾收集”机理被终止。
在某特定的时间(这决定特殊的规则),一个任务会在所有的对象中运行来查找哪些已经没有被引用的对象,并且将这些对象终止,即所谓的“垃圾收集”,名字是有点土,但更形象化。
由以上的讨论我们可以知道,我们不能很准确地知道对象是在什么时候被终止的。
我们除去对象的所有引用之后,并不是意味着对象快速地被终止了。
此时对象还存在于内存中,直到垃圾收集处理程序运行之后才将它从内存中清除。
垃圾收集的主要好处是它清除了由引用计数带来的循环应用问题。
如果两个对象互相有引用,并且在程序中没有其它互相引用的代码时,垃圾收集程序就会发现它们并将它们终止。
这一点在COM中是不可能做到的,因为它们将在内存中永远存在。
垃圾收集还有另外一个潜在的性能优点:
在对象被取消引用的时候不用花很多的精力在终止对象上;利用了垃圾收集,这个终止处理过程是在应用程序处于空闲状态发生的,所以它减轻了对用户的影响。
但是,垃圾收集也会发生在应用程序处在运行装载的时候,这时候系统将会运行在较低的系统资源下。
另外,我们可以通过编写代码来手动触发垃圾收集处理程序:
System.GC.Collect()
以上这个处理过程要花一些时间,但是我们在想终止对象的时候也不必每次都执行这个处理过程。
我们最好是这样来设计我们的应用程序:
在最后终止对象的时候才将对象从内存在清除。
Finalize方法
这个垃圾收集机理提供了一些功能,这些功能可以跟VB6中的Class_Terminate事件相媲美。
当对象被终止的时候,垃圾收集处理的代码将调用Finalize方法,它就象Class_Terminate一样可以进行一些最后的内存清理工作。
ProtectedOverridesSubFinalize()
(此处可以进行一些内存清理工作)
EndSub
以上的这些代码可以使用Protected(保护)作用域也可以使用重载关键字。
这里值得指出的是,这种方法是在对象被垃圾收集机理终止之前被调用的,所以它跟Class_Terminate很是相似。
但是,我们还需要记得这种方法可以在对象被取消引用后被调用,它是通过最后一段客户代码来实现的。
实现Dispose方法
在有些场合中Finalize方法是不可接收的。
如果我们有一个对象,它是使用一些非常有限的宝贵的系统资源,比如数据库连接、文件处理或者系统锁住等等。
这时候我们就需要确保系统资源在对象被取消引用的时候是否被释放。
为了实现这个目的,我们可以执行这样一个方法,它可以被客户代码调用来强迫对象被清除并且释放系统资源。
虽然这不是一个很好的解决方案,但是它确实是很有效的。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBNET 面向 对象 实现