在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还给缺省的属性引入了一种新的限制,即属性必须是一个属性阵列。
