msgbox函数精讲

 

图一

msgbox函数精讲

使用过Windows及其应用软件的人肯定熟悉上图1所示的消息框,这在VB中可用MsgBox函数来实现。

MsgBox函数的使用格式如下:

变量=MsgBox(提示[,按钮][,标题])

其中:
(1) 变量 用于指定接收函数的返回值。MsgBox函数的返回值是一个整数,因此变量一般为整型变量。(2) 提示与标题 意义同InputBox函数。(3) 按钮 整型表达式,决定消息框中按钮的数目、类型及出现在消息框上的图标类型。其设置见表1。

在表1中,“按钮”设置值被分成了三组。具体使用时,由每一组中取一个值相加而成。当然,并非每次都要取三个值,也可以取两个、一个甚至全部省略。

表1 消息框中“按钮”设置值及意义

msgbox函数精讲

如要产生图1所示的消息框,可用如下语句:

x = MsgBox(“是否想学Msgbox函数精讲?”, vbExclamation + vbYesNoCancel + 256,“Microsoft Excel”)

代码中的小括号是什么意思,为什么有时是没有小括号呢?这个问题可以参考这篇文章:Msgbox两个小知识点

在实习时,可以将除提示与标题外的其它参数,按表中的内容进行更换,体会各种不同组合对消息框内容的影响。这一部分一定要自己在实习的时候多试一试。变量x用于记录用户按了消息框中哪一个按钮,不同的按钮返回的值不同。各个按钮的返回值见表2。

表2 MsgBox函数按钮及其返回值对照表msgbox函数精讲

后续程序可根据变量不同的返回值编写程序代码,以完成相应的任务。

下面举个实例,功能如下:

程序运行中弹出对话框如果用户点击“确定”程序就继续运行,点击“取消“”程序就停止运行。

例1 MsgBox函数应用举例。当点击“运行”按钮,程序会给用户一个确认信息提示,如下图所示。

msgbox函数精讲

分析:在运行过程中有“确定”和“取消”两个按钮,点击确定就继续运行,点击取消就停止运行。代码如下:

Sub check()
x = MsgBox(“运行需知是否清楚,清楚请按“确定”开始运行”, vbOKCancel + vbInformation + vbDefaultButton1, “飞鹰图表提醒您”)
If x = vbOK Then ‘ok就运行
‘你的运行代码

Else
Exit Sub ‘不是ok就停止运行
End If
End Sub

上面的代码中通过查表1和表2我们知道,vbOKCancel=1,vbInformation=64,vbDefaultButton1=0,所以代码也可以写成这样:vbOKCancel + vbInformation + vbDefaultButton1=1+64+0=65,vbOK=1,代码如下:

Sub check()
x = MsgBox(“运行需知是否清楚,清楚请按“确定”开始运行”, 65, “飞鹰图表提醒您”)
If x = 1 Then ‘ok就运行
‘你的运行代码

Else
Exit Sub ‘不是ok就停止运行
End If
End Sub

这里使用了65代表着三个参数,有的同学就很疑惑了,65就一定是这三各参数组合了么?是的,请放心,微软已经设计好了,这里1个数字只会是1种参数的组合。

有时,程序中只需要用MsgBox函数向用户提供一个信息,
并不需要返回值,这种情况只需一个“确定”按钮。VB中对不需要返回值的MsgBox函数调用格式如下: MsgBox 提示[,按钮][,标题] ,
这种方式在简单的程序设计中可以做为输出结果的有效方法,更多的是在调试程序时用以检查程序的运行情况。

 

未经允许不得转载:飞鹰图表 » msgbox函数精讲
分享到:

评论抢沙发

评论前必须登录!