什么是 C# 中异步委托的 VB.NET 等价物？

Question

我正在尝试将以下扩展方法（ 源）从 C# 转换为 VB：

public static Task ForEachAsync<T>(this IEnumerable<T> source,
                                   int dop, Func<T, Task> body)
{
    return Task.WhenAll(
        from partition in Partitioner.Create(source).GetPartitions(dop)
        select Task.Run(async delegate {
            using (partition)
                while (partition.MoveNext())
                    await body(partition.Current);
        }));
}

delegate的常规等价物是Sub() ，AFAIK，但我没想到它会在这种情况下工作，因为Async关键字（它没有）。 所以，我尝试使用Function()代替：

<System.Runtime.CompilerServices.Extension>
Public Function ForEachAsync(Of T)(source As IEnumerable(Of T),
                                   dop As Integer, body As Func(Of T, Task)) As Task
    Return Task.WhenAll(
        From partition In Partitioner.Create(source).GetPartitions(dop)
        Select Task.Run(Async Function() 'As Task '<-- see below.
                            Using partition
                                Do While partition.MoveNext()
                                    Await body(partition.Current)
                                Loop
                            End Using
                        End Function))
End Function

但这仍然无法编译并显示以下错误：

• 在WhenAll ：

   Overload resolution failed because no accessible 'WhenAll' can be called with these arguments: 'Public Shared Overloads Function WhenAll(Of TResult)(tasks As IEnumerable(Of Task(Of TResult))) As Task(Of TResult())': Type parameter 'TResult' cannot be inferred. 'Public Shared Overloads Function WhenAll(Of TResult)(ParamArray tasks As Task(Of TResult)()) As Task(Of TResult())': Type parameter 'TResult' cannot be inferred.

• 在Await body(partition.Current) ：

  “Await”只能用在初始“From”子句的第一个集合表达式内或“Join”子句的集合表达式内的查询表达式中。

• [警告] 在Async Function() :（^{如果我添加As Task它将消失）}

  函数“ <anonymous method> ”不会在所有代码路径上返回值。 使用结果时，可能会在运行时发生空引用异常。

我究竟做错了什么？ 在 VB 中执行此操作的正确方法是什么？

Answer 1

在 C# 中，异步 Lambda 可以用委托类型表示，也可以使用调用运算符()后跟=>标记作为 lambda 运算符来调用匿名方法：

Task.Run(async ()=> { } );
Task.Run(async delegate { } );

在 VB.Net 中，可以使用Sub()或Function()使用 Lambda 表达式调用匿名方法，包括内联和Sub / End Sub 、 Function() / End Function块：

Task.Run(Async Sub() [operation on captured variables])
Task.Run(Sub()
             [operation on captured variables]
         End Sub))

Task.Run(Async Function() [operation on captured variables])
Task.Run(Function()
             Return [operation on captured variables]
         End Function))

VB.Net 的LINQ to SQL不允许在Select子句中等待，因为：

Await 只能用在初始From子句的第一个集合表达式内或Join子句的集合表达式内的查询表达式中

在 Stephen Toub 的Async/Await FAQ 中引用了它。

Select Task.Run(Async Function() ... )尝试返回IEnumerble(Of TResult)而不是IEnumerble(Of Task) 。

语言集成查询 (LINQ) (Visual Basic) 中的更多信息。

相反， LINQ to Objects - 在没有其他中间提供程序的情况下使用IEnumerable/IEnumerable<T>集合 - 确实允许Select方法上的 async/await 模式：

<Extension>
Public Function ForEachAsync(Of T)(source As IEnumerable(Of T), dop As Integer, body As Func(Of T, Task)) As Task
    Return Task.WhenAll(
        Partitioner.Create(source).GetPartitions(dop).
        Select(Function(p) (
                   Task.Run(Async Function()
                                Using p
                                    While p.MoveNext()
                                        Await body(p.Current)
                                    End While
                                End Using
                            End Function))))
End Function

LINQ to SQL 的 C# 版本允许使用它。
为什么，因为同样的规则也应该适用于 C# 实现？

.NET 语言策略：

C# ：

我们将继续发展 C# 以满足开发人员不断发展的需求，并保持最先进的编程语言。 我们将积极创新，同时非常小心地保持语言精神。

VB.Net :

我们将继续关注跨语言工具体验，认识到许多 VB 开发人员也使用 C#。 重点创新VB流行的核心场景和领域。

因此，在 2010 年断言的VB 和 C# Coevolution发生了变化： C#和VB.Net功能更新已经解耦。 因此，考虑到新的语言策略， VB.Net和C#不再显示出大致相同的采用率。

Answer 2

不是问题的真正答案，但是，如果它是真正的异步代码，则不需要对执行进行分区：

<System.Runtime.CompilerServices.Extension>
Public Function ForEachAsync(Of T)(
    source As IEnumerable(Of T),
    body As Func(Of T, Task)) As Task
    Return Task.WhenAll(        
        From item In source
        Select body(item))
End Function