社区
ASP
帖子详情
=============关于msgbox()==============
jackyliu
2002-03-25 11:01:20
我想写一个MSGBOX()的提示框,等待用户选择Y 和N ,请问我该怎么写?
...全文
56
8
打赏
收藏
=============关于msgbox()==============
我想写一个MSGBOX()的提示框,等待用户选择Y 和N ,请问我该怎么写?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
gq
2002-03-27
打赏
举报
回复
呵呵。。正好。在找msgbox的用法。
jinhaiou
2002-03-25
打赏
举报
回复
<SCRIPT LANGUAGE=VBScript >
<!--
dim x
x=msgbox("提示语",vbYESNO + vbExclamation,"标题")
if x.value='y" then
******
end if
-->
</SCRIPT>
playking
2002-03-25
打赏
举报
回复
MsgBox 函数
在对话框中显示消息,等待用户单击按钮,并返回一个值指示用户单击的按钮。
MsgBox(prompt[, buttons][, title][, helpfile, context])
参数
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 键与单击取消的效果相同。如果对话框包含帮助按钮,则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前,不会返回任何值。
当MicroSoft Internet Explorer使用MsgBox函数时,任何对话框的标题总是包含"VBScript",以便于将其与标准对话框区别开来。
下面的例子演示了 MsgBox 函数的用法:
Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")
' MyVar contains either 1 or 2, depending on which button is clicked.
Studio
2002-03-25
打赏
举报
回复
楼顶的兄弟 不能有括号的啦!
Studio
2002-03-25
打赏
举报
回复
msgbox "sadasdas",4,"title"
iperfect
2002-03-25
打赏
举报
回复
<SCRIPT LANGUAGE=VBScript >
<!--
msgbox("提示语",vbYESNO + vbExclamation,"标题")
-->
</SCRIPT>
julyclyde
2002-03-25
打赏
举报
回复
废话!MSGBOX只能在客户端用
jackyliu
2002-03-25
打赏
举报
回复
楼上兄弟ASP报错说MSGBOX没有权限
msg
box
函数
Option ExplicitPrivate Sub Form_Click() Dim x As Integer x =
Msg
Box
("你单击的是窗体,是吗?", vbYesNoCancel + vbInformation, "询问框") If x = vbYes Then
Msg
Box
"你选择了“是”按钮", vbInformati
MATLAB中的
msg
box
函数
h=
msg
box
(Message) h=
msg
box
(Message,Title) h=
msg
box
(Message,Title,Icon) h=
msg
box
(Message,Title,'custom',IconData,IconCMap) h=
msg
box
(...,CreateMode) 二、参数解析: h =
msg
box
(Message)...
Msg
Box
vbYesNo
Rtn =
Msg
Box
("您确定要删除本笔资料吗 ?", vbYesNo, "厂商管理作业") '
Msg
Box
IIf(Rtn = 6, "您选择了 Yes", "您选择了 No") '简单的写法 If Rtn = 6 Then
Msg
Box
"您选择了 Yes" Else
Msg
Box
"您选择了 No
if
msg
box
= yes then
Private Sub btnDeactivateJob_Click() On Error GoTo Err_btnDeactivateJob_Click If
Msg
Box
("Do you want to deactivate this job from th
陈表达学VBA-
msg
box
辨别用户选择和代码调用
msg
box
没有设置默认值这个功能,
msg
box
也没有参数可以失败是用户点击还是代码调用,大家想想应该怎么实现?===================本期代码学习==================直接复制到你的VAB里,试试是否能实现?实现思路:增加...
ASP
28,406
社区成员
356,946
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章