Office中国论坛/Access中国论坛

标题: 【Access API】计时自动关闭Msgbox对话框 [打印本页]

作者: 盗梦 时间: 2013-9-27 17:27
标题: 【Access API】计时自动关闭Msgbox对话框
【Access API】计时自动关闭Msgbox对话框

这里使用一个API函数，计时3秒自动关闭Msgbox对话框

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
Private Sub Command0_Click()
MessageBoxTimeout Me.hwnd, "3秒后关闭!", "Office-cn", vbInformation, 0, 3000
End Sub

复制代码

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

作者: zhuyiwen 时间: 2013-9-28 09:24
谢谢分享

作者: 盗梦 时间: 2013-9-28 11:43

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

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

作者: daisyjane 时间: 2013-9-29 16:15
顶顶

作者: 390012370 时间: 2024-1-16 17:45
学习了！

作者: 390012370 时间: 2024-1-26 11:00
好东西

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)