.NET中创建对方法的类型安全的引用之入门

　　假定您在为一家新计算机公司起草业务计划，面对如何处理产品分发的问题。当然，您从未考虑过亲自将每一件新产品交付到每位客户的手中。相反，您会将此责任委托给像 FedEx 或 UPS 等配送服务机构。您必须事先做三个决定：该行动是什么（交付产品）、参数是什么（客户地址）以及返回值是什么（付款）。然后，当实际有一个包裹要交付时，您就可以将责任委托给某个特定的配送服务机构。
　　
　　在 Microsoft .NET 编程中，您会面对需要执行某种特定操作，但是无法预先知道将调用何种方法来执行该操作的情况。例如，在单击某个按钮时，可能需要调用某个方法，但是在设计该按钮时，却无法知道将调用哪个方法。您需要有一种方法来描述要调用何种方法。这正是委托派上用场的地方。在本文中，我将探索如何在 Visual Basic .NET 中使用委托。
　　
　　入门
　　委托是一种引用类型，表示带有特定签名和返回类型的方法。可以在该委托中封装任何匹配的方法。另外，还可以将委托看作是对方法的引用。
　　
　　要了解其工作方式，我们来看一个委托解决的问题。正如您将在图 1 中看到的，我将创建一个 Pair 类的简单集合，其中有两个对象。Pair 类创建一个名为 thePair 的私有数组，其中包括两个成员：
　　
　　Public Class Pair
　　
　　Private thePair(2) As Object
　　
　　构造函数接受两个对象，然后按接收顺序将其添加到此内部数组中：
　　
　　Public Sub New(ByVal firstObject As Object, ByVal secondObject As Object)
　　thePair(0) = firstObject
　　thePair(1) = secondObject
　　End Sub
　　
　　Pair 提供其它三种方法：Sort、ReverseSort 以及 ToString 的重写。Sort 方法将对内部数组中的两个对象进行排序。当然，您不希望让 Pair 类知道对这两个对象进行排序的测试，因为实际上您可能在 Pair 中存储任何类型的对象（Students、Dogs、Employees、Buttons，等等）。Pair 如何才能知道如何对所有这些不同类型的对象进行排序呢？
　　
　　解决方案是将责任（确定哪个对象最小）委托给对象自己。Pair 如何实现这一点？使用委托（参见图 1）。
　　
　　在 Pair 类中，我已经定义了一个委托以封装（引用）比较两个对象的方法，然后确定哪个较小（不管“较小”是如何定义的，确定的比较类都是合适的）：
　　
　　Public Delegate Function WhichIsSmaller( _
　　ByVal obj1 As Object, ByVal obj2 As Object) As Comparison 字串3
　　
　　这是一个相当复杂的定义。让我们来一段一段地查看这个定义：
　　
　　• Public 关键字将该委托声明为 Pair 类的一个公共成员。
　　
　　• Delegate 关键字表示您正在创建一个委托（而不是一个方法或属性）。
　　
　　• Function 关键字表示该委托将用于封装一个函数（而不是一个子程序）。
　　
　　• WhichIsSmaller 标识符是该委托的名称。
　　
　　• 括号内的值是该委托将封装的方法的签名。即该委托可能封装任何接受两个对象作为参数的函数。
　　
　　• 最后的关键字 As Comparison 是该委托可能封装的方法的返回类型。Comparison 是一个在 Pair 类中定义的枚举：
　　
　　Public Enum Comparison
　　theFirst = 1
　　theSecond = 2
　　End Enum
　　
　　用该委托封装的方法必须返回 Comparison.theFirst 或 Comparison.theSecond。
　　
　　总之，刚刚展示的语句在名为 WhichIsSmaller 的 Pair 类中定义了一个公共委托，它封装接受两个对象作为参数的函数并返回 Comparison 枚举类型的一个实例。
　　
　　可以在该委托的实例中封装任何匹配的方法。例如，您的 Pair 集合可能包含两个 Student 对象，如下所示： 字串5
　　
　　Public Class Student
　　
　　Private name As String
　　
　　Public Sub New(ByVal name As String)
　　Me.name = name
　　End Sub
　　
　　' other Student methods here
　　
　　End Class
　　
　　您的 Student 类必须创建一个与 WhichIsSmaller 委托相匹配的方法。例如，您可以创建一个 WhichStudentIsSmaller 方法（参见图 2 中的代码）。该方法匹配所要求的签名；它接受两个对象作为参数，并且返回一个 Comparison 值。
　　
　　因为我的 WhichStudentIsSmaller 方法需要将这些参数用作 Student 对象，而不是作为更一般的 Object 类型，我将把这些参数强制转换为 Student。这是类型安全的，因为我决不会用其他任何类型的参数来调用该方法。
　　
　　一旦我强制转换了这两个对象，我就可以对它们进行比较。在本例中，我将按字母顺序比较它们的名称值，并返回合适的枚举值：Pair.Comparison.theFirst 或 Pair.Comparison.theSecond。
　　
　　按字母顺序的比较是通过调用 String 类的共享方法 Compare 来完成的。如果按照字母表，第一个字符串排在第二个前面（s1.name 的字母顺序在 s2.name 之前），则 Compare 返回一个负整数值。如果按照字母表，第二个字符串排在第一个前面，则 Compare 返回一个正整数值，如果相同则返回零。 字串6
　　
　　其他类也能创建与 WhichIsSmaller 委托相匹配的方法。例如，我还可以创建 Dog 类：
　　
　　Public Class Dog
　　
　　Private weight As Integer
　　
　　Public Sub New(ByVal weight As Integer)
　　Me.weight = weight
　　End Sub
　　
　　' other Dog methods here
　　
　　End Class
　　
　　该 Dog 类将实现一个方法，基于重量对两个 Dog 实例进行比较：
　　
　　Public Shared Function WhichDogIsSmaller( _
　　ByVal o1 As Object, ByVal o2 As Object) As Pair.comparison
　　Dim d1 As Dog = DirectCast(o1, Dog)
　　Dim d2 As Dog = DirectCast(o2, Dog)
　　If d1.weight > d2.weight Then
　　Return Pair.Comparison.theSecond
　　Else
　　Return Pair.Comparison.theFirst
　　End If
　　End Function
　　
　　现在该 Pair 类就可以创建其 Sort 方法了。它将接受一个 WhichIsSmaller 委托作为参数：