机房收费系统—MsgBox

找不同

目前，我们最常见的提示框应该就是警告，但是发现有的提示框有判断，有的提示框只有一个选项确定。当然我们也一定见到过，不是警告的提示框，没有警告的图标，左上角没有警告的字，这些不同情况的都是来源于我们弹出提示框的msgbox的属性引起的。我们来说一说msgbox。

———————————————————–

简介

Msgbox 是VB中的一个函数，可以弹出对话框，通过用户点击按钮，返回一个Integer值来表示不同按钮
Msgbox语法：
Msgbox（Prompt[,Buttons] [,Title] [,helpfile,Context]）

Buttons

关于Bottons参数的一些常量返回的integer值

这些是我们常用的一些常数类型，还有一些省缺值类型：（这里省缺值就是默认值的初始的意思）
vbDefaultButton1 0 第一个按钮是缺省值(缺省设置)
vbDefaultButton2 256 第二个按钮是缺省值
vbDefaultButton3 512 第三个按钮是缺省值
vbDefaultButton4 768 第四个按钮是缺省值

还有一些可以决定消息框的强制返回性的常数：
vbApplicationModal 0 应用程序强制返回；应用程序被挂起，直到用户对消息框作出响应才继续工作
vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作
vbMsgBoxHelpButton 16384 将Help按钮添加到消息框
VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口
vbMsgBoxRight 524288 文本为右对齐
vbMsgBoxRtlReading 1048576 指定文本应为在希伯来和阿拉伯语系统中的从右到左显示

返回值

对于这个返回值的应用，可以简单的举一个例子：
在机房收费系统的添加或删除窗体上，删除功能的实现中，有这样一段代码：

'判断该用户是否正在登录
If Trim(myFlexGrid.TextMatrix(.RowSel,0)) = UserName Then
     MsgBox "该用户正在登录，不能删除",vbOKOnly + vbExclamation,"警告"
     Exit Sub
Else
     a = MsgBox("确定要删除该用户吗？",vbYesNo + vbExclamation,"警告")
     If a = 6 Then
        .RemoveItem .RowSel
         mrc.Delete
         mrc.Update
     Else
         Exit Sub
     End If
End If

在这段代码中a =6 就是指当msgbox的返回值是6的时候，对应上表可以知道，代表了点击了vbyes则得到“是”的命令执行下面的语句。