异步方法返回后启动窗体遇死锁，如何解决？

核心原因 #

异步方法Await后默认会捕获当前UI线程上下文，若TestConnection内部存在阻塞操作或上下文被占用，就会触发死锁。加上你的ApplicationContext派生类未实现BeginInvoke，需要手动切换回UI线程执行窗体显示操作。

解决方案1：保存UI同步上下文，手动切换线程 #

1. 在你的ApplicationContext派生类中，添加字段保存UI线程的SynchronizationContext：

Imports System.ComponentModel
Imports System.Threading

Namespace System.Windows.Forms
    Public Class YourApplicationContext
        Inherits ApplicationContext
        Implements IDisposable

        Private ReadOnly _uiSyncContext As SynchronizationContext

        Public Sub New()
            MyBase.New()
            ' 在UI线程构造时保存同步上下文
            _uiSyncContext = SynchronizationContext.Current
        End Sub

        ' 保留原有类的其他代码...
    End Class
End Namespace

2. 修改InitDSXAutoGen方法，使用保存的上下文回到UI线程显示窗体：

Private Async Sub InitDSXAutoGen()
    Try
        UserHandlingOK = _DSXUserHandling.GetUserAndPassword(_DSXConfig.GetKeys)

        If UserHandlingOK Then
            ConnectionOK = Await _DSXUserHandling.TestConnection(_DSXUserHandling.UserName, _DSXUserHandling.Password)
            If Not ConnectionOK Then
                ' 通过同步上下文切换回UI线程执行窗体操作
                _uiSyncContext.Post(Sub()
                                       _DSXSettings = New DSXSettings(1)
                                       _DSXSettings.Show()
                                   End Sub, Nothing)
            End If
        Else
            _DSXSettings = New DSXSettings(1)
            _DSXSettings.Show()
        End If
    Catch ex As Exception
        ' 建议添加异常日志或提示，避免吞掉异常
    End Try
End Sub

解决方案2：利用托盘控件的Invoke方法（如果有NotifyIcon） #

如果你的托盘应用使用了NotifyIcon控件，直接用它的Invoke方法切换回UI线程：

Private Async Sub InitDSXAutoGen()
    Try
        UserHandlingOK = _DSXUserHandling.GetUserAndPassword(_DSXConfig.GetKeys)

        If UserHandlingOK Then
            ConnectionOK = Await _DSXUserHandling.TestConnection(_DSXUserHandling.UserName, _DSXUserHandling.Password)
            If Not ConnectionOK Then
                ' 假设NotifyIcon1是你的托盘控件实例
                NotifyIcon1.Invoke(Sub()
                                       _DSXSettings = New DSXSettings(1)
                                       _DSXSettings.Show()
                                   End Sub)
            End If
        Else
            _DSXSettings = New DSXSettings(1)
            _DSXSettings.Show()
        End If
    Catch ex As Exception
        ' 异常处理逻辑
    End Try
End Sub

额外注意事项 #

• 若TestConnection是同步方法，用Task.Run包装后再Await，避免阻塞UI线程：

ConnectionOK = Await Task.Run(Function() 
    Return _DSXUserHandling.TestConnection(_DSXUserHandling.UserName, _DSXUserHandling.Password)
End Function)

• 禁止在异步方法中使用.Result或.Wait()，这是触发死锁的常见诱因。

内容的提问来源于stack exchange，提问作者Manfred Singer