谁来帮我给这段VB代码作一个注释

来源：百度知道 编辑：UC知道 时间：2024/06/01 03:04:46
Public Sub timedelay(ByVal t As Long)
Dim tt As Double
tt = GetTickCount()
Do
DoEvents
Loop Until GetTickCount() - tt > t
End Sub

GetTickCount() 函数是计算系统启动到现在的时间，单位为毫秒。
Dim tt As Double '定义tt为双精度
tt = GetTickCount() '把系统启动的时间赋予tt
Do '循环开始
DoEvents ’防止程序因为运行循环而对其他事件没有反应
Loop Until GetTickCount() - tt > t '一直循环直到现在的时间减去刚刚我们截取的时间(tt)大于我们定义的时间.
该程序的可以指定程序延时~~~~

mng