vb中是否有类似于c语言中delay()这样的延时函数

xxjmz_78 2003-05-16 11:56:05
谢谢帮忙。
...全文
93 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhangbob 2003-05-16
  • 打赏
  • 举报
回复
sleep!
suntt 2003-05-16
  • 打赏
  • 举报
回复
呵呵,很多方法呀
bydisplay 2003-05-16
  • 打赏
  • 举报
回复
sleep
dream901 2003-05-16
  • 打赏
  • 举报
回复
Up
lihonggen0 2003-05-16
  • 打赏
  • 举报
回复
'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()

Me.Caption = "Your system will sleep 5 sec."
'Sleep for 5000 milliseconds
Sleep 5000
Me.Caption = ""
End Sub
Private Sub Form_Load()
Me.Caption = ""
Command1.Caption = "Sleep ..."
End Sub
Sean918 2003-05-16
  • 打赏
  • 举报
回复

Public Sub Delay(mSec As Long)
On Error GoTo ShowErr

Dim TStart As Single

TStart = Timer

While (Timer - TStart) < (mSec / 1000)
DoEvents
Wend
Exit Sub
ShowErr:
MsgBox Err.Source & "------" & Err.Description
Exit Sub

End Sub
zhobin 2003-05-16
  • 打赏
  • 举报
回复
对sleep
lxcc 2003-05-16
  • 打赏
  • 举报
回复
sleep
Wesely 2003-05-16
  • 打赏
  • 举报
回复
API :

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

比如Sleep(1000)就是延迟一秒。

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