3秒钟自动关闭的信息框

joeyyang5

Rem VBA知识点：API的应用
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 = 3  '可以在这里修改时间
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
Sub 三秒钟自动关闭()
    TID = SetTimer(0, 0, Sec * 1000, AddressOf CloseTest)
    MsgBox Sec & "  秒种自动关闭窗口", 65, "提示"
End Sub

罗达

这段时间vba好热啊，呵呵

309565063

学习                              

白雪高山

看不懂，没学过api能解释下用法吗