宽松委托转换（Relaxed delegate conversion）在 Visual Basic 2008 中引入，允许您将子过程或函数赋值给委托或处理器（handlers），尽管它们的签名不一致。因而，绑定到委托变得与绑定方法调用（method invocation）一样。
参数和返回类型
用宽松转换取代精确签名匹配，当 Option Strict 选项要设置为 On 时，需要满足以下两条件：
* 条件1 传参
从委托的每个参数到赋值函数或子过程（assigned function or Sub）的相对应参数，必须存在扩大转换（widening conversion）。在下面的例子中，委托 Del1 有一个 Integer 类型的参数，赋值 lambda 表达式（assigned lambda expressions）的参数 m 的类型必须可以从 Integer 扩大转换，如 Long 或 Double。
' 定义委托 Del1.
Delegate Function Del1(ByVal arg As Integer) As Integer' Option Strict 为 on 或 off， 都是正确的 lambda 表达式赋值
' 整型匹配
Dim d1 As Del1 = Function(m As Integer) 3' Integer 扩大为 Long
Dim d2 As Del1 = Function(m As Long) 3' Integer 扩大为 Double
Dim d3 As Del1 = Function(m As Double) 3
只有
*条件2 返回值
跟参数相反，从赋值函数或子过程（assigned function or Sub）的返回值类型 到 委托的返回值类型 必须存在扩大转换。下面的例子中，因为委托 Del1的返回类型是 Integer，所以每个赋值 lambda 表达式（assigned lambda expression）必须（可以）扩大到 Integer。
' 当 Option Strict 为on 时是正确返回值:
' 整型匹配.
Dim d6 As Del1 = Function(m As Integer) m' Short 扩大为 Integer.
Dim d7 As Del1 = Function(m As Long) CShort(m)' Byte 扩大为 Integer.
Dim d8 As Del1 = Function(m As Double) CByte(m)
如果 Option Strict 设置为 Off，传参和返回值没有扩大转换的限制。
' 仅当 Option Strict 设为 Off 时才正确.
' Integer 型参数没有扩展为 Short
Dim d9 As Del1 = Function(n As Short) n' 返回值 Long 型没有扩展为 Integer
Dim d10 As Del1 = Function(n As Integer) CLng(n)
忽略参数规格
宽松委托（Relaxed delegate）允许您完全忽略赋值方法（assigned method）的参数规格
' 定义委托 Del2, 带两个参数
Delegate Function Del2(ByVal arg1 As Integer, ByVal arg2 As String) As Integer' 赋值 lambda 表达式没有参数，尽管 Del2 有两个参数。因为在本例子中赋值函数（assigned function）
' 是 lambda 表达式，Option Strict 可以是 On 或者 Off。比较 d16 的声明，赋予了标准的方法。
Dim d11 As Del2 = Function() 3' 参数仍然要传值，不过类型在委托中定义
Console.WriteLine(d11(5, "five"))' 错误
' Console.WriteLine(d11())
' Console.WriteLine(d11(5))
注意，您不能只列某些参数，而忽略其它参数。
' 错误
'Dim d12 As Del2 = Function(p As Integer) p
忽略参数的特性很有用，特别是在事件处理器（event handler）方面，有很多复杂参数时，而某些参数不使用。这样，处理器直接访问事件所注册控件的状态，并且忽略参数。当不存在歧义时，宽松委托允许您忽略参数。下面的例子，标准的 OnClick 方法可以重写做 RelaxedOnClick。
Sub OnClick(ByVal sender As Object, ByVal e As EventArgs) Handles b.Click
MessageBox.Show("Hello World from" + b.Text)
End SubSub RelaxedOnClick() Handles b.Click
MessageBox.Show("Hello World from" + b.Text)
End Sub
AddressOf 例子
前面例子使用 lambda 表达式，使得类型的关系很明显。然而，同样的关系可以用关键字 AddressOf、Handles、AddHandler 作委托赋值（delegate assignment），类型关系就不那么明显了。
下面的例子，函数 f1, f2, f3, 和 f4 可以赋值给 Del1。
' 声明函数委托 Del1.
Delegate Function Del1(ByVal arg As Integer) As Integer' Definitions of f1, f2, f3, and f4.
Function f1(ByVal m As Integer) As Integer
End FunctionFunction f2(ByVal m As Long) As Integer
End FunctionFunction f3(ByVal m As Integer) As Short
End FunctionFunction f4() As Integer
End Function' 给函数委托 Del1 赋值
' 正确的 AddressOf 赋值，Option Strict 可为 on 或 off:
' Integer parameters of delegate and function match.
Dim d13 As Del1 = AddressOf f1' 整型委托参数扩大为 Long.
Dim d14 As Del1 = AddressOf f2' f3 的 Short 返回类型扩大为 Integer.
Dim d15 As Del1 = AddressOf f3
以下例子仅当
Option Strict 为 Off 是才正确。' 如果 Option Strict 设置 Off，f4 的参数规范可以省略丢弃函数返回值
宽松委托转换（Relaxed delegate conversion）允许您将一个函数（Function）赋值给子过程委托（Sub delegate），忽略掉函数的返回值。但是您不能够将子过程（Sub）赋值给函数委托（Function Delegate）。下面的例子，函数 doubler 的地址复制给 Sub 委托 Del3。
' 定义 Sub 委托 Del3.
Delegate Sub Del3(ByVal arg1 As Integer)' 定义函数 doubler, 显示并返回整型参数的值
Function doubler(ByVal p As Integer) As Integer
Dim times2 = 2 * p
Console.WriteLine("Value of p: " & p)
Console.WriteLine("Double p: " & times2)
Return times2
End Function' 您可以把函数赋值给 Sub 委托:
Dim d17 As Del3 = AddressOf doubler' 您可以向普通 Sub 过程一样调用 d17
d17(5)' 您不可以将 d17 作为函数调用，它是一个 Sub 过程，没有返回值。
' 错误
'Console.WriteLine(d17(5))
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。