VB.NET管理器类中Async/Await异步调用异常问题排查

核心问题 #

Async Sub的误用导致初始化逻辑未完成就执行后续代码：构造函数中调用Async Sub Initialize()，由于Async Sub属于“火即忘”的异步方法，构造函数会立即返回，不会等待Initialize内的异步操作完成。后续依赖baseApiUrl、bearerToken的代码在这些变量未初始化时就执行，引发异常；而添加调试器等待几秒，刚好让异步操作完成，变量被正确初始化，所以后续代码能正常运行。

修复步骤 #

1. 将Initialize改为Async Function #

把原来的Async Sub Initialize()改为返回Task的Async Function，让调用者可以等待其完成：

Private Async Function InitializeAsync() As Task
    Dim locationSettings = (From d In mCurrMsg.Locations Select d Where d.LocationId = mUiContext.Context.DefaultLocationId).FirstOrDefault()
    If locationSettings IsNot Nothing Then
        oID = locationSettings.OID
        bearerToken = locationSettings.AuthToken
    Else
        Charter.UI.MessageBoxes.ShowInformation("Please setup OID and AuthToken for emerge pay to proceed.")
    End If

    baseApiUrl = Await GetBaseApiUrlAsync()
    Dim tt = String.Empty
End Function

2. 重构实例创建逻辑 #

构造函数中不再执行异步初始化，改用静态工厂方法异步创建并初始化实例：

' 私有构造函数，禁止直接实例化
Private Sub New(mCurrentMsg As MfgIntChargeItProSetupMessage, mCurrContext As UIContext)
    mCurrMsg = mCurrentMsg
    mUiContext = mCurrContext
End Sub

' 静态异步工厂方法，完成实例初始化后返回
Public Shared Async Function CreateAsync(mCurrentMsg As MfgIntChargeItProSetupMessage, mCurrContext As UIContext) As Task(Of HttpWebRequestManager)
    Dim manager = New HttpWebRequestManager(mCurrentMsg, mCurrContext)
    Await manager.InitializeAsync()
    Return manager
End Function

3. 调用时等待实例初始化完成 #

替换原来直接New实例的代码，改用Await等待工厂方法完成初始化：

' 原代码：Dim requestManager = New HttpWebRequestManager(mCurrentMsg, mUiContext)
Dim requestManager = Await HttpWebRequestManager.CreateAsync(mCurrentMsg, mUiContext)

关键注意事项 #

• 构造函数中绝对不要执行异步操作，因为构造函数无法返回Task，无法被等待，必然导致异步逻辑滞后于后续代码执行。
• Async Sub仅适用于事件处理场景，其他异步逻辑一律使用Async Function返回Task/Task(Of T)，确保能通过Await等待操作完成。
• 调试时的“等待几秒”本质是手动让异步初始化完成，掩盖了异步逻辑未被正确等待的问题，修复后无需依赖这种临时手段。

内容的提问来源于stack exchange，提问作者Kamran Khan