在VB 6中面向对象的能力还不是很强，但随着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用于创建属性方法的语法也有些改变。类似于Visual C++，我们可以在类中重载这些方法。至此，我们对VB.NET的新特性已经可以略见一斑了。好吧，言归正转，现在可是为一个工程增加类。

其实，在VB.NET中增加一个类与在VB6增加一个类是很类似的。为了做到这一点我们需要先创建一个新的Winodws应用程序工程，具体操作是从菜单中选择Project(工程)->Add Class（增加类），这时就会弹出一个增加新项目的对话框。

在对话框中用户可以增加任意类型的项目到工程中。在本例子中是使用缺省的项目，即增加一个类模块。不管我们选择了哪种VB 代码文件(如表单、类、模块等等)，我们得到文件名字的扩展名都为.vb，如图1中的class1.vb。

这里值得指出的是，文件的类型是由它的内容决定的，而不是由文件的扩展名决定的。根据我们所选择的类型，IDE（集成开发环境）就在文件中创建不同的开始代码。

在如图1所示的对话框的最后一行给类命名为MyClass，然后点击Open键，这样一个新的文件就将增加到我们的工程中，它包含了以下简单的代码：

Public Class MyClass

End Class

在一个.vb文件中可以包含多个类、模块以及其它代码。接下来的设计过程实际上跟VB的差不多，我们可以手动增加其它的代码到这个文件中去。这里值得指出的是一旦在IDE创建类的时候它就会增加一个新的文件到工程中去。

类关键字

　　在下面的例子中，代码包含了一个关键字End Class。这是一个新的关键字，使用它的目的是为了在一个源文件中包含多个类，这点正是VB.NET与VB6在创建类区别的精髓所在。每当我们在VB.NET中创建类的时候，我们只是简单地将所有的的代码包含在Class和End Class 之间。例子代码如下：

Public Class TheClass

Public Sub MyWorks()

End Sub

End Class

另外在一个特定的源文件(后缀名为.vb)中,我们可以使用多个Class...End Class块。

类与名空间

　　名空间的概念是.NET环境重要内容，因为它可以提供哪个类可以被组成逻辑组的机理，并且使得这些类更容易的搜索以及管理。在VB.NET名空间是使用块结构来声明的。例如：

Namespace MyNamespace

Public Class MyClass

End Class

End Namespace

在Namespace...End Namespace块之间声明的任何类、结构等等将可以使用那个名空间被寻址。在本例子中，我们的类可以使用这个名空间来引用，这样定义一个变量就变成了：

Private obj As MyNamespace.MyClass

因为名空间是使用块结构来创建的，所以在单一的源文件中就不仅可以包含多个类，而且可以包含多个名空间。

同样，在一个相同名空间的类可以被创建在分隔的文件中。换句话说，在一个VB.NET工程中，我们可以使用在不同源文件中相同的名空间，而所有在这些名空间中的类将是那个相同名空间的一部分。

为了更好地理解，下面再给出一个源文件：

Namespace MyNamespace

Public Class MyClass

End Class

End Namespace

我们在工程中还有以下一个独立的源文件，其代码如下：

Namespace MyNamespace

Public Class MyOtherClass

End Class

End Namespace

以上的两短段代码是为了说明在同一个名空间MyNamespace中有两个类：MyClass和MyOtherClass。

这里还需指出，在缺省状态下，VB.NET工程有一个根名空间（root namespace），它实际上是工程属性的一部分。这个根名空间使用了与工程相同的名字。所以当我们使用名空间块结构的时候，我们实际上是增加到根名空间上去。因此，如果你的工程命名为MyProject，那么我们可以这样来定义一个变量：

Private obj As MyProject.MyNamespace.MyClass

当然你也可以改变根名空间，具体操作可以使用菜单选项：Project（工程）->Properties（属性）。

创建方法

　　在VB.NET中方法的创建还是跟在VB6中的一样，你可以使用Sub或者Function关键字。Sub和Function的区别是：用Sub来创建一个方法，它将不返回数值；若是利用Function来创建一个方法，它将返回一个数值作为结果。例如：

Sub MyWorks()

End Sub

Function MyValue() As Integer

End Function

在VB.NET中我们仍可以使用辖域关键字，这跟在VB 6中的差不多，只是多了Protected。具体的辖域关键字有：

Private表明只能调用类中的代码；

Friend 表明可以在我们的工程/组件中调用代码；

Public 表明可以在我们的类外部调用代码；

Protected是VB.NET新增的，这个我们将在讨论继承的时候再具体阐述。

Protected Friend 表明只能在我们的工程/组件调用代码以及我们的Subclass的代码。同样我们将在讨论继承的时候再具体阐述。

缺省地，方法的参数是声明为ByVal而不是ByRef。当然，我们仍然可以通过使用ByRef关键字来重载这个缺省的行为。

创建属性

　　以前我们创建属性的时候是使用Property Get和Property Let，但现在在VB.NET中已经将它集成到一个结构中去了。例子如下：

Private mystrName As String

