maowenhui 发表于 2002-9-19 15:25:00

请问vba的定时器控件程序怎么写

mccad 发表于 2002-9-20 21:44:00

看看以下代码是否有用

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim lngStartTime As Long
Sub StartTimer()
    lngStartTime = timeGetTime()
End Sub
Function EndTimer()
    EndTimer = timeGetTime() - lngStartTime
End Function

mccad 发表于 2002-9-20 22:01:00

终于帮你找到定时器控件



用法示例：
Option Explicit
--------------------------------
Private WithEvents myTimer As XTimer
--------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   myTimer.Enabled = False
End Sub
---------------------------------------------------
Private Sub Workbook_Open()
   Set myTimer = New XTimer
   myTimer.Interval = 60000
   myTimer.Enabled = True
End Sub
---------------------------------------------
Private Sub myTimer_Tick()
   MsgBox "该休息一下了吧!!!"
End Sub

maowenhui 发表于 2002-9-20 22:02:00

谢谢

maowenhui 发表于 2002-9-21 11:36:00

我已经试用了该程序，很好用，谢谢你帮了大忙。

bamboo 发表于 2003-5-6 11:42:00

我也有同样的问题

我看了斑竹给你的代码。可是看不明白。withevents是用于类模块的，后面的函数是写在模块中的吗？

finestream 发表于 2007-6-22 16:17:00

<p>我怎么看不到压缩包啊 ?</p>

yb-ool 发表于 2009-5-6 11:24:00

<p>20029202205568920.zip</p><p>??</p><p></p>

起子 发表于 2011-5-21 15:34:16

LISP中如何使用这个时间控件的tick事件？

罗米儿 发表于 2012-5-7 22:27:56

很不错的功能
页: [1]
查看完整版本: 请问vba的定时器控件程序怎么写