如何自动关闭msgbox?用WshShell.Popup替代msgbox可以搞定．

引子玄

Sub 不用API自动关闭不了()
MsgBox "如何自动关闭文本显示框?不用API自动关闭不了"
End Sub

Sub 用API实现自动关闭()
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Popup "如何自动关闭文本显示框？用API实现自动关闭", 1, "请等待1秒钟，1秒后该窗口自动关闭"
End Sub

引子玄

问：
如何关掉msgbox的提示框?
在调试脚本的时候，通常会用采用很多msgbox函数，但是这些提示框必须要手动关闭，否则脚本不会继续往下执行，你可以设计一个函数，在几秒钟之后自动关闭提示框吗？

答：
Set WshShell = CreateObject(“Wscript.Shell”)
WshShell.Popup “请等待5秒钟，5秒后该窗口自动关闭”, 5, “定时自动关闭提示框”

引子玄

WshShell.Popup ＝ＭＳＧＢＯＸ的脚本宿主

zengxp

引子玄 发表于 2012-12-26 13:36
问：
如何关掉msgbox的提示框?
在调试脚本的时候，通常会用采用很多msgbox函数，但是这些提示框必须要手动 ...

谢谢，学习了，  
我试了试 ，这个时间好像真不止5秒啊

z_hao0917

我的也是感觉绝对过了超过5s还不会自动关闭 win7 x64 excel2010 下

yf_home

引子玄 发表于 2012-12-26 13:42
WshShell.Popup ＝ＭＳＧＢＯＸ的脚本宿主

测试了下，Win7 + office2010下，不能关闭。