求教：在VBA中能否引用VB中的timer控件

兰色幻想

[em12]

winak

按道理应该可以，试过VBA引用VB6.0的控件，你试试看能不能在添加附件里面找到？ 否则可以需要引用动态库

loadhigh

access的form里内置了time控件，只需要设置Form.TimerInterval的值，form就会每隔相关的时间后就自动的执行timer里的代码。

drinkingsn

应该是不能！

hzg7818

http://club.excelhome.net/dispbbs.asp?boardID=4&ID=25977 这个是Excel运用时间最好的方法

xiaog

使用Excel内置的Application.OnTime，具体查帮助。

xiaog

利用 winmm.dll 的Timer。具体见Emily提供的几个例子 http://club.excelhome.net/dispbbs.asp?BoardID=4&replyID=57857&id=11245&star=1&skin=0 http://club.excelhome.net/dispbbs.asp?BoardID=4&replyID=74062&id=25977&star=1&skin=0 . . .

[此贴子已经被作者于2003-12-5 22:21:49编辑过]

xiaog

使用API，见 Excel大师的例子“Inputbox 自动关闭” http://club.excelhome.net/dispbbs.asp?BoardID=2&replyID=57656&id=11198&star=1&skin=0 又如，下面的代码： Public Declare Function SetTimer Lib "user32" ( _ ByVal hWnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElaspe As Long, _ ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" ( _ ByVal hWnd As Long, _ ByVal nIDEvent As Long) As Long Dim TID As Long Const Sec = 5 Sub Test() [D9] = "" TID = SetTimer(0, 0, Sec * 1000, AddressOf CloseTest) ipt = InputBox("Please Input Password(123456789)" & Chr(13) & Sec & " Second Auto Cloas") If ipt = "123456789" Then KillTimer 0, TID [D9] = "All Right" End If End Sub Sub CloseTest(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, _ ByVal Systime As Long) [D9] = "Time Over" Application.SendKeys "~", True KillTimer 0, TID End Sub

[此贴子已经被作者于2003-12-5 23:04:27编辑过]

xiaog

使用外置控件，如XTimers等.... ClH30206.rar (3.85 KB, 下载次数: 411)

2003-12-5 22:31 上传

点击文件名下载附件
求教：在VBA中能否引用VB中的timer控件

http://club.excelhome.net/dispbbs.asp?BoardID=2&replyID=18230&id=16530&star=1&skin=0

[此贴子已经被作者于2003-12-5 22:49:46编辑过]

xiaog

使用IE Timer,具体见 chijanzen 的一些文章。 Lw3D9UQD.rar (74.8 KB, 下载次数: 394)

2003-12-5 22:38 上传

点击文件名下载附件
求教：在VBA中能否引用VB中的timer控件

[此贴子已经被作者于2003-12-5 23:25:37编辑过]