如何实现：弹出提示信息后，自动关闭？

自由心　发表于：2016-01-11 16:58:36 　

如何实现：弹出提示信息后，自动关闭？

在我的VBS中，需要弹出提示信息后，弹出信息自动关闭

请问高手，如何实现？

多谢高手指导！

附：我的VBS中自动弹出信息如下

If MsgBox("数据导出成功。是否打开导出的TXT文件？", vbQuestion + vbYesNo, "提示") = vbYes Then

Shell "notepad.exe " & Chr(34) & strFileName & Chr(34), 3 '打开导出的TXT文件"
End If

易勋发表于：2016-01-12 09:23:50

你只能重新做一个消息提示窗体了或者使用快速开发平台中的msgboxex函数，可以设置自动关闭时间的。

MsgBoxEx 函数

在对话框中显示消息，等待用户单击按钮，并返回一个长整数（Long）来确定用户单击了哪一个按钮。如果指定时间无响应则自动关闭并返回默认选择。

MsgBox (Prompt[, Buttons][, Title][, Timeout])

参数名称	必需/可选	数据类型	说明
Prompt	必需	Variant(String)	要显示在对话框中的消息内容。最大长度1024个字符，多余部分将被截掉。可以通过回车符（vbCr或Chr(13)）、换行符（vbLf或Chr(10)）、回车符+换行符（vbCrLf或Chr(13) & Chr(10)）来进行强制换行。
Buttons	可选	VbMsgBoxStyle	指定消息对话框中要显示的按钮的个数及形式、图标样式、默认按钮是哪一个、消息框的强制回应模式等。可以是多个值的总合。如果省略此参数，则默认为0。
Title	可选	Variant(String)	在消息对话框标题栏中显示的内容。如果省略此参数，则默认根据图标类型显示为“错误”、“警告”、“提示”、“确认”，并在后面附加设置的软件名称。
Timeout	可选	Variant(Long)	如果对话框显示时间超过此时间用户未做出响应，对话框将自动关闭（以毫秒为单位）。如果省略此参数，当Buttons为vbOKOnly、vbInformation、vbExclamation时，默认为1500毫秒（即1.5秒），否则默认为0。

总记录：1篇页次：1/1 9 1 :