VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >
  • vb.net教程之创建类

创建类

  在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(属性)。


相关教程