简单到鸭点的问题仔～～～ vb 的 延时

Question

倒了,用API啊,也有SLEEP,呵呵 !

Answer 1

const delaytime=5000 '延时常数
dim i as long        '记数器
do
   if i=delaytime then exit do
   doevents
   i=i+1
loop

Answer 2

没那个必要吧,为什么不用API的SLEEP SUB,可精确到1/1000秒啊!

Answer 3

用API函数GetTicktime(),该函数返回系统启动的时间,精确到毫秒.
Public Sub Delay(lngTime as long)
'lngTime为要延时的时间,单位:毫秒
   Dim lngStartTime as long
   lngStartTime=GetTicktime
   Do while GetTicktime-lngStartTime<lngTime
    Doevents
   Loop
End Sub
注:Sleep()函数是使一个进程休眠,在多线程时不建议使用.   

Answer 4

Sorry,好象是GetTickCount()函数,:(,记不清了.

Answer 5

我明白了一点！谢谢大家，api真的很方便吗？是这样的。。我有个对数据库和文件处理的程序，一在运行的时候就象死机一样，稳住了。。实际上并没有死机。运行结束后才显示程序界面，我本来象用延时方式始程序在运行期间能看到界面，和保留一点系统资源。。api真的很棒吗？可惜我不会如何写这个代码？能多教我一下吗？最好能写个函数的范例！小僧万般感激谢谢。

Answer 6

请问sbnth(yzq)　大哥一下，用你的Delay()函数就能实现问题吗？不怎么占用系统资源把？顺便问一下vbFly(雪如月)　大哥 api如何写？谢谢了

Answer 7

我有点不知道你想干什么，但是延时的话，TIMER控件不是很好吗

Answer 8

DoEvents！！！
我终于知道了！解决方法！现在送些分把