VB6.0调用SetTimer实现定时器

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 使用无效。

分类: 代码

好文要顶 关注我 收藏该文      

        

MyFavorite
关注 - 73
粉丝 - 27

+加关注

1

0

« 上一篇： cmd命令控制台窗口一闪就消失解决办法
» 下一篇： 外网SQL服务器设置

posted @ 2011-05-27 19:29 MyFavorite 阅读( 4633) 评论( 1) 编辑 收藏

发表评论

  

#1楼 2593273 2013/1/5 23:41:17 2013-01-05 23:41 | 宏 信  

講解的很好