Question

vb 如何点击Command1 等待几秒后在 跳出消息框？

就是点击Command1 等待了5秒 然后在说 你好啊！
就这样 给我代码。。谢谢了

Answer 1

'可以使用定时器，添加定时器Timer1，按钮Command1
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
MsgBox " 你好啊！"
Timer1.Enabled = False
End Sub

Answer 2

窗体上添加一个Timer控件，一个CommandButton控件：

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static t As Integer
t = t + 1
If t >= 4 Then ' t的初始值为0，所以这里是4
MsgBox "你好啊!"
Timer1.Enabled = False
t = 0
End If
End Sub

Answer 3

在 command1 被点击 事件（函数）中
在最开始加一个时间延迟语句，延迟时间5秒钟

Answer 4

就是点击Command1 等待了5秒