为何VB.NET中函数执行前的界面更新代码需等待函数完成？

这是典型的UI线程阻塞问题：你的界面更新代码（修改按钮文本/颜色、启动Timer、更新标签）都在UI线程执行，但紧随其后的programmer()是耗时操作，它会霸占UI线程，导致系统积压的界面绘制消息（比如WM_PAINT）无法被处理，所以界面看起来没有变化。而MessageBox.Show()会启动独立的消息循环，弹窗显示期间UI线程会处理完积压的更新消息，之前的界面修改也就生效了。

推荐解决方案：使用Async/Await异步执行耗时操作 #

这是.NET现代开发中最简洁、安全的处理方式，能彻底避免UI线程阻塞：

Private Async Sub Start_btn_Click(sender As Object, e As EventArgs) Handles Start_btn.Click
    ' 先执行所有界面更新操作
    Start_btn.Text = "运行中..."
    Start_btn.BackColor = Color.Gray
    Timer1.Enabled = True
    Label1.Text = "正在执行任务..."

    ' 异步执行耗时函数，释放UI线程处理界面消息
    Await Task.Run(Sub()
                      programmer() ' 你的耗时命令行执行函数
                  End Sub)

    ' 任务完成后恢复界面状态
    Start_btn.Text = "开始"
    Start_btn.BackColor = Color.Green
    Timer1.Enabled = False
    Label1.Text = "任务完成"
End Sub

注意：如果programmer()内部需要更新UI，必须通过Invoke切换回UI线程，示例：

Private Sub UpdateLabel(text As String)
    If Label1.InvokeRequired Then
        Label1.Invoke(Sub() UpdateLabel(text))
    Else
        Label1.Text = text
    End If
End Sub

临时救急方案：手动触发消息循环 #

如果只是临时测试，不想重构代码，可以在界面更新后手动让UI线程处理积压消息，但这种方式可能引发重复触发事件等问题，不推荐正式环境使用：

' 界面更新代码
Start_btn.Text = "运行中..."
Start_btn.BackColor = Color.Gray
Timer1.Enabled = True
Label1.Text = "正在执行任务..."

' 强制处理所有积压的UI消息
Application.DoEvents()

' 再执行耗时函数
programmer()

传统兼容方案：使用BackgroundWorker #

针对较旧的WinForms项目，也可以用BackgroundWorker组件实现后台任务：

Private Sub Start_btn_Click(sender As Object, e As EventArgs) Handles Start_btn.Click
    ' 界面更新
    Start_btn.Text = "运行中..."
    Start_btn.BackColor = Color.Gray
    Timer1.Enabled = True
    Label1.Text = "正在执行任务..."
    Start_btn.Enabled = False ' 防止重复点击

    ' 启动后台任务
    BackgroundWorker1.RunWorkerAsync()
End Sub

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    ' 在后台线程执行耗时操作
    programmer()
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    ' 任务完成后恢复UI
    Start_btn.Text = "开始"
    Start_btn.BackColor = Color.Green
    Timer1.Enabled = False
    Label1.Text = "任务完成"
    Start_btn.Enabled = True
End Sub

（需在设计器中为BackgroundWorker绑定DoWork和RunWorkerCompleted事件）

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