机房收费系统—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则得到“是”的命令执行下面的语句。

相关文章
相关标签/搜索