API/COM/系统相关
计时自动关闭Msgbox对话框
2015-01-08 15:13:40
文件类型 : rar
文件版本 : Access2003
简要说明 : 计时3秒自动关闭Msgbox对话框

 msgbox对话框可以作提示作用，也可以输出结果。  这里使用一个API函数，计时3秒自动关闭Msgbox对话框，如果大家有什么好的方法也可以分享讨论

  1.  
  2. Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
  3.  
  4. Private Sub Command0_Click()
  5.     MessageBoxTimeout Me.hwnd, "3秒后关闭!", "Office-cn", vbInformation, 0, 3000
  6. End Sub
复制代码

首页