msgbox使用范例(vbmsgbox用法示例)

大家好，本篇文章为大家解答以上问题，相信很多人对msgbox使用范例都不是特别的了解，因此呢，今天就来为大家分享下关于msgbox使用范例以及vbmsgbox用法示例的问题知识，还望可以帮助大家，解决大家的一些困惑，下面一起来看看吧！

本文目录一览

• 1、msgbox的用法
• 2、vb中用msgbox输出的时候，msgbox的返回值怎么用

msgbox的用法

VBS的MsgBox是比较常用的信息交互控件，那么我们该怎么使用它呢？下面我给大家分享一下。

工具/材料

Sublime text

01

首先我们打开Sublime软件，新建一个vbs程序文件，然后在程序文件中输入最简单的MsgBox用法，如下图所示

02

然后我们运行程序文件，你会看到弹出了一个框，框中展示了我们写的一些信息，这就是Msgbox最简单常用的用法，如下图所示

03

另外还有一个比较常用的方法就是带按钮的Msgbox，如下图所示，我们给Msgbox添加第二个参数即可

04

双击编写号的vbs程序文件，你会看到这次的弹出框带了按钮了，这种也是比较常用的

vb中用msgbox输出的时候，msgbox的返回值怎么用

MsgBox 函数

在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。

语法

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

MsgBox 函数示例

本示例使用 MsgBox

函数，在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”，MsgBox 函数的返回值视用户按哪一个钮而定。本示例假设
DEMO.HLP 为一帮助文件，其中有一个内容代码为 1000。

PrivateSubCommand1_Click()
DimMsg,Style,Title,Help,Ctxt,Response,MyString
Msg="Doyouwanttocontinue?"'定义信息。
Style=vbYesNo+vbCritical+vbDefaultButton2'定义按钮。
Title="MsgBoxDemonstration"'定义标题。
Help="DEMO.HLP"'定义帮助文件。
Ctxt=1000'定义标题
'上下文。
'显示信息。
Response=MsgBox(Msg,Style,Title,Help,Ctxt)
IfResponse=vbYesThen'用户按下“是”。
MyString="Yes"'完成某操作。
Else'用户按下“否”。
MyString="No"'完成某操作。
EndIf
EndSub

下列代码用返回值1和7替代上面代码中的vbYes，vbNo，效果与前段代码是完全一致的。：

PrivateSubCommand1_Click()
DimMsg,Style,Title,Help,Ctxt,Response,MyString
Msg="Doyouwanttocontinue?"'定义信息。
Style=vbYesNo+vbCritical+vbDefaultButton2'定义按钮。
Title="MsgBoxDemonstration"'定义标题。
Help="DEMO.HLP"'定义帮助文件。
Ctxt=1000'定义标题
'上下文。
'显示信息。
Response=MsgBox(Msg,Style,Title,Help,Ctxt)
IfResponse=1Then'用户按下“是”。
MyString="Yes"
'完成某操作。
ElseIfResponse=7Then'用户按下“否”。
MyString="No"
'完成某操作
EndIf
EndSub