机房收费系统—MsgBox

前端之家收集整理的这篇文章主要介绍了机房收费系统—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则得到“是”的命令执行下面的语句。

原文链接:https://www.f2er.com/vb/256211.html

猜你在找的VB相关文章