Public Property Name() As String

Get

Return mystrName

End Get

Set

mystrName = Value

End Set

End Property

缺省的属性

　　在VB6中创建类的时候，我们可以为类声明一个缺省的方法或者属性。具体做法可以菜单选项：Tools（工具）->Procedure Attributes（过程属性）并设置Procedure ID为缺省值。

VB.Net用两种方法改变了这种行为。第一，使用一个缺省的关键字来创建缺省的属性，使得声明更加清晰直观。但是，VB.NET还给缺省的属性引入了一种新的限制，即属性必须是一个属性阵列。

属性阵列实际上就跟数组一样，有一个索引。在选择或者列表对象中的项目属性就是一个例子：

strText = MyList.Item(5)

这个项目属性没有单一的数值，而是有一组的属性，它们可以通过索引来访问。

通过使用属性阵列作为缺省属性，我们就允许程序语言避免了在使用缺省属性的多义性。正如我们在VB6中所知道的，关键字Set的限制是关键。下面再看看以下的语句：

MyValue = MyObject

这句是指对象MyObject还是指它的缺省属性呢？为了识别它，在VB6中使用了Set命令来处理对象，如不使用Set就是指缺省的属性。在VB.NET中这条语句是指对象，因为缺省的属性是要被索引的。为了得到缺省的属性，我们要编写以下代码：

MyValue = MyObject(5)

因为索引是一个清楚的指示器（我们指缺省的属性，而不是MyObject本身），所以就不会有多义的存在了。

VB.NET这样的改变就意味着属性阵列过程必须接收一个参数。例如

Private MyMoney(100) As String

Default Public Property Money(ByVal Index As Integer) As String

Get

Money = MyMoney(index)

End Get

Set

MyMoney(index) = Value

End Set

End Property

最后，看起来这些代码比VB6更清楚，但也会丢失了一些灵活性。在过去，我们喜欢使用缺省的属性。举个例子，我们在用GUI控件的时候经常使用缺省的属性，比如缺省的文本属性。

TextBox1 = MyText

但是这在VB.NET中已经不再有效，因为文本属性不再是一个属性阵列，相反地我们必须使用属性名字。

重载方法

　　VB.NET的另外一个新特性是有重载方法的能力。重载的意思是我们可以在一个类中多次声明相同名字的方法只要每一次的声明都有不同的参数列表。

不同的参数列表意味着在列表中不同类型的数据类型。现在让我们先看看以下的方法声明：

Public Sub MyMethod(X As Integer, Y As Integer)

这种方法的参数列表可以看成(integer,integer)。为了重载这种方法，我们必须使用不同的参数列表，例如(integer,double)。当然你还可以改变一下数据类型的顺序，比如(integer,double)和(double,integer)是不同的，这两种也是重载。重载不能只是通过改变函数的返回类型来实现，而是要求参数的数据类型不同。

作为一个例子，假如我们想提供一个搜索的功能并且根据一些条件返回一组数据，具体代码应该为：

Public Function MyFindData(ByVal Name As String) As ArrayList

（搜索数据并且返回结果）

End Function

在VB 6中，如果我们想基于一些条件增加一个新的搜索选项，就必须增加一个不同名字的函数，也就是说VB 6还没有具备重载的能力。但是现在在VB.NET中，我们可以简单地重载已经存在的函数，这一点和Visual C++很是相似。

Public Overloads Function FindData(ByVal Name As String) As ArrayList

（搜索数据并且返回结果）

End Function

Public Overloads Function FindData(ByVal Age As Integer) As ArrayList

（搜索数据并且返回结果）

End Function

仔细观察可以发现两种方法的声明都是有相同的方法名字。这一点在VB 6中就不行的，它要求每一个方法名字都不一样。但是，在VB.NET中就允许存在相同名字的方法，但其参数要求是不同的。值得一提的是，每一个声明都要加入Overloads关键字。

当重载一个方法的时候，我们可以使用Public、Friend等等的辖域关键字让它有不同的作用域，具体做法只要使用不同的参数列表即可。这就意味着我们可以改变MyFindData方法，使它有不同的作用域：

Public Overloads Function FindData(ByVal Name As String) As ArrayList

（搜索数据并且返回结果）

End Function

Friend Overloads Function FindData(ByVal Age As Integer) As ArrayList

（搜索数据并且返回结果）

End Function

有了这个改变，在VB.NET工程中其它代码可以使用MyFindData。MyFindData只需要接收一个整型数据作为参数即可。

对象的生命周期

在VB 6中，对象有一个很清楚的定义以及很容易理解的生命周期的概念，对象的生命周期是由下面的事件来定义的。

事件描述

Sub Main 运行时它将作为组件被装载，并且是在对象创建之前装载。

Class_Initialize 它是在对象中其它代码运行之前运行。当对象被创建的时候它被运

行程序所调用。

Class_Terminate 是在对象中其它代码运行之后再运行。当对象被卸载的时候被运行

程序调用。

在VB.NET，对象也有生命周期的概念，但是已经跟以前大不一样了。特别地，我们不再有相同的组件级的Sub Main（它作为一个DLL被装载）的概念，并且Class_Terminate事件也被改变了，而Class_Initialize事件被成熟的构造函数方法所取代。值得指出的是，这个构造函数方法可以接收参数。

现在在VB.NET中，我们定义一个生命周期只需要用了一个New事件，这个New事件是在对象中其它代码之前运行的，并且在对象被创建的时候被调用。

从VB 6到VB.NET确实变化很大，下面我们具体讨论。

构造

对象构造是在我们创建一个类新的实例的时候被触发的。具体可以使用关键字NEW来实现它。

Sub Main

自从VB 6基于COM，创建一个对象将触发一个Sub Main过程运行。这将发生在一个对象从一个给定的组件（通常为DLL）创建来的时候。在创建对象之前，VB 6运行程序将装载DLL（动态连接库）并运行Sub Main过程。

.NET通用语言运行程序处理组件采取不同的方法，当然VB.NET也是这样的。这就意味着没有Sub Main过程在组件装载时候被调用。实际上，Sub Main只使用在当一个应用程序开始的时候。当另外的组件被应用程序装载的时候，只有在类中的代码才被调用。

其实在VB6中依靠Sub Main是不明智的做法，因为代码将在所有错误操作之前被运行。Sub Main中的Bugs是难以在VB6中调试。如果我们不得不使用依耐于Sub Main概念的代码来初始化，那么我们需要在VB.NET执行一个工作区。

在每一个类中从构造函数方法中调用一个方法是很容易做到的。举个例子，我们可以在一个模块中创建一个有效的代码：

Public Module CentralCode

Private blnHasRun As Boolean

Public Sub Initialize()

If Not blnHasRun Then

blnHasRun = True

（在这里作初始化工作）

End If

End Sub

End Module

这个程序是被设计为只运行一次，不管是怎么被调用。我们可以从类中的每一个构造函数来使用这个方法。比如 ：

Public Class TheClass

Public Sub New()

CentralCode.Initialize()

（这里加入另外的工作）

End Sub

End Class

以上的代码虽然作了一些额外的工作，它跟使用VB6类型的Sub Main程序达到同样的效果。

New方法

就象Sub Main，Class_Initialize是在其它VB6类中的代码运行之前被调用的。此外，它是在错误处理之前被调用的，所以使得调试变得很难，而错误作为一般的错误显示在客户端来实例化对象。另外地，Class_Initialize不用参数，这意味着在VB6中没有方法可以在对象被创建的时候用数据来进行初始化。

VB.NET剔除了Class_Initialize而采用完整的构造函数方法。这个构造函数有完整的错误处理能力以及可以接收参数。所以我们可以在创建对象的时候来对它们进行初始化，这是VB.NET一个十分重要的特性。VB.NET中构造函数方法是Sub New。

Public Class TheClass

Public Sub New()

(在这里初始化对象)

End Sub

End Class

利用这种类型的构造函数，可以如下创建类的实例：

Dim obj As New TheClass()

这个例子类似于在Class_Initialize创建一个VB6代码。

但是，经常地，我们在创建对象的时候往往要用数据来初始化对象。我们可以从数据库中来装载一些数据，或者我们可以直接为对象提供数据。不管用什么方法，我们是想在对象被创建的时候为它提供一些数据。

为了做到这点，可以增加参数列表给New方法：

Public Class TheClass

Public Sub New(ByVal ID As Integer)

(在这里使用ID数值来初始化对象)

End Sub

End Class

现在我们来创建类的一个实例，并且为对象提供数据，代码如下：

Dim obj As New TheClass(42)

为了增加灵活型，我们可以接收可选的参数数值。为了实现这个，可以有两种方法：通过使用Optional关键字来声明一个可选择的参数，或者通过重载New方法。为了使用Optional关键字，我们简单地声明可选择的参数，代码如下：

Public Sub New(Optional ByVal ID As Integer = -1)

If ID = -1 Then

（这里可以初始化对象）

Else

（这里可以使用ID数值来初始化对象）

End If

End Sub

这种方法太过于理想化了，但是，既然我们不得不检查是否参数是（不是）已经提供，然后决定怎样初始化对象。New方法又两个方法可以实现。第一种是对于每种行为类型而言的，它可以通过重载来实现：

Public Overloads Sub New()

（这里可以初始化对象）

End Sub

Public Overloads Sub New(ByVal ID As Integer)

（这里可以使用ID数值来初始化对象）

End Sub

这种方法不仅可以避免有条件的检查以及简化了代码，而且它还使得对于客户代码对象的使用都变得更清晰。这个重载New方法可以使用参数也可以不用参数，有更大的灵活性。

实际上，通过重载，我们可以创建许多不同的构造函数，也可以利用许多种不同的方法来初始化我们的对象。

在VB.NET中构造函数方法是可选的。但是只有一个例外，那就是当我们使用继承的时候，父类就只有一个构造函数需要参数。在本教程的后面我们将讨论继承。