比如说,我想显示一个帮助窗体,持续几秒钟,然后消失。除了用timer,还有别的办法吗
用API Sleep函数。
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
sleep(20000)
暂停2秒
告诉你个麻烦点的办法:
前步操作
dim counter as long
counter=timer+2 (停2秒)
do
doevents
loop until timer>counter
往后的操作