VBA 自动定时关闭的msgbox对话框

chunyu.wu

已于 2023-10-27 10:35:00 修改

阅读量1.8k

点赞数 1

分类专栏： VBA 文章标签： VBA

于 2023-10-26 11:23:24 首次发布

本文链接：https://blog.csdn.net/wuchunyu002/article/details/134051923

版权

VBA 专栏收录该内容

67 篇文章

订阅专栏

本文介绍了如何在标准模块中使用DeclarePtrSafeFunction插入MessageBoxTimeout函数，该函数用于在指定时间内显示消息对话框，如2秒后自动关闭。Subtest子例程展示了如何调用此功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

标准模块中插入如下代码

最后参数dwTimeout表示要设置的时间（单位：毫秒），2000就表示2秒。

Declare PtrSafe 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
Sub test()
     MessageBoxTimeout 0, "兩秒后自動關閉", "測試", 0, 1, 2000
End Sub