7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2004-07-29
- 打赏
- 举报
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
StatusBar1.Panels(1).Text = Now
Sleep 2000 '延迟2秒
StatusBar1.Panels(1).Text = ""
End Sub
Private Sub Command1_Click()
StatusBar1.Panels(1).Text = Now
Sleep 2000 '延迟2秒
StatusBar1.Panels(1).Text = ""
End Sub
tztz520 2004-07-29
- 打赏
- 举报
用定时器控制.
