VB.NET 在另一个线程上调用 BeginInvoke

Question

因此，从评论部分来看，此人的代码已在 http://www 上翻译为 VB.NET .codeproject.com/KB/cs/Threadsafe_formupdating.aspx 它显示了一些代码来帮助调用跨线程 UI 内容。

<System.Runtime.CompilerServices.Extension()> _
Public Function SafeInvoke(Of T As ISynchronizeInvoke, TResult)(ByRef isi As T, ByRef [call] As Func(Of T, TResult)) As TResult
    If isi.InvokeRequired Then
        Dim result As IAsyncResult = isi.BeginInvoke([call], New Object() {isi})
        Dim endResult As Object = isi.EndInvoke(result)
        Return DirectCast(endResult, TResult)
    Else
        Return [call](isi)
    End If
End Function

当我尝试调用以下命令时，但出现错误：

Me.SafeInvoke(Function(x) x.Close())

或

frmLobby.SafeInvoke(Function(x) x.Close())

错误 1 ​​扩展方法中类型参数的数据类型 'Public Function SafeInvoke(Of TResult)(ByRef call As System.Func(Of frmLogin, TResult)) 由于“GvE.Globals”中定义的“TResult”无法从这些参数中推断出来。显式指定数据类型可能会纠正此错误。 C:\GvE\GvE\frmLogin.vb 37 9 GvE

我缺少什么？我从表单中定义的方法内部调用该代码，但该方法是从另一个线程调用的。

只是试图避免委托，这就是上面的代码应该做的事情，但就是无法让它工作。

谢谢

Answer 1

您的 SafeInvoke 方法采用 Func(Of T, TResult)。
该函数接受 T 并返回 TResult。

由于 x.Close() 是一个 Sub 并且不返回任何内容，因此您不能将其变成 Func(Of T, TResult).

您应该创建一个采用 Action(Of T) 的重载 - 一个采用 T 且不返回任何内容的子函数。