vb有没有延时函数?

问题点数：20、回复次数：2Top

1 楼jmlmj（jmlmj）回复于 2001-01-09 09:13:00 得分 20

1.可用API:  
  Private   Declare   Function   GetTickCount   Lib   "kernel32"   ()   As   Long  
  TickCount   =   GetTickCount()  
  While   GetTickCount()   -   TickCount   <   2000  
        tmp   =   DoEvents()  
  Wend  
  2。也可用Times控件作计算。Top

2 楼iProgram（na）回复于 2001-01-09 09:26:00 得分 0

API   Sleep  
  Me.Print   "Test   1"  
  Sleep   5000   '延时5秒  
  Me.Print   "Test   2"Top

相关问题

• gettickcount

• 帖主：zycyy
• jmlmj

• Visual Basic类图书
• Visual Basic类源码下载