vb.net MsgBoxResult显示倒计时

可以使用 Timer 控件来实现倒计时，并在 MsgBox 中显示剩余时间。

下面是一个示例代码，实现了一个倒计时为 10 秒的消息框：

Public Class Form1
    Dim countDown As Integer = 10 ' 倒计时秒数
    Dim timer As New Timer()

    Private Sub btnMsgBox_Click(sender As Object, e As EventArgs) Handles btnMsgBox.Click
        timer.Interval = 1000 ' 每秒触发一次 Timer.Tick 事件
        AddHandler timer.Tick, AddressOf Timer_Tick
        timer.Start()

        Dim result As MsgBoxResult = MsgBox("这是一个倒计时消息框，剩余时间：" & countDown & "秒", MsgBoxStyle.OkCancel)
        If result = MsgBoxResult.Ok Then
            MsgBox("你点击了 OK 按钮")
        Else
            MsgBox("你点击了 Cancel 按钮")
        End If

        ' 关闭 Timer
        timer.Stop()
        RemoveHandler timer.Tick, AddressOf Timer_Tick
    End Sub

    Private Sub Timer_Tick(sender As Object, e As EventArgs)
        countDown -= 1
        If countDown = 0 Then
            ' 倒计时结束，关闭消息框
            timer.Stop()
            MsgBox("倒计时结束")
        Else
            ' 更新消息框中的倒计时时间
            Dim msgBox As IntPtr = FindWindow(vbNullString, "Microsoft Visual Basic")
            SetWindowText(msgBox, "这是一个倒计时消息框，剩余时间：" & countDown & "秒")
        End If
    End Sub

    ' 导入 Windows API
    Private Declare Auto Function FindWindow Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Declare Auto Function SetWindowText Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal lpString As String) As Boolean
End Class

在这个示例中，我们在点击按钮时启动了 Timer，并在 MsgBox 中显示了剩余时间。每秒钟，Timer.Tick 事件将会被触发一次，更新倒计时时间并更新消息框的标题。当倒计时结束时，我们将关闭消息框并显示一个提示框。

为了更新消息框的标题，我们使用了 Windows API 中的 FindWindow 和 SetWindowText 函数。这些函数可以用来查找并修改窗口的标题。在这个示例中，我们将消息框的标题设为了当前的倒计时时间。