Wscript的popup
Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") WshSHell.popup "枚举主键,1 秒钟后本窗口将自动关闭!", 1, "示例", 0 + 64 popup 方法
在弹出式消息框中显示文本。
intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType])
参数
object
WshShell 对象。
strText
包含要显示在弹出式消息框中的文本的字符串值。
nSecondsToWait
可选。表示弹出式消息框最长显示时间(秒)的数值。
strTitle
可选。包含要作为弹出式消息框的标题显示的文本的字符串值。
nType
可选。表示要显示在弹出式消息框中的按钮和图标类型的数值。这些类型确定消息框的使用方法。
IntButton
表示用户单击以解除消息框的按钮号的整数值。该值由 Popup 方法返回。
说明
无论主机可执行文件(WScript.exe 或 CScript.exe)是否运行,Popup 方法都显示一个消息框。如果 nSecondsToWaitis 等于零(默认值),弹出式消息框将保持可见,除非用户关闭它。如果 nSecondsToWaitis 大于零,则弹出式消息框在 nSecondsToWait 秒之后关闭。如果未提供参数 strTitle,则在默认情况下,弹出式消息框的标题为 "Windows Script Host"(Windows 脚本宿主)。nType 的含义与 Microsoft Win32? 应用程序编程接口的 MessageBox 函数的含义相同。下列各表显示这些值及其含义。您可组合这些表中的值。
注意 要以 RTL 语言(如希伯来语或阿拉伯语)正确地显示文本,请将十六进制的 hex &h00100000(十进制的 1048576)添加到 nType 参数中。
按钮类型
值 说明
0 显示“确定”按钮。
1 显示“确定”和“取消”按钮。
2 显示“放弃”、“重试”和“忽略”按钮。
3 显示“是”、“否”和“取消”按钮。
4 显示“是”和“否”按钮。
5 显示“重试”和“取消”按钮。
图标类型
值 说明
16 显示“停止标记”图标。
32 显示“问号”图标。
48 显示“感叹号”图标。
64 显示“信息标记”图标。
上面的两个表中并未涵盖 nType 的所有值。有关完整列表,请参阅 Microsoft Win32 文档。
返回值 intButton 表示用户单击按钮的次数。如果用户在 nSecondsToWait 秒之前未单击按钮,则 intButton 设为 –1。
值 说明
1 “确定”按钮
2 “取消”按钮
3 “放弃”按钮
4 “重试”按钮
5 “忽略”按钮
6 “是”按钮
7 “否”按钮
示例
下面的代码生成简单的弹出式窗口。
[VBScript]
Dim WshShell, BtnCode Set WshShell = WScript.CreateObject("WScript.Shell") BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32) Select Case BtnCode case 6 WScript.Echo "Glad to hear you feel alright." case 7 WScript.Echo "Hope you're feeling better soon." case -1 WScript.Echo "Is there anybody out there?" End Select [JScript] var WshShell = WScript.CreateObject("WScript.Shell"); var BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32); switch(BtnCode) { case 6: WScript.Echo("Glad to hear you feel alright."); break; case 7: WScript.Echo("Hope you're feeling better soon."); break; case -1: WScript.Echo("Is there anybody out there?"); break; }
欢迎加入QQ技术群聊:70539804