免VIP看全网影视 免VIP看全网影视 每天免费领取名片赞 免VIP看全网影视 QQ会员2块,代刷网优质货源!
文字广告位50/月 文字广告位50/月 文字广告位50/月 文字广告位50/月 文字广告位50/月
文字广告位50/月 文字广告位50/月 文字广告位50/月 文字广告位50/月 文字广告位50/月
文字广告位50/月 文字广告位50/月 文字广告位50/月 文字广告位50/月 文字广告位50/月
文字广告位50/月 文字广告位50/月 文字广告位50/月 文字广告位50/月 文字广告位50/月
| 如何在幻影博客投稿? | 点击加入幻影博客交流群 | 本站所有广告商均已承诺投放的内容诚信可靠,如果被骗请点击:联系809666838举报 | 广告位价格说明 | 友联申请说明 |

VBS的msgbox函数用法

Microsoft® Visual Basic® Scripting Edition

MsgBox 函数 

 

    

 

描述
在对话框中显示消息,等待用户单击按钮,并返回一个值指示用户单击的按钮。

语法

MsgBox(prompt[, buttons][, title][, helpfile, context])     

MsgBox 函数的语法有以下参数: 

参数 描述
prompt 作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符,这取决于所使用的字符的宽度。如果 prompt 中包含多个行,则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。
buttons 数值表达式,是表示指定显示按钮的数目和类型、使用的图标样式,默认按钮的标识以及消息框样式的数值的总和。有关数值,请参阅“设置”部分。如果省略,则 buttons 的默认值为 0。
title 显示在对话框标题栏中的字符串表达式。如果省略 title,则将应用程序的名称显示在标题栏中。
helpfile 字符串表达式,用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile,则必须提供 context。在 16 位系统平台上不可用。
context 数值表达式,用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context,则必须提供 helpfile。在 16 位系统平台上不可用。

设置

buttons 参数可以有以下值:     
常数 描述
vbOKOnly 0 只显示确定按钮。
vbOKCancel 1 显示确定和取消按钮。
vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。
vbYesNoCancel 3 显示是、否和取消按钮。
vbYesNo 4 显示是和否按钮。
vbRetryCancel 5 显示重试和取消按钮。
vbCritical 16 显示临界信息图标。
vbQuestion 32 显示警告查询图标。
vbExclamation 48 显示警告消息图标。
vbInformation 64 显示信息消息图标。
vbDefaultButton1 0 第一个按钮为默认按钮。
vbDefaultButton2 256 第二个按钮为默认按钮。
vbDefaultButton3 512 第三个按钮为默认按钮。
vbDefaultButton4 768 第四个按钮为默认按钮。
vbApplicationModal 0 应用程序模式:用户必须响应消息框才能继续在当前应用程序中工作。
vbSystemModal 4096 系统模式:在用户响应消息框前,所有应用程序都被挂起。

第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目;第二组值 (16, 32, 48, 64) 用于描述图标的样式;第三组值 (0, 256, 512) 用于确定默认按钮;而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时,只能从每组值中取用一个数字。 

返回值

MsgBox 函数有以下返回值:     
常数 按钮
vbOK 1 确定
vbCancel 2 取消
vbAbort 3 放弃
vbRetry 4 重试
vbIgnore 5 忽略
vbYes 6
vbNo 7

说明

如果同时提供了 helpfile 和 context,则用户可以按 F1 键以查看与上下文相对应的帮助主题。     

如果对话框显示取消按钮,则按 ESC 键与单击取消的效果相同。如果对话框包含帮助按钮,则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前,不会返回任何值。 

 

VBS的msgbox函数用法例子


msgbox用法例子1 vb msgbox函数 - VBScript入门-VB脚本编程

作用: 消息框
用法:MSGBOX ( 提示消息的字符串表达式  [ , 按钮参数或值 , 标题的字符串表达式] [ , 帮助的字符串表达式 , 帮助的编号] )

eg1

打开记事本输入以下代码,另存为 msgbox用法例子1.vbs
代码如下:


MSGBOX "欢迎来到新肯家园,大家有问题请问大象。"

eg2:  msgbox换行.vbs


  msgbox"1行:1"+chr(13)+"2行:2 msbox换行了这是第二行"+chr(10)+"3行: 3"++chr(13)+" "+chr(10)+"5行:回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。" 

eg3: msgbox标题和按钮类型.vbs

msgbox "提示信息:这里是提示 PROMPT",48,"标题: 这里是标题 TITLE"
msgbox "按钮参数  值  按钮类型和图标:"+chr(13)+"vbOKonly  0   确定"+chr(10)+"vbOKCancel  1  确定和取消"+CHR(10)+"vbAbortRetrylgnore  2  放弃、重试和忽略"+chr(10)+"vbYesNoCancel  3  是、否和取消"+chr(10)+"vbYesNo  4  是和否"
MSGBOX "48--警告查询--vbQuestion",48,"警告"
msgbox"64 警告消息 vbInformation",64

eg4:

msgbox"因为你长的不够帅,所以执行了非法操作, "+chr(13)+" "+chr(13)+"此程序即将关闭,"+chr(10)+" "+chr(13)+"如果有问题,请与供应商联系。",19,"系统信息"

eg5 :单击一个按钮并根据不同的返回值执行不同的操作.vbs

Select Case msgbox("请单击一个按钮",68,"测试")
Case 6 msgbox(chr(34)&"是"&chr(34)&"被点击了")
Case 7 WScript.Echo chr(34)&"否"&chr(34)&"被点击了"
end Select

下面是网吧开机欢迎信息示范
dim t(8)
t0="============欢迎光临新垦家园!======友情提示==================="
t1="  ★上网人员严禁登陆黄色、反动等类型的网站;"
t2="  ★不得运行色情、赌博、暴力、迷信等电脑游戏; "
t3="  ★个人贵重物品、上网帐号、密码请注意安全、妥善保管,丢失自负;"
t4="  ★维护公共卫生,爱护公共设施,损坏物品照价赔偿;"
t5="  ★登陆QQ及各种网络游戏,切勿登陆不明网站,防止帐号被盗;"
t6="  ★如有其他问题,请与大象联系。"
t7="               ==============欢迎光临新垦家园!================="
t8="========================================================="
msgbox (Chr(10))&(Chr(10))&t0&(Chr(10))&(Chr(10))&t1&(Chr(10))&(Chr(10))&t2&(Chr(10))&(Chr(10))&t3&(Chr(10))&(Chr(10))&t4&(Chr(10))&(Chr(10))&t5&(Chr(10))&(Chr(10))&t6&(Chr(10))&t7&(Chr(10))&t8,64,"友情提示:"


分享到:更多

相关推荐:

发表评论

游客 表情
送你一朵小花花~

网友评论(0)