VB.Net：了解 Application.Run() 的工作方式

Question

Hans Passant 在此处给了我一个很好的答案，因此我想询问更多详细信息，以尝试了解应用程序的方式。 Run() 有效。

据我从文档中了解到，似乎 Application.Run() 在当前线程上启动一个消息循环，这反过来又使其能够处理用户输入（对吗？）。重载版本 Application.Run(Form) 的作用基本相同，只是在表单关闭时存在，并且默认显示表单。

这就提出了几个问题：

如何简单地从 Main() 子函数调用一个可以与用户通信（消息框等）并等待其退出的函数？

当消息循环在没有表单的情况下启动时，如何从此循环启动一个新表单，并等待它退出？ ShowDialog 可以工作，除非您不希望表单在启动时立即显示（例如，如果您有一个最小化到系统托盘启动的 for）

• 基本上，情况如下：子 `Main` 有一个要在 20mn 内执行的任务列表，并有一个系统托盘图标告诉用户该程序将在 20mn 内运行。计时器在 20 分钟后计时，并且必须执行大约 20 分钟。 15个任务一一完成，每次都会创建一个进度对话框的实例，最初隐藏在任务栏中。
• `ShowDialog` 会显示表单，这是不需要的；所以我的方法是将进度对话框传递给启动下一个任务的函数的回调。但这不会在第二个进度表单退出之前退出第一个进度表单，不是吗？这意味着最终将打开 15 个表单...
• 因此解决方案可能是调用（begininvoke？）主应用程序循环上的回调...只是，我不知道该怎么做，因为我不知道有一个与循环关联的表单来调用回调...

我希望我的问题很清楚（我可能会混淆很多事情，抱歉），
谢谢，
金融理财师。

Answer 1

将 Timer、ProgressBar 和 BackgroundWorker 放到表单上。您要做的第一件事是防止程序启动时窗体可见。将此代码粘贴到表单类中：

Protected Overrides Sub SetVisibleCore(ByVal value As Boolean)
    If Not Me.IsHandleCreated Then
        value = False
        Me.CreateHandle
    End If
    MyBase.SetVisibleCore(value)
End Sub

使用计时器开始作业。设置其 Interval 和 Enabled 属性，添加 Tick 事件处理程序：

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Me.Show()
    ProgressBar1.Visible = True
    Me.Enabled = False
    BackgroundWorker1.RunWorkerAsync()
End Sub

这使得表单在作业启动并启动后台工作程序时可见。将 BGW 的 WorkerReportsProgress 属性设置为 True 并添加 3 个事件处理程序：

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    '' Do stuff here, call BackgroundWorker1.ReportProgress to update the PB
End Sub

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    ProgressBar1.Value = e.ProgressPercentage
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    ProgressBar1.Visible = False
    Me.Enabled = True
    Me.Hide()
End Sub

由您来填写 DoWork 事件处理程序的代码。让它完成这 15 项工作，请务必调用 BackgroundWorker1.ReportProgess，以便更新进度条。这就是 ProgressChanged 事件处理程序的作用。 RunWorkerCompleted 事件处理程序再次隐藏表单。

您可以在 NotifyIcon 的上下文菜单项事件中调用 Show() 方法，以便用户可以使您的表单再次可见。在上下文菜单项中调用 Application.Exit() ，允许用户退出您的应用程序。确保在 BGW 运行时禁用它。或者实施一种彻底停止工作的方法。