VB.NET面向对象的实现(1)创建类

创建类

　　在VB以前的版本中创建类时，每一个类都有它自己的文件。如果VB.NET也使用这种方法的话，那VB.NET工程将是一个更大的面向对象工程因为它包含许多文件。但是幸运的是，VB.NET并不是采用这样方法来创建类。可以说这是一个创举，因为它不用为创建一个类就创建一个文件。而是在一个文件中包含许多类，这样就使得程序的可维护性更好了。
　　另外VB.NET也提供了对.NET名空间概念的支持。VB.NET用于创建属性方法的语法也有些改变。类似于Visual C++，我们可以在类中重载这些方法。至此，我们对VB.NET的新特性已经可以略见一斑了。好吧，言归正转，现在可是为一个工程增加类。
其实，在VB.NET中增加一个类与在VB6增加一个类是很类似的。为了做到这一点我们需要先创建一个新的Winodws应用程序工程，具体操作是从菜单中选择Project(工程)->Add Class（增加类），这时就会弹出一个增加新项目的对话框，如图1所示。

（图1）

在图1的对话框中用户可以增加任意类型的项目到工程中。在本例子中是使用缺省的项目，即增加一个类模块。不管我们选择了哪种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只需要接收一个整型数据作为参数即可。