我希望这一切都在同一时间发生,但代码中的暂停发生在按钮改变颜色之前,我如何制作它以便事后发生。
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
结束班
答案 0 :(得分:0)
选择完成后尝试添加Application.DoEvents
。我知道这适用于消息框文本,它也可能更新颜色。