【Access API】计时自动关闭Msgbox对话框

盗梦

【Access API】计时自动关闭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

复制代码

详见附件  如果大家有其他方法，不妨分享一下，共同进步{:soso_e144:}

zhuyiwen

谢谢分享

盗梦

zhuyiwen 发表于 2013-9-28 09:24
谢谢分享

朱总，有没有办法，让确定按钮或者提示内容 有数字倒数？ 自己手动设计一个窗体的方法吗？

daisyjane

顶顶

390012370

学习了！

390012370

好东西