Delegate 语句
更新：2007 年 11 月
用于声明委托。委托是一种引用类型，它引用类型的 Shared 方法或对象的实例方法。任何具有匹配参数和返回类型的过程都可用于创建此委托类的实例。然后就可以通过委托实例来调用过程。
[ <attrlist> ] [ accessmodifier ] _
[ Shadows ] Delegate [ Sub | Function ] name [( Of typeparamlist )] [([ parameterlist ])] [ As type ]
组成部分
attrlist
可选。应用于此委托的属性列表。多个属性以逗号分隔。必须将 属性列表 用尖括号（“<”和“>”）括起来。accessmodifier
可选。指定哪些代码可以访问此委托。可以是如下内容之一：公共。可以访问声明委托的元素的任何代码都可以访问该委托。
受保护。只有委托的类或派生类中的代码可以访问该委托。
友元。只有同一程序集中的代码可以访问该委托。
私有。只有声明委托的元素内的代码可以访问该委托。
您可以指定 Protected Friend，以便可以从委托类、派生类或同一程序集中的代码进行访问。
Shadows
可选。指定此委托重新声明并隐藏基类中的同名编程元素或重载元素集。可以用其他任何类型的元素来隐藏任何类型的被声明元素。对于被隐藏的元素来说，从隐藏该元素的派生类无法使用它，除非是从不能访问隐藏元素的位置进行访问。例如，如果 Private 元素隐藏一个基类元素，则无权访问 Private 元素的代码会改为访问基类元素。
Sub
可选项，但是 Sub 或 Function 必须出现。将此过程声明为不返回值的委托 Sub 过程。Function
可选项，但是 Sub 或 Function 必须出现。将此过程声明为返回值的委托 Function 过程。name
必需。委托类型的名称；符合标准变量命名规则。typeparamlist
可选。此委托的类型参数列表。以逗号分隔多个类型参数。必须将类型列表用括号括起来，并用 Of 关键字引入。parameterlist
可选。调用过程时传递给过程的参数列表。必须将 参数列表 用括号括起来。type
在您指定 Function 过程时必选。返回值的数据类型。
备注
Delegate 语句定义委托类的参数和返回类型。任何具有匹配参数和返回类型的过程都可用于创建此委托类的实例。然后就可以调用委托的 Invoke 方法，通过委托实例调用此过程。
可以在命名空间、模块、类或结构级别声明委托，但不能在过程内声明。
每个委托类都定义一个被传递对象方法规范的构造函数。委托构造函数的参数必须是对方法或 lambda 表达式的引用。
若要指定对方法的引用，请使用下面的语法：
AddressOf [expression.]methodname
expression 的编译时类型必须是类或接口的名称，而该类或接口包含签名与委托类的签名相匹配的指定名称的方法。methodname 可以是共享方法，也可以是实例方法。即使为类的默认方法创建了委托，methodname 也不是可选项。
若要指定 lambda 表达式，请使用下面的语法：
Function ([parm As type, parm2 As type2, ...]) expression
函数的签名必须与委托类型的签名相匹配。有关 lambda 表达式的更多信息，请参见 lambda 表达式。
示例
下面的示例使用 Delegate 语句声明一个委托，对两个数字进行运算并返回一个数字。DelegateTest 方法将获取此类型委托的实例，并使用该实例对两个数字进行运算。
Delegate Function MathOperator( _
ByVal x As Double, _
ByVal y As Double _
) As Double
Function AddNumbers( _
ByVal x As Double, _
ByVal y As Double _
) As Double
Return x + y
End Function
Function SubtractNumbers( _
ByVal x As Double, _
ByVal y As Double _
) As Double
Return x - y
End Function
Sub DelegateTest( _
ByVal x As Double, _
ByVal op As MathOperator, _
ByVal y As Double _
)
Dim ret As Double
ret = op.Invoke(x, y) ' Call the method.
MsgBox(ret)
End Sub
Protected Sub Test()
DelegateTest(5, AddressOf AddNumbers, 3)
DelegateTest(9, AddressOf SubtractNumbers, 3)
End Sub