VB的输入和输出.ppt

VB的输入和输出
由NordriDesign提供

MsgBox()函数
格式：变量= MsgBox(<提示信息> [, <对话框类型>][,< 对话框标题>])
其中:对话框钮
13
MsgBox函数的返回值反映了用户选择的按钮，返回值与按钮类型的对应情况如表4-4所示。
表4-4 返回值与按钮类型的对应情况
取 值
符 号 常 量
意 义
1
VbOk
“确定”按钮
2
VbCancel
“取消”按钮
3
VbAbort
“终止”按钮
4
VbRetry
“重试”按钮
5
VbIgnore
“忽略”按钮
6
VbYes
“是” 按钮
7
VbNo
“否” 按钮
14
【例4-2】 显示如图4-3（a）所示的消息框，提示信息“数据已经修改，是否保存？”，有“是(Y)”、“否(N)”和“取消”3个命令按钮，默认按钮为“是(Y)”按钮。单击“是(Y)”按钮，显示如图4-3（b）所示的消息框，显示“正在保存…”；单击“否(N)”按钮，显示如图4-3（c）所示的消息框，显示“不保存退出”；单击“取消”，则直接退出。
15
图4-3 执行结果
16
Private Sub Form_Click()
choice = MsgBox("数据已经修改，是否保存？", _
vbYesNoCancel + vbQuestion + vbDefaultButton1, "提示")
If choice = vbYes Then
MsgBox "正在保存…"
Else
If choice = vbNo Then
MsgBox "不保存退出"
End If
End If
End Sub
17
MsgBox语句
如果MsgBox函数不需要返回值，可以省略圆括号，则变形为MsgBox语句。在例4-2中，后两个消息框的输出采用的是MsgBox语句。MsgBox语句与MsgBox函数的作用相似，各参数的含义与MsgBox函数相同。
18
【格式】 MsgBox <提示信息> [ , <对话框类型>][ ,< 对话框标题> ]
【说明】 执行MsgBox语句后，打开一个对话框，用户必须按下Enter键或单击对话框中的某个按钮，才能继续进行后面的操作。与MsgBox函数不同的是，MsgBox语句没有返回值，通常适合用来显示较简单的信息。
19
【例4-3】 编写程序，使用MsgBox语句显示对话框，运行结果如图4-4所示。
图4-4 运行结果
20
Form Click事件代码为：
Private Sub Form_Click()
msg = "欢迎学****Visual Basic！"
Title = "MsgBox语句示例"
MsgBox msg, 0, Title
End Sub
21
数据输出
Print方法
【格式】[对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，]
【作用】 在对象上输出信息。
分号紧凑输出
逗号以14个字符为一个输出区域（打印区）输出
22
与Print有关的函数
1．Tab( n ) 绝对定位
Tab函数从第一列开始计数，用于把光标向后移动n个字符的位置，与输出的内容要用分号隔开。如果n大于行宽，显示位置为n Mod行宽；如果n小于0，从第一列输出；如果当前光标的位置超过了n，光标则下移一行。
23
【例4-4】 用Print方法输出窗体中的信息如图4-5所示。“商品名称”一列从窗体的第二行第10列开始输出，每列的起始字符之间相差10列，每行之间间隔一空行，利用函数Tab进行控制。
图4-5 输出窗体中的信息
24
Private Sub Form_Click()
Print
Print Tab(10); "商品名称"; Tab(20); "单价"; Tab(30); "数量"
Print
Print Tab(10); "电视机"; Tab(20); "2568"; Tab(30); "150"
Print
Print Tab(10); "电冰箱"; Tab(20); "1600"; Tab(30); "85"
End Sub
25
2. Spc(n) 相对定