自己顶一下
解决方案 »
- 为什么DataGrid 绑定数据后不显示记录呀???(在线等)
- 使用oo4o访问Oracle的程序,vbp没有错误,做成exe后出现确数据库连接失败的问题?
- 如何用vb写程序删除一个隐藏的文件
- 谁能解决这个问题,送100分喔!
- 如果ACCESS加了密码,如何写连接语句myCon.connectionstring?
- 如何给自定义控件的方法传递自定义的结构??ByRef形式的
- 谁有关于DataReport的动态加载控件的例子?发来一个
- 请教: 记录集与记录集之间根据主键值如何关联,使指针一起移动?
- help !!!
- 如何删除数据库中的重复记录,快帮帮我,马上就要使用了,谢谢诸位
- 请教关闭“任务管理器"中的进程......急!
- 求助,不同语言开发的软件之间通信的问题
delay 10000
声明一个库的别名什么意思
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Delay 10000
End Sub
调用是直接 sleep就行了??
"kernel32"是不是VC库里的东东啊?Sleep是这个库里"Sleep"的别名,但是怎么用呢,我是新手,不太懂
他会导致整个程序延迟的..如果你程序的某个循环正在进行.
这个时候如果你在某个地方使用Sleep函数的话.
会导致你的程序全面暂停.
要注意.
通过一些特殊的方法可以做到仅对当前过程暂停.
具体细节可以参考sleep这个api的详细参数
'*/过 程 名:Pause
'*/功 能:暂停函数,延时用
'*/返 回 值:无
'*/参 数:Dauer 延时值,单位(秒)
'*/建立日期:2004-12-07 16:00
'*/修改日期:
'*/-------------------------------------------------------------
Public Sub Pause(Dauer)
Dim A As Single, B As Single
Dim tem1 As Single, tem2 As Single
A = Format(Date, "0") * Year(Now)
tem1 = Timer
Do
DoEvents
B = Format(Date, "0") * Year(Now)
If A = B Then
tem2 = Timer
If tem2 - tem1 >= Dauer Then
Exit Do
End If
ElseIf A < B Then
tem1 = tem1 - 86400
A = B
End If
Loop
End Sub
Dim start
start = Timer
Do While Timer < start + Pausetime
DoEvents
Loop
End Sub