有选择的自动关闭msgbox

时　间:2013-01-24 13:46:16
作　者:jia   ID：9474  城市：盘锦
摘　要:有选择的自动关闭msgbox
正　文:

有选择的自动关闭msgbox

Private Declare Function MsgBoxEx Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As VbMsgBoxStyle, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) As Long

Private Sub Form_Unload(Cancel As Integer)
Dim ret As Long
 ret = MsgBoxEx(0, "请选择", "两秒后自动关闭", vbYesNo + vbInformation, 1, 2000)
 If ret = 32000 Then '定时时间毫秒
Debug.Print "超时关闭"
   DoCmd.Quit '退出本窗口时不写
   ElseIf ret = vbYes Then
   Debug.Print "选择Yes"
    DoCmd.Quit '退出本窗口时不写
    ElseIf ret = vbNo Then
   Debug.Print "选择No"
   Cancel = 1 '不退出
    End If
End Sub