如何让Msgbox弹出3秒后自动关闭？

作者：绿色风分类：时间：2022-08-17 浏览：126

楼主 zzmxy	Q: 如何让Msgbox的信息弹出3秒后自动关闭？ A: 可以使用Shell或者调用API的MessageBoxTimeout，提供两种方法如下：方法一： Sub wshshell() Dim wshshell As Object Set wshshell = CreateObject("Wscript.shell") wshshell.popup "3秒后关闭执行完毕!", 3, "提示", 64 '3为3秒后关闭提示 Set wshshell = Nothing End Sub 方法二： 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 Sub 定时关闭MSGBox3() MessageBoxTimeout 0, "你好", "两秒后自动关闭", 0, 0, 3000 '以毫秒作为单位 End Sub 附件： 3秒后自动关闭MsgBox窗口.rar
2楼海洋之星	学习了,很牛
3楼 kangguowei	vba
4楼水星钓鱼	有用,感谢分享
5楼 oO成Oo	学习了谢谢祝您新年快乐
6楼 335081548	有用,感谢分享
7楼芐雨	学习了,很牛

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表