VB 版 (精华区)

发信人: zxfsnow (别怕我伤心), 信区: VB
标  题: 如何使程序暂停一段时间
发信站: 哈工大紫丁香 (2000年05月31日12:25:47 星期三), 转信

发信人: ming (阿笨), 信区: VB
标  题: 如何使程序暂停一段时间
发信站: 虎踞龙盘东南站 (Sun Dec 26 21:41:10 1999), 转信


 千万别用循环 :P 那样你的机器别的什么事情也别干了

 在公共模块中加入：

 Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

 在你需要暂停的地方使用：

 call sleep(n)

 n是毫秒 :)

--

  每一刻都存在，不一样的精彩

※ 来源:．虎踞龙盘东南站 sbbs.seu.edu.cn．[FROM: 202.119.29.43]

发信人: zhch (zhch), 信区: VB
标  题: Re: 如何使程序暂停一段时间
发信站: 虎踞龙盘东南站 (Fri Jan  7 18:37:40 2000), 转信

只用循环cpu占用太大,
只用sleep则在此期间程序自己的所有事件都将得不到响应.
对于较长时间的暂停, sleep+doevents+循环, 效果比较好.

【 在 ming (阿笨) 的大作中提到: 】
:  千万别用循环 :P 那样你的机器别的什么事情也别干了
:  在公共模块中加入：
:  Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As L
ong)
:  在你需要暂停的地方使用：
:  call sleep(n)
:  n是毫秒 :)
-- 
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

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