修改

对于那些因某种原因相信我的斜体文字的人，祝贺，你被录用了！以下是问题所在：

“应用程序通过完全锁定而崩溃，即它停止响应。非常间歇性，并且尝试调试它，似乎永远不会发生。”

那又怎么办？在用户可以在我们的指导下激活的程序中安装一个选项，从同一应用程序中的另一个GUI线程，在主GUI线程上执行thread.abort，然后我们可以在错误日志中查看调用堆栈。 Viola，在不到一天的时间内发现无法调试错误。（现在停止，它与滥用多线程无关:-)

我承认我几乎没有问这个，我做的原因是我可以看到主要表单的对象引用，但是没有任何针对它的主题。我给Chris Shain答案a / c这是一个快速的方法，不幸的是当线程挂起时，我将无法进行调用（它也会挂起）。稍微挖掘一下，揭示了GetWindowThreadProcessId API调用。但它是一个非托管的线程ID，显然有并发症将其转换为托管线程ID。

所以我咬了一下子弹，并对主UI线程进行了全局引用。本来会发布它，但尚未写出来。

现在，如果你原谅VB ......

在主公共模块/静态类中：

Public GUIThread As Threading.Thread
Sub Main()
    '' //  Create app main window
    ShellForm = New frmShell
    '' // Save main GUI Thread for abort routine
    GUIThread = Threading.Thread.CurrentThread  
    If GetSetting("MyApp", "Testing", "CrashDebug", "False") = "True" Then
            '' //  DO NOT run the pgm. like this normally - with try/catch around
            '' //  Application.Run - or uncaught errors will kill the whole app!!!
        Try

            '' // This is the other of the ‘Multiple GUI threads’ I talked
            '' // about in the Orig Post.
            Dim t As New Threading.Thread(AddressOf StartCrashDebug)
            t.Start()

            Application.Run(ShellForm)
        Catch ex As Exception
            '' // This error routine passes errors off to another thread which 
            '' // logs them (and also shows messages)
            MyLogError(ex, "CrashDebug - Main Window blew up")
        End Try
    Else
        '' // Normal mode - uncaught errors will get caught by UnhandledException, 
        '' // logged, and Winforms will keep the GUI alive (since we _do_ care 
        '' // more about users than computers right ;-)
        Application.Run(ShellForm)
    End If
End Sub
Sub StartCrashDebug()
    Dim f As New frmCrashFinder
    '' // Starting a window like this on a separate thread makes it ‘Another 
    '' // GUI thread’ for winforms, by design
    Application.Run(f)
 End Sub

在'aborter'WinForm中：

Public Class frmCrashFinder 
    Inherits Windows.Form

    Private Sub Abort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Abort.Click
        GUIThread.Abort()
    End Sub
End Class

Answer 1

Windows窗体中的所有GUI元素通常在单个线程上完成。我强烈建议避免尝试以任何其他方式执行此操作。

您可以使用Control.Invoke或Control.BeginInvoke与任何Control一起封送代码到该线程。

如果你真的想获得线程的ID（不确定会有什么用途......？），你可以使用：

int GetControlThreadId(Control control)
{
    int threadId;
    control.Invoke( new Action( () => 
       {
           threadId = Thread.CurrentThread.ManagedThreadId;
       }));
    return threadId;
}

Answer 2

这应该这样做，但我同意其他海报的说法，这可能是出于其他原因的错误做法......

var thatWindowsThread = (Thread)(WhateverWindow.Invoke(()=>Thread.CurrentThread);

Answer 3

如果您的代码不在表单或控件中，则可以使用

if (System.Windows.Forms.Form.ActiveForm.InvokeRequired)
{
    System.Windows.Forms.Form.ActiveForm.Invoke(...);
}

Answer 4

WindowsFormsSynchronizationContext.Current 具有发布和发送方法，您可以从中将命令委派给UI线程

Answer 5

如果您无权访问任何可以从中拉取线程或 SynchronizationContext 的窗体或窗口或控件，则可以使用

        System.Windows.Forms.Application.OpenForms

这对我有用。在我的情况下，System.Windows.Forms.Form.ActiveForm 为空，但 Metro 的回答让我更仔细地研究了 System.Windows.Forms 中的静态类。使用

System.Windows.Forms.Application.OpenForms.Invoke(...) or BeginInvoke.

你可以从其他答案中得到其余的。

我如何获得winform的GUI线程？

修改

在主公共模块/静态类中：

在'aborter'WinForm中：

5 个答案: