VB.net通过扩展方法避免跨线程异常

Question

你好 我正在尝试实现一种在不使用委托的情况下更新表单控件的解决方案。

我正在尝试使用此页面上的第一个解决方案：

http://www.dreamincode.net/forums/blog/143/entry-2337-handling-the-dreaded-cross-thread-exception/

Imports System.ComponentModel
Imports System.Runtime.CompilerServices

Public Module MyInvoke
    <Extension()> _
    Public Sub CustomInvoke(Of T As ISynchronizeInvoke)(ByVal control As T, ByVal toPerform As Action(Of T))
        If control.InvokeRequired Then
            control.Invoke(toPerform, New Object() {control})
            toPerform(control)
        End If
    End Sub
End Module

该网站给出了这个示例使用：

Label1.CustomInvoke(l => l.Text = "Hello World!")

但我得到“l”未声明错误。 正如你所看到的，我对 VB 或任何 OOP 都很陌生。

我可以让该页面上的第二个解决方案工作（使用委托），但我在这个线程中有很多事情要做，似乎我需要为每件事编写一个新的委托子，这似乎很浪费。

我需要做的是从组合框中选择第一个项目，用所选项目更新 textbox.text，然后将所选项目传递给函数。 然后等待 x 秒并重新开始，选择第二个项目。

我可以让它在单线程应用程序中工作，但我需要界面保持响应。

非常感谢任何帮助。

编辑： 好的，更改语法适用于该示例。 但是，如果我将其从

Label1.CustomInvoke(Sub(l) l.text = "hello world!")

（效果很好）更改为：

Dim indexnumber As Integer = 0
ComboBox1.CustomInvoke(Sub(l) l.SelectedIndex = indexnumber)

我收到交叉线程错误，就好像我什至没有使用此方法一样：

Cross-thread operation not valid: Control 'ComboBox1' accessed from a thread other than the thread it was created on.

那么现在我回到了我开始的地方？ 非常感谢任何进一步的帮助。

Answer 1

根据你的第二期；我认为你需要添加一个 Else：

Public Sub CustomInvoke(Of T As ISynchronizeInvoke)(ByVal control As T, ByVal toPerform As Action(Of T))
    If control.InvokeRequired Then
        control.Invoke(toPerform, New Object() {control})
    Else
'   ^^^^
        toPerform(control)
    End If
End Sub 

Answer 2

您混淆了 VB 和 C# 语法。你的 lambda 是（几乎缺少大括号）有效的 C#，但在 VB 中你必须以不同的方式编写它：

Label1.CustomInvoke(Sub (l) l.Text = "Hello World!")

是的，这种语法很糟糕。对不起。 :-(

Answer 3

Label1.CustomInvoke(l => l.Text = "Hello World!")

这是 C# 语法。

VB.NET 的等价物是：

Label1.CustomInvoke( Sub(l) l.Text = "Hello World!" )

...在不使用委托的情况下更新表单控件...

仅供参考 - 这是使用的 lambda 表达式，是委托的一种形式。它只是声明和定义委托的更方便的语法 - 但您仍然在这里使用委托。