|
第七章：输出
上一章里，我们讨论的VB的输人机制，这次我们来集中讨论VB中信息的输出。
输入和输出是不可分割的，人们输入的最终目的是希望计算机作出反应，任何一个程序都不可能避开这个问题，所以就算要完成一个最基本的程序，也要有输出的部分，复杂的程序更是如此。
在输入的一章里，我们学习的第一个输入方法是InputBox，相应的在输出中我们第一个要接触的是MsgBox（Message Box），和InputBox相似，MsgBox也是简化了的窗体，可以以函数的形式返回操作。它的基本语法是：
MsgBox "显示内容",按钮值,"标题"
通过这个函数可以产生一个标准的Windows消息框，象我们平时经常接触的“Yes/No”、“OK/Cancel”，“Retry/Abort/Ignore”等等，这些都是在按钮值中设定的，按钮值如下：
|
数值 |
含义 |
|
0 |
OK |
|
1 |
OK和Cancel |
|
2 |
Abort、Retry和Ignore |
|
3 |
Yes、No和Cancel |
|
4 |
Yes和No |
|
5 |
Retry和Cancel |
并且不同的消息可以搭配不同的图标，比如帮助文件用问号，一般提示用一个圈里一个I等等，它们也是按钮值的一部分：
|
数值 |
含义 |
|
16 |
表示危险 |
|
32 |
表示问号 |
|
48 |
表示警告 |
|
64 |
表示信息 |
但是如何既显示按钮也显示相应的图标呢，请看一会儿下面的例子。前面说过，MsgBox是函数，那么它就会有返回值，当你按下某个按钮就会返回一个数值，以便对用户不同动作的捕捉，返回值如下：
|
数值 |
含义 |
|
1 |
OK |
|
2 |
Cancel |
|
3 |
Abort |
|
4 |
Retry |
|
5 |
Ignore |
|
6 |
Yes |
|
7 |
No |
说了这么多，可能你已经不知所措了，不过看过下面的例子后，相信一切都会迎刃而解。
首先建立一个新项目文件，并添加以下对象（见图7－1）――一个Button（Command1），两个ComboBox（Combo1和Combo2），不要对其属性做更多的修改，只需把Command1的Caption改为“Click Me”。这个程序的目的是自由组合上面的按钮值，以显示各种消息框，并且返回按下的按钮，Combo1和Combo2分别用来选择按钮值，首先在Form_Load中初始化程序：
Private Sub Form_Load()
Combo1.AddItem "OK"
Combo1.AddItem "OK and Cancel"
Combo1.AddItem "Abort,Retry and Ignore"
Combo1.AddItem "Yes,No,Cancel"
Combo1.AddItem "Yes,No"
Combo1.AddItem "Retry,Cancel"
Combo1.ListIndex = 0
Combo2.AddItem "危险"
Combo2.AddItem "询问"
Combo2.AddItem "警告"
Combo2.AddItem "信息"
Combo2.ListIndex = 0
End Sub
ComboBox的用法已经在上一章中讨论过，在此不再赘述，ListIndex属性用来把第一个元素放在选择位置。
但是如何显示需要的按钮和图标呢？很简单，只需把它们相加，比如说要显示OK、Cancel按钮和警告的图标，只需把1和48相加，得到49即可，于是我们在Command1中填写这样一行：
Private Sub Command1_Click()
message = MsgBox("显示" & Combo1.List(Combo1.ListIndex) & "和" & Combo2.List(Combo2.ListIndex), Combo1.ListIndex + (Combo2.ListIndex + 1) * 16, "消息演示")
End Sub
因为图标值是从16开始的所以要把Combo2的ListIndex加1再乘以16。
小知识：按钮值并非简单的相加
按钮值并非简单的相加，我们知道，在计算机里最终的语言是机器语言，而机器语言是以0和1的二进制表示的，在这里用到的实际上不是相加，而是逻辑操作符“OR”，你知道OR和AND是怎样工作的吗？正如你所知，True And False得到False，而True Or False得到True，这是怎么形成的呢？我们有时也用0代表False，用1或－1代表True（其实，只要非零都可以代表True），而0和1在二进制中还是本身，于是True、False的运算就变成的0 和1的运算，我们可以把And叫做补0运算，把Or叫做补1运算，当用And处理两个二进制数的时候，它们逐位比较，如果相同的位上都是0或都是1则没有变化，而如果一位上是0，另一位上是1，最后结果上相应的位上就变成0。比如1010（十进制中10）And 1101（十进制中13），最后就得1000（十进制中8），相同的Or亦是如此，只不过在不同的地方补1。在位数不同时，前面补0，你可以在VB中试试看。但为什么要讲这些呢，原因是我不想让大家真的以为这个例子中就是相加，只不过碰巧它们的0和1处在不同的位置上，并且这个小知识在今后的位图操作和API操作中很有用处。
下面在来判断用户按下的按钮。
Private Sub Command1_Click()
message = MsgBox("显示" & Combo1.List(Combo1.ListIndex) & "和" & Combo2.List(Combo2.ListIndex), Combo1.ListIndex + (Combo2.ListIndex + 1) * 16, "消息演示")
Select Case message
Case 1
MsgBox "你按下了OK钮"
Case 2
MsgBox "你按下了Cancel按钮"
Case 3
MsgBox "你按下了Abort按钮"
Case 4
MsgBox "你按下了Retry按钮"
Case 5
MsgBox "你按下了Ignore按钮"
Case 6
MsgBox "你按下了Yes按钮"
Case 7
MsgBox "你按下了No按钮"
End Select
End Sub
运行程序，结果如图7－2，7－3。
很久没有继续VB教程了，也有很多初学VB的朋友来信留言要求继续，说起来惭愧，不是有时候犯懒，就是杂物缠身，今天好不容易做在电脑前想敲几个字，哪知打开VB5出现非法操作，卸载后重新安装非法提示依然出现，真是岂有此理！Windows系统用了很久了，看来冲突实在是太多，但这么久没有更新，实在说不过去，这次就算是一次纸上谈兵，带来不便之处还请大家包涵。
上次为大家讲解了MsgBox的用法，这次我来讲讲其他的输出方法。
在程序中我们如果想输出执行的结果最经常要用到什么对象，你可能会告诉我是文本框或标签控件，但事实往往不是这样，因为它们的显示方法单调，不能把各种字体的文字、图形结合在一起，因此最符合要求的控件应该是图片框（PictureBox），或直接就在Form本身上显示，其中要用到一个很重要的方法：“Print”，它的用法是：
对象.Print Spc(n)/Tab(n);字符串表达式;……
其中Spc()，表示打印字符之间的空格，n表示空格数目，Tab()表示绝对列数，n表示列数，也就是说你可以指定在那一列上打印，它们用“;”和字符串表达式分开，但也可以是这样：
对象.Print 字符串表达式1,字符串表达式2,……
用“,”隔开字符串，这样系统就会按默认的（14列）为一个输出位。每使用一次Print方法，程序就会在指定的对象上打印一行，在用Print则在下一行打印，当对象是窗体时，对象可以省略，例如打印一个表格：
（注意：要把使用Print的对象的Autoredraw属性设为True，我们知道，当有多个窗口层叠时，哪个窗口得到焦点就会显示到最上面，当它显示时就是一种重绘的过程，Windows系统需要重新计算原来它的图形界面，这是一个非常复杂的过程，不过在VB中只需用一个Autoredraw属性就可以做到了，不信的话可以保持该属性为False，看看会怎样？）
Private Sub Form_Load()
Print '空一行
FontUnderline = True
FontSize = 18
FontBold = True
Print , "中国VB联盟成员列表"
Print
FontUnderline = False
FontSize = 10
Print Tab(3); "姓名"; Tab(15); "年龄"; Tab(25); "性别"; Tab(35); "个人简介"
FontBold = False
Print Tab(3); "Mars"; Tab(15); "21"; Tab(25); "男"; Tab(35); "……"
……………
……………
End Sub
更多的内容我将在下一章的用VB作图中向你说明。
当然，在平时用文本框或标签控件显示输出结果也是一种简单的方法，这些和我们以前讲到的大同小异，也就不再进行过多的介绍了，下面我来讲讲对字符串的格式化方法。
这里要用到Format()函数，它可以对字符串按照指定的形式输出，也可以用做数字、日期的格式化，方法是：
Format (表达式,[格式化表达式])
其中格式化的表达式可以为：“0”，“#”，“.”，“,”，“:”，“$”，以及“()+-E+E-”等等表示，下面我将举一个小例子说明Format的所有功能（奇迹！奇迹！这时在打开VB5居然非法操作消失了！）：
请先建立一个项目文件，在Form1上添加两个框架控件（Frame）和若干按钮、文本框、无线钮和标签控件，具体如图所示：（图7-2-1）：
其中有两排八个按钮为Command1，Index从0到7，又有七个无线钮Option1，Index从0到7，下面为了能够使用，请为它们修改Caption属性，如图7-2-2。
然后加入如下代码：
Dim FormatExp As String
Dim ThisTime As Date
Private Sub Command1_Click(Index As Integer)
FormatExp = FormatExp + Command1(Index).Caption
Text1.Text = FormatExp
End Sub
Private Sub Command2_Click()
a$ = Format("1234567890.0987654321", FormatExp)
Label1.Caption = "格式化后的数值：" + a$
Text1.Text = ""
FormatExp = ""
End Sub
Private Sub Form_Load()
ThisTime = Now
Label2.Caption = ThisTime
End Sub
Private Sub Option1_Click(Index As Integer)
Text2.Text = Format(ThisTime, Option1(Index).Caption)
End Sub
其中0和#代表数值显示的位数，不同的是如果定义格式化表达式的位数如果多于原表达式，则使用0则补0，使用#则省略0；“.”用来指定小数点的位置；其余字符用来分割数值，如“,”。
结果如下图：7-2-3。
关于时间的格式化表达式的定义方法如下表：
|
格式符 |
含义 |
|
日 |
d |
显示不带0的日期（1－31） |
|
dd |
显示带0的日期（01－31） |
|
ddd |
以Sun－Sat格式显示日期 |
|
dddd |
以Sunday－Saturday格式显示日期 |
|
ddddd |
以年月日标准格式显示日期 |
|
月/分钟 |
m |
显示不带0的月，如果后面紧跟h或hh则显示不带0的分 |
|
mm |
显示带0的月，如果后面紧跟h或hh则显示带0的分 |
|
mmm |
以Jan－Dec显示月份 |
|
mmmm |
以January-December显示月份 |
|
年 |
yy |
以两位数显示年（00－99） |
|
yyy |
以四位数显示年（1900－2040） |
| 
│首页┊查询┊网址┊常用┊免费┊图书┊知识┊卡片┊论文┊教程┊下载┊图片│