vb.net MsgBox显示倒计时

你可以使用 Timer 控件和 MsgBox 函数来显示倒计时。

以下是一个简单的示例代码：

Public Class Form1

    Private countdown As Integer = 10 '设定倒计时的秒数
    Private timer As New Timer() '创建 Timer 控件

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        timer.Interval = 1000 '设定 Timer 控件的间隔为 1 秒
        timer.Enabled = True '启动 Timer 控件
        AddHandler timer.Tick, AddressOf timer_Tick '为 Timer 控件添加 Tick 事件的处理函数
    End Sub

    Private Sub timer_Tick(sender As Object, e As EventArgs)
        countdown -= 1 '每次 Timer 控件的 Tick 事件发生时，倒计时减 1 秒
        If countdown = 0 Then '当倒计时结束时，弹出消息框并停止 Timer 控件
            timer.Enabled = False
            MsgBox("倒计时结束！")
        End If
    End Sub

End Class

在上面的代码中，我们在窗体的加载事件中创建了一个 Timer 控件，并为其添加了 Tick 事件的处理函数。在 Tick 事件的处理函数中，我们每次将倒计时减 1 秒，并检查是否到达了 0 秒，如果是，则弹出消息框并停止 Timer 控件。