Vb.net时间延迟发生在它应该做之前

Question

我希望这一切都在同一时间发生，但代码中的暂停发生在按钮改变颜色之前，我如何制作它以便事后发生。

Public Class Form1
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
    Randomize()

    Dim Buttonnum As Integer = CInt(Int((9 * Rnd()) + 1))

    Select Case Buttonnum
        Case "1"
            Button1.BackColor = Color.Blue
        Case "2"
            Button2.BackColor = Color.Red
        Case "3"
            Button3.BackColor = Color.Orange
        Case "4"
            Button4.BackColor = Color.Yellow
        Case "5"
            Button5.BackColor = Color.Pink
        Case "6"
            Button6.BackColor = Color.Purple
        Case "7"
            Button7.BackColor = Color.Brown
        Case "8"
            Button8.BackColor = Color.Violet
        Case "9"
            Button9.BackColor = Color.Green
    End Select

    Threading.Thread.Sleep(1000)
    MsgBox("I")



End Sub

结束班

Answer 1

选择完成后尝试添加Application.DoEvents。我知道这适用于消息框文本，它也可能更新颜色。