计时自动关闭Msgbox对话框

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

复制代码

access数据库

发布人:zstmtony

分享到：

点击次数：更新时间：2015-01-08 15:13:40 【打印此页】【关闭】