VB学习要点4----日期型数据作算术运算

MsgBox函数和MsgBox语句均可用来弹出对话框，不同处在于MsgBox函数可以返回一个值，而MsgBox语句不会返回值。

MsgBox语句：用于弹出一个对话框。

格式如下：

MsgBox内容[，类型][，标题][，帮助文件名，帮助主题目录号]

在IE地址栏中输入“javascript:alert(“欢迎XX”)”，然后按enter键，则弹出对话框“欢迎XX”

VB中MsgBox语句也可方便实现，在窗体的单击事件中输入如下代码

Private Sub Form_click()

MsgBox ("欢迎XX")

End Sub

“内容”参数，为必要参数，是一个字符串，其长度不得超过1024字符。如果超过，多余的部分会被省略。字符串的内容在由MsgBox语句弹出的对话框中显示。当字符串在一行内显示不完时，将自动换行。也可用“chr$(13)+chr$(10)”或“vbCrlf”进行强制换行。

例如

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"

运行后将弹出对话框如图：

“类型”参数，它是一个整数值或符号常量，用来控制在对话框内显示的按钮、图标的种类及数量。该参数的值由4类数值相加产生，这4类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置以及强制返回。不过，对于MsgBox语句，按钮的类型及强制返回作用不大，但对于MsgBox函数却很有用。在MsgBox函数中可通过按钮对话框中某个按钮而执行指定的操作。

MsgBox类型参数的取值：

例如：

Private Sub Form_click()

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"，2

End Sub

运行后将弹出对话框如图：

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"，64

如果要同时定义按钮类型和图标样式，可直接将按钮类型的取值和图标样式的取值相加即可。例如：2+64

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"，66

执行结果如图：

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"，66+512

则会将默认按钮变为第三个按钮，执行结果如图：

如果对话框中只有三个按钮，代码却为“66+768”，执行结果为默认选中第一个按钮。

“标题”参数，用来指定对话框的标题栏文字。

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"，65 + 512,"许愿池"

执行结果：

*************

MsgBox函数，除可返回值外，其他功能与MsgBox语句相同。

MsgBox函数返回值是一个整数，可以是1~7之间的任意整数，它们分别对应7个按钮被选中的状态。

在按钮【退出】的双击事件中输入如下代码：

Private Sub Command1_Click()

Dim a As Integer‘定义整形变量a

a = MsgBox("你确定要退出吗？",1 + 32) ‘用变量a来接收MsgBox函数的返回值

If a = 1 Then‘如果变量a的值为1，即MsgBox函数的返回值为1。那么

End

Else

Print ("你没有退出。")

End If

有问题或者想了解更多的朋友请加入群 VB学习交流群 531161726

既然来了，就留下你的脚印呗。。。。。。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!