12 Msgbox输出语句

主题：VB系列培训—第十二课

内容：Msgbox 输出语句

功能：弹出消息对话框，供用户查看。

Msgbox 这个命令我们已经接触一段时间了，但并没有对它的具体作用进行过详细的讲解。语法：Msgbox（prompt[,buttons][,title]）

这个命令或者说这个函数，也是有返回值的，我们先举个例子。

打开VB，看如下代码：

Private Sub Command1_Click()

Dim A As String ------1

A = MsgBox ("你好") --------2

MsgBox A ------3

End Sub

我们看下这个程序执行的过程：第一句，声明一个变量，变量的数据类型为字符串型。当然，你用整数型也行。第二句，是一个赋值语句，赋值语句右边是一个函数Msgbox的调用，或说是Msgbox命令的使用，含义是：弹出一个消息框，消息框的信息为“你好”，当我们关闭了消息框后，会把我们点击了这个消息框的哪一个按钮作为返回值存储到变量A中，最后一句则是打印A中的值。

运行这段程序后，会弹出消息框（图-1），并且有返回值（图-2），如下图：

（图-1）（图-2）

关于这个命令的返回值，请看下面截图：

如图：1的话是OK（确定按钮被单击了）。但是有的朋友可能会问，并没有出现像2、3那样的cancel或是abort按钮啊，怎么办呢？

其实，我们可以通过这个Msgbox命令的参数解决这个问题。

语法：Msgbox（prompt[,buttons][,title]）中的第二个，button，关于它的信息如下：Buttons：一个整型参数，用于指定对话框中按钮的数目形式，图标样式、默认按钮等，默认值为0. 那么0代表什么概念呢？我们看看下面这个列表：

可以分为4个部分。第一组：0-5；第二组：16-64；第三组：0-768；第四组：4096；第一组：用来控制将来弹出的对话框中有哪些按钮。比如默认为0，只显示确认按钮。如果是1的话，则显示：

这就多一个“取消”按钮。————————————————————

如果是2的话，就会显示如下:

那么图中有“重试”，根据列表中查询，当我们点击重试的时候，就会返回4.如图：

————————————————————

如果是3的话，那么就会显示：

图中有“取消”按钮，那么当我们单击时，就会返回2. 如右图：

————————————————————

如果是4的话，则显示：

图中的否显示的是数值7，也就是说当我们单击“否”按钮，就会返回7.

这里我们要注意的是：每个数值都有自己对应的常量，而关于常量的定义我们先前也都学过了，但是需要记住，VB也为我们提前声明了一些常量，如vbokonly存储数值0.越往下，一一对应。

这些“常量”可以直接在我们的代码中使用，比如，要弹出一个对话框，对话框中有“终止”、“重试”、“忽略”这三个按钮，两种方法：（1）可以使用数值2；（2）可以使用常量的名称。举个例子：

图中的Vbabortretryignore，也可以用对应的2表示————————

又如：我们要想弹出一个对话框，显示Yes或是NO。第一种放数值4，也可以用名称：vbyesno

当然，这些常量名称也可以直接被用在算术式中，这样写的含义也就是让我们知道，VB已经给我们准备了这个常量。

注意，我们在控制显示哪几个按钮的同时，也可以用来设定对话框中出现什么样的图标，单列成了4组，如下图：

大家可以自己看看它的作用，但要注意，它的用法比较特殊。

一个对话框至少有按钮组成，但图标是可显性，如果我们希望一个对话框既显示按钮，又显示图标，如“是”、“否”按钮和“警告”图标，怎么做到呢？

我们可以把这两个对应的数值相加，也就是4+48，当然你直接写52，也可以。这样的话，

计算机将先进行这个算术式的运算，得出的结果作为参数，通过这个结果，计算机知道：你要求显示“是”、“否”按钮和“警告”图标，如图：

看到了吧？！黄色的是警告图标，还有“是”、“否”按钮。

如果你想显示“是”、“否”按钮和“消息”图标，那么就把上述代码中的48改为：64即可。

有的朋友可能会好奇，如果我把代码中的3去掉行不行？当然可以，默认的话，只会显示确定按钮，然后保留上述的“消息”图标，如下图：

当然，为了易读代码，把其改成0 + 64，也是可以的。其他的各位可以自己动手试试。

此外，前后都用所对应的常量名也都可以，如：

使用常量名和数值都行。

弹出对话框的默认按钮是“确定”，我们也可以增加默认按钮，如“取消”，自己可以试试。代码：vbOKCancel + vbQuestion + vbDefaultbutton2，效果图如下：

____________________________

最后一组：

提醒：

此图中的每一组，只允许使用其中一个值，多使用是不允许的，需要大家格外的注意。

先前的一段代码中，

Private Sub Command1_Click()

Dim A As String ------1

A = MsgBox ("你好") --------2

MsgBox A ------3

End Sub

如果这句：A = MsgBox ( "你好"，3 )改为：A = MsgBox ( 34，3 )，虽然计算机会自动帮你转换为字符串，不会提示出错，但是这么写不正规。应该：A = MsgBox ( “34”，3 )

【总结】：如果需要加返回值的话就加上（）；如果不需要返回值就不需要加。