注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

晓磊的网上家园

我的城市

 
 
 

日志

 
 

2013年04月06日  

2013-04-06 10:49:50|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

msgbox

编辑本段简介

MsgBox是Visual BasicVBS中的函数,功能是弹出一个对话框,等待用户单击按钮,并返回一个Integer值告诉用户单击哪一个按钮。
“MsgBox”即为“Message Box”,英语中意为“信箱”。

  MsgBox函数效果

编辑本段使用方法

语法

MsgBox(Prompt[, Buttons] [, Title] [, Helpfile, Context])

参数

MsgBox函数参数
部分
描述
Prompt
必需的。字符串表达式,作为显示在对话框中的消息。Prompt的最大长度大约为1024个字符,由所用字符的宽度决定。如果Prompt的内容超过一行,则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13) & Chr(10),即vbCrLf)将各行分隔开来。
Buttons
可选的。数值表达式是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。如果省略,则Buttons的缺省值为0。具体数值见“参数设置值”一文。
Title
可选的。在对话框标题栏中显示的字符串表达式。如果省略Title,则将应用程序名放在标题栏中。
Helpfile
可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了Helpfile,则也必须提供Context。
Context
可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了Context,则也必须提供Helpfile。

参数设置值

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
系统强制返回;全部应用程序都被挂起,直到用户对消息框作出响应才继续工作。
对话框特殊设置
vbMsgBoxHelpButton
16384
将帮助按钮添加到消息框。
VbMsgBoxSetForeground
65536
指定消息框窗口作为前景窗口。
vbMsgBoxRight
524288
文本为右对齐。
vbMsgBoxRtlReading
1048576
指定文本应为在希伯来和阿拉伯语系统中的从右到左显示。
注意:这些常数都是Visual Basic for Applications (VBA)指定的。所以,可以在程序代码中使用这些常数名称,而不必使用实际数值。

返回值

MsgBox函数返回值
常数
描述
vbOK
1
单击“确定”按钮。
vbCancel
2
单击“取消”按钮。
vbAbort
3
单击“终止”按钮。
vbRetry
4
单击“重试”按钮。
vbIgnore
5
单击“忽略”按钮。
vbYes
6
单击“是”按钮。
vbNo
7
单击“否”按钮。

说明

在提供了Helpfile与Context的时候,用户可以按F1来查看与Context相应的帮助主题。像Microsoft Excel这样一些主机应用程序也会在对话框中自动添加一个帮助按钮。
如果对话框显示“取消”按钮,则按下Esc键与单击“取消”按钮的效果相同。如果对话框中有帮助按钮,则对话框中提供与上下文相关的帮助。但是,直到其它按钮中有一个被单击之前,都不会返回任何值。

编辑本段代码示例

示例一

使用MsgBox函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox函数的返回值视用户按哪一个钮而定。并假设Demo.hlp为一帮助文件,其中有一个帮助主题代码为1000。
  Dim Msg, Style, Title, Help, Ctxt, Response, MyString
  Msg = "Do you want to continue" '定义消息文本
  Style = vbYesNo + vbCritical + vbDefaultButton2 '定义按钮
  Title = "MsgBox Demonstration" '定义标题文本
  Help = "Demo.hlp" '定义帮助文件
  Ctxt = 1000 '定义帮助主题
  Response = MsgBox(Msg, Style, Title, Help, Ctxt)
  If Response = vbYes Then '用户按下“是”
  MyString = "Yes" '进行某操作
  Else '用户按下“否”
  MyString = "No" '进行某操作
  End If

示例二

只显示某消息。
  MsgBox "Hello!"

示例三

输出两行文本。
  MsgBox "这里是第一行," & vbCrLf & "这里是第二行。"

示例四

利用vbTab常数输出对齐的文本。
  MsgBox "常数" & vbTab & "值" & vbCrLf _
  & "vbOK" & vbTab & 1 & vbCrLf _
  & "vbCancel" & vbTab & 2 & vbCrLf _
  & "……" & vbTab & "……"
  评论这张
 
阅读(600)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017