VB6.0调用SetTimer实现定时器

Timer.bas：

    
      

     
       Option
     
        
     
       Explicit
     
       


     
       Declare
     
        
     
       Function
     
        SetTimer 
     
       Lib
     
        
     
       "
     
       user32
     
       "
     
        (
     
       ByVal
     
        hwnd 
     
       As
     
        
     
       Long
     
       , 
     
       ByVal
     
        nIDEvent 
     
       As
     
        
     
       Long
     
       , 
     
       ByVal
     
        uElapse 
     
       As
     
        
     
       Long
     
       , 
     
       ByVal
     
        lpTimerFunc 
     
       As
     
        
     
       Long
     
       ) 
     
       As
     
        
     
       Long
     
       

     
       Declare
     
        
     
       Function
     
        KillTimer 
     
       Lib
     
        
     
       "
     
       user32
     
       "
     
        (
     
       ByVal
     
        hwnd 
     
       As
     
        
     
       Long
     
       , 
     
       ByVal
     
        nIDEvent 
     
       As
     
        
     
       Long
     
       ) 
     
       As
     
        
     
       Long
     
       


     
       Public
     
        
     
       Sub
     
        TimerProc(
     
       ByVal
     
        hwnd 
     
       As
     
        
     
       Long
     
       , 
     
       ByVal
     
        uMsg 
     
       As
     
        
     
       Long
     
       , 
     
       ByVal
     
        idEvent 
     
       As
     
        
     
       Long
     
       , 
     
       ByVal
     
        dwTime 
     
       As
     
        
     
       Long
     
       )
 
     
       MsgBox
     
        Now()

     
       End Sub
    
      

窗体代码：

    
      

     
       Option
     
        
     
       Explicit
     
       


     
       Dim
     
        lngTimerID 
     
       As
     
        
     
       Long
     
       

     
       Dim
     
        BlnTimer 
     
       As
     
        
     
       Boolean
     
       


     
       Private
     
        
     
       Sub
     
        Form_Load()
 BlnTimer 
     
       =
     
        
     
       False
     
       
 Command1.Caption 
     
       =
     
        
     
       "
     
       定时开始
     
       "
     
       

     
       End Sub
     
       


     
       Private
     
        
     
       Sub
     
        Form_Unload(Cancel 
     
       As
     
        
     
       Integer
     
       )
 KillTimer 
     
       0
     
       , lngTimerID

     
       End Sub
     
       


     
       Private
     
        
     
       Sub
     
        Command1_Click()
 
     
       If
     
        BlnTimer 
     
       =
     
        
     
       False
     
        
     
       Then
     
       
 
     
       '
     
       每5秒钟调用一次函数
     
       

     
        lngTimerID 
     
       =
     
        SetTimer(
     
       0
     
       , 
     
       0
     
       , 
     
       5000
     
       , 
     
       AddressOf
     
        TimerProc)
 BlnTimer 
     
       =
     
        
     
       True
     
       
 Command1.Caption 
     
       =
     
        
     
       "
     
       定时结束
     
       "
     
       
 
     
       Else
     
       
 KillTimer 
     
       0
     
       , lngTimerID
 BlnTimer 
     
       =
     
        
     
       False
     
       
 Command1.Caption 
     
       =
     
        
     
       "
     
       定时开始
     
       "
     
       
 
     
       End
     
        
     
       If
     
       

     
       End Sub
    
      

说明：
TimerProc函数定义一定要放在bas模块文件中，否则运行代码"lngTimerID = SetTimer(0, 0, 5000, AddressOf TimerProc)"会报错，

提示：操作符 AddressOf 使用无效。