vb.net 等待窗口 waitform 通过委托关联窗口间函数

在VB.NET中，可以使用等待窗口（WaitForm）通过委托关联窗口间的函数。

等待窗口是一个特殊的窗口，用于在后台执行耗时的任务时提供用户界面的响应。当需要等待某个任务完成时，可以在等待窗口中显示一个进度条或文本提示信息，让用户知道任务正在进行中。

要通过委托关联窗口间的函数，首先需要定义一个委托（Delegate），该委托可以用来引用其他窗口中的函数。在等待窗口中，通过这个委托调用其他窗口中的函数，以实现窗口间的函数调用。

在等待窗口的代码中，可以先定义一个委托变量，类型为之前定义的委托类型，然后在等待窗口的构造函数中接受该委托作为参数。在任务完成后，通过调用该委托变量来执行其他窗口中的函数。

举个例子，假设有两个窗口：主窗口（MainForm）和等待窗口（WaitForm）。在等待窗口中定义了一个委托类型（MyDelegate），并在构造函数中接受该委托作为参数。主窗口中有一个名为DoTask的函数。在主窗口中，首先创建一个等待窗口的实例，并将DoTask传递给等待窗口的构造函数。然后在等待窗口中，通过调用委托变量来执行DoTask函数。

在主窗口中的代码示例：

Public Class MainForm
    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        Dim waitForm As New WaitForm(AddressOf DoTask)
        waitForm.Show()
        '执行其他任务
    End Sub

    Public Sub DoTask()
        '执行任务的代码
    End Sub
End Class

在等待窗口中的代码示例：

Public Class WaitForm
    Delegate Sub MyDelegate()

    Private taskDelegate As MyDelegate

    Public Sub New(task As MyDelegate)
        InitializeComponent()
        taskDelegate = task
    End Sub

    Protected Overrides Sub OnLoad(e As EventArgs)
        MyBase.OnLoad(e)

        '显示等待窗口并执行任务
        taskDelegate.Invoke()
        '任务完成后关闭等待窗口
        Me.Close()
    End Sub
End Class

通过以上的代码，当用户点击主窗口中的Start按钮时，等待窗口会打开并显示一个进度条，同时会执行DoTask函数。当任务完成后，等待窗口会自动关闭。
最后，通过等待窗口和委托的组合，我们可以实现在后台执行耗时任务的同时提供良好的用户体验。