正在阅读：VB.NET面向对象的实现(1)创建类VB.NET面向对象的实现(1)创建类

2004-02-14 09:34 出处：作者：ZSC 责任编辑：pjl

缺省的属性　　在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只需要接收一个整型数据作为参数即可。