处理委托的 C# 语法在 VB 中的等价物是什么？

Question

是否可以使用 VB 9.0 将以下 C# 代码转换为 VB.NET？

delegate Stream StreamOpenerDelegate(String name);

void Exec1()
{
    WorkMethod( x => File.OpenRead(x));
}

void Exec2()
{
    StreamOpenerDelegate opener = x => return File.OpenRead(x) ;
    WorkMethod(opener);
}

我可以做这样的事情吗？：

Private Delegate Function StreamOpenerDelegate(ByVal name As String) As Stream

Private Sub WorkMethod(ByVal d As StreamOpenerDelegate)
    ''
End Sub

Private Sub Exec1()
    Me.WorkMethod(Function (ByVal x As String) 
        Return File.OpenRead(x)
    End Function)
End Sub

Private Sub Exec2()
    Dim opener As StreamOpenerDelegate = Function (ByVal x As String) 
        Return File.OpenRead(x)
    End Function
    Me.WorkMethod(opener)
End Sub

我正在尝试编写一些文档，但我不知道 VB 语法。我经常使用 Reflector 来翻译它，但我不确定它是否适用这个案例。我也不清楚哪里需要行连续字符。

---

回答
在 VB9 中，不可能有多行 lambda（或 Sub lambda，我没有询问过）。在 VB9 中，所有 lambda 都返回一个值，并且必须是单个表达式。这在 VB10 中发生了变化。 VB10 将允许上述语法，但 VB9 不允许。在VB9中，如果逻辑涉及多行代码，则一定不能是lambda；您必须将其放入命名函数中并显式引用它。像这样：

Private Delegate Function StreamOpenerDelegate(ByVal name As String) As Stream

Private Sub WorkMethod(ByVal d As StreamOpenerDelegate)
    ''
End Sub

Function MyStreamOpener(ByVal entryName As String) As Stream
    '' possibly multiple lines here
    Return File.OpenRead(entryName)
End Function

Private Sub Exec1()
    Me.WorkMethod(AddressOf MyStreamOpener)
End Sub

站点：迈克·麦金泰尔的博客

Answer 1

这应该有效：

Private Sub Exec1()
    Me.WorkMethod(Function (x) File.OpenRead(x))
End Sub

Private Sub Exec2()
    Dim opener As StreamOpenerDelegate = Function (x) File.OpenRead(x)

    Me.WorkMethod(opener)
End Sub

您需要行继续符将单行语句拆分为多行，如下所示：

Private Sub Exec1()
    Me.WorkMethod(Function (x) _
                    File.OpenRead(x))
End Sub

Private Sub Exec2()
    Dim opener As StreamOpenerDelegate = Function (x) _
                                           File.OpenRead(x)

    Me.WorkMethod(opener)
End Sub

在任何情况下，在 VS2010 在某些字符后有隐式续行。所以我不会太担心。