VB6.0调用SetTimer实现定时器

绝地灬酷狼 2022-07-15 07:13 460阅读 0赞

[VB6.0调用SetTimer实现定时器][VB6.0_SetTimer]

Timer.bas：

![复制代码][copycode.gif]

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

![复制代码][copycode.gif]

窗体代码：

![复制代码][copycode.gif]

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

![复制代码][copycode.gif]

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

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

分类: [ 代码][Link 1]

好文要顶 关注我  收藏该文 ![icon_weibo_24.png][]

[MyFavorite][]  
[关注 - 73][- 73]  
[粉丝 - 27][- 27]

\+加关注

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

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

发表评论

[\#1楼][1]  2593273 2013/1/5 23:41:17 2013-01-05 23:41 | [ 宏 信][Link 6] [  ][Link 7]

講解的很好

[VB6.0_SetTimer]: http://www.cnblogs.com/MyFavorite/archive/2011/05/27/2060208.html
[copycode.gif]: /images/20220715/2c71d49f935e4c1ca91116ce5a6d0a63.png
[Link 1]: http://www.cnblogs.com/MyFavorite/category/39337.html
[icon_weibo_24.png]: /images/20220715/2dd35f2e3f044b459d67e1d3fc5ff773.png
[MyFavorite]: http://home.cnblogs.com/u/MyFavorite/
[- 73]: http://home.cnblogs.com/u/MyFavorite/followees
[- 27]: http://home.cnblogs.com/u/MyFavorite/followers
[Link 2]: http://www.cnblogs.com/MyFavorite/archive/2011/03/07/1976439.html
[Link 3]: http://www.cnblogs.com/MyFavorite/archive/2011/08/30/2159933.html
[MyFavorite 1]: http://www.cnblogs.com/MyFavorite/
[Link 4]: https://i.cnblogs.com/EditPosts.aspx?postid=2060208
[Link 5]: http://www.cnblogs.com/MyFavorite/archive/2011/05/27/2060208.html#
[1]: http://www.cnblogs.com/MyFavorite/archive/2011/05/27/2060208.html#2593273
[Link 6]: http://home.cnblogs.com/u/132975/
[Link 7]: http://msg.cnblogs.com/send/%E5%AE%8F%20%E4%BF%A1