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

maowenhui

mccad

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

用法示例：
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

maowenhui

bamboo

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

finestream

我怎么看不到压缩包啊 ?

yb-ool

20029202205568920.zip

??

起子

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

罗米儿

很不错的功能