高校问答鲁迅呐喊读后感400字:VB 问题,关于插入时间延时的问题 高手进
来源：百度文库 编辑：高校问答 时间：2024/04/30 02:38:15
各个姐姐 小弟想编一个包含延时的程序大体格式如下
for i =1 to 1000
text1.text=a
a=a+1
此处延时间1000MS
NEXT
这个地方的延时如何实现啊
那小弟还想问一下这个函数怎么调用啊
for i =1 to 1000
text1.text=a
a=a+1
此处延时间1000MS
NEXT
这个地方的延时如何实现啊
那小弟还想问一下这个函数怎么调用啊
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Sleep API函数
调用时只要写Sleep 1000 就可以
上楼那位，是否知道延时程序的一般定义，从定义上来说楼上那位的程序效率很低，CPU占用近100%。一般的，单片机等的延时，均使用空循环，不察看计时器。
另外，SLEEP 1000 使用的是系统的延时程序，CPU占用约为0%，比较适合。
给你我自定义的函数，其中必须用到API函数：GetTickCount
'获取自windows启动以来经历的时间长度（毫秒）
Private Declare Function GetTickCount Lib "kernel32" () As Long
'###########################
'# 时间延时函数(ms) #
'#-------------------------#
'# 调用API： #
'# GetTickCount #
'###########################
Public Sub TimeDelay(ByVal t As Long)
Dim tt As Double
tt = GetTickCount()
Do
DoEvents
Loop Until GetTickCount() - tt >= t
End Sub