如何在VB.NET中的后台线程上调用MessageBox？

Question

如何调用Invoke在后台线程上运行MessageBox.Show？

当我在单个后台线程上显示MessageBox时，它通常显示在主窗体的后面，因此要使程序可用，我需要将其显示在主窗体的前面。

我当前的代码是没有所有者的MessageBox.Show(myMessageText, myTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 。 不会从表单本身调用此代码。 但是我是在一个辅助类的基础上建立的。

我想将所有者添加到我的后台线程上的MessageBox中，因此想运行以下代码： MessageBox.Show(myOwnerForm, myMessageText, myTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

在这一点上，我要运行myOwnerForm.InvokeRequired返回true，所以我知道我需要调用invoke方法。 但是如何？ （如果我只是调用此代码，则会得到一个异常，该异常在其他地方有广泛记录）。 由于MessageBox也应该停止在UI上进行处理，因此我想使用Invoke，而不是BeginInvoke。

如何使用invoke运行Messagebox.Show？

在研究了StackOverflow和其他地方的小时后，我只能看到部分解决方案。

我的应用程序使用Windows窗体，该窗体是使用Visual Studio 2010在VB.NET中开发的。

Answer 1

Invoke方法采用被调用的委托（回调函数）以及可选的任何参数。 从MSDN引用：

在拥有控件的基础窗口句柄的线程上执行指定的委托。

• 将MessageBox打包在一个方法中
• 创建一个委托（与您的消息框方法具有相同签名的方法）
• 用Invoke呼叫代表

示例代码（ Me.Invoke可以更改为someControl.Invoke ）：

Delegate Sub MyDelegate(ByVal msg As String)

Private Sub ButtonStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStart.Click

    'If Control.InvokeRequired Then
    Dim parameters(0) As Object
    parameters(0) = "message"
    Me.Invoke(New MyDelegate(AddressOf showMessage), New Object() {"message"})
    'End If

End Sub

Private Sub showMessage(ByVal msg As String)
    MessageBox.Show(msg, "test", MessageBoxButtons.OK)
End Sub

正如许多评论员已经说过的那样，在线程中/从线程中执行UI（与用户进行交互）是一种不好的做法。 如果您需要在线程中发生事件时向用户显示一个MessageBox，请创建/使用某些消息传递系统。