-
VB.NET面向对象的实现(二)
创建方法
在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只需要接收一个整型数据作为参数即可。