現在的問題是,如何使得代碼2 經過5秒鍾的延遲,再默認輸入“123”? 類似嗎? '--------------------------------------------------------------------------------------- ' Module : Module1 ' DateTime : 30/8/2006 01:03 ' Author : ' Purpose : '--------------------------------------------------------------------------------------- ' Base on chijanzen's code 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 ' seconds Sub Test() TID = SetTimer(0, 0, Sec * 1000, AddressOf CloseTest) s = InputBox("Please Enter a nubmer" & Chr(13) & Sec & " Seconds Auto Close", "Information", 123) KillTimer 0, TID MsgBox s End Sub
Sub CloseTest(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, _ ByVal Systime As Long) Application.SendKeys "~", True KillTimer 0, TID End Sub
[此贴子已经被作者于2006-8-30 1:18:08编辑过] |