VB.net安装打印机时避免界面冻结并添加状态提示的实现问题

界面冻结的核心原因是打印机安装的耗时逻辑直接在UI主线程执行，阻塞了UI消息循环，将耗时操作移到后台线程执行，同时搭配UI层的活动提示即可解决该问题。

最简实现方案（适配.NET Framework 4.5+） #

无需精确进度的前提下，推荐使用滚动样式的进度条，搭配Async/Await语法实现，改动最小：

1. 首先在窗体上添加两个控件：
   • ProgressBar控件：命名为ProgressBar1，默认隐藏，Style属性设置为Marquee（滚动模式，无需绑定进度值）
   • Label控件：命名为lblTip，默认显示为空
2. 安装按钮的点击事件代码修改为：

Private Async Sub btnInstall_Click(sender As Object, e As EventArgs) Handles btnInstall.Click
    ' 前置校验
    If CheckedListBox1.SelectedItem Is Nothing Then
        MsgBox("请先选择需要安装的打印机")
        Exit Sub
    End If
    ' 提前取出选中的打印机名称，避免跨线程访问UI控件报错
    Dim selectedPrinter As String = CheckedListBox1.SelectedItem.ToString()

    ' 切换UI为等待状态
    btnInstall.Enabled = False
    ProgressBar1.Visible = True
    lblTip.Text = "打印机驱动正在安装，请稍候..."

    ' 后台线程执行安装逻辑
    Await Task.Run(Sub()
                       Dim objNetwork = CreateObject("WScript.Network")
                       objNetwork.AddWindowsPrinterConnection("\\printserver\" & selectedPrinter)
                       objNetwork.SetDefaultPrinter(selectedPrinter)
                       objNetwork = Nothing
                   End Sub)

    ' 安装完成恢复UI状态
    ProgressBar1.Visible = False
    lblTip.Text = "打印机安装完成，已设为默认打印机"
    btnInstall.Enabled = True
    MsgBox("打印机安装成功")
End Sub

低版本.NET Framework兼容方案（适配.NET Framework 4.0及以下） #

如果项目版本不支持Async/Await语法，可以使用BackgroundWorker组件实现：

1. 从工具箱拖拽BackgroundWorker控件到窗体，设置其WorkerReportsProgress属性为True
2. 对应代码如下：

Private Sub btnInstall_Click(sender As Object, e As EventArgs) Handles btnInstall.Click
    If CheckedListBox1.SelectedItem Is Nothing Then
        MsgBox("请先选择需要安装的打印机")
        Exit Sub
    End If
    ' 切换UI为等待状态
    btnInstall.Enabled = False
    ProgressBar1.Visible = True
    lblTip.Text = "打印机驱动正在安装，请稍候..."
    ' 将选中的打印机名称作为参数传入后台线程
    BackgroundWorker1.RunWorkerAsync(CheckedListBox1.SelectedItem.ToString())
End Sub

' 后台执行安装逻辑
Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    Dim selectedPrinter As String = e.Argument.ToString()
    Dim objNetwork = CreateObject("WScript.Network")
    objNetwork.AddWindowsPrinterConnection("\\printserver\" & selectedPrinter)
    objNetwork.SetDefaultPrinter(selectedPrinter)
    objNetwork = Nothing
End Sub

' 安装完成后回调更新UI
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    ProgressBar1.Visible = False
    lblTip.Text = "打印机安装完成，已设为默认打印机"
    btnInstall.Enabled = True
    MsgBox("打印机安装成功")
End Sub

可选优化项 #

• 可以新增模态等待弹窗，安装过程中弹出遮挡主界面，避免用户误操作其他功能
• 建议在安装逻辑中新增异常捕获，安装失败时主动提示用户错误原因，避免无响应

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