VB 版 (精华区)

发信人: feelfine (from bad to worse), 信区: VB
标  题: 另一种延时的方法，还有没有更简便的？
发信站: 哈工大紫丁香 (2002年01月21日20:05:22 星期一), 站内信件

    在项目管理器中增加一个模块，在其中加入一个GetTickCount()API
的声明，作为等待或延迟之用。宣告如下：
    Declare Function GetTickCount Lib "kernel32"() as long
（注意函数名的大小写！）
延时片段程序：
       1   t=GetTickCount
       2   Do
       3     DoEvents
       4   Loop Until GetTickCount-t>100


--

                      温暖的话比亲密拥抱
                              
                                    仿佛具更真实触感

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.24]