使用MsgBox 函数.docxVIP

使用MsgBox 函数你目前使用的MsgBox函数局限于给用户用一个简单的，一个按钮的对话框显示信息。你点击确定按钮或者回车来关闭该信息框。要创建一个简单的信息框，只要在MsgBox函数名称后面带上一个用引号包括起来的文本就可以了。换句话说，要显示信息“过程已完成”，你应该准备下列语句：MsgBox 过程已完成 ‘（注意，英文状态的引号）你可以将它输入立即窗口，快速地测试上面的指令，当你输入完这条指令并且回车后， VB就显示如，图4－5的信息框。图4－5 将文本作为MsgBox函数的参数，来给用户显示信息MsgBox函数允许你使用其它参数，使你可能决定可用的按钮数目，或者将默认的信息框的标题（Microsoft Excel）改为你自己的标题。也可以设置你自己的帮助主题。MsgBox的语法如下：MsgBox (prompt [, buttons] [, title], [, helpfile, context])，注意，MsgBox函数有五个参数，只有第一个，Prompt（提示），是必须的；这些列在方括号里面的参数都是可选的。当你在提示参数输入一个非常长的文本时，VB决定如何断句，使文本适合信息框大小。我们在立即窗口里来做些练习，看不同的文本格式技巧：1. 在立即窗口输入以下指令，确保在一行里输入整个文本，回车MsgBox All done. Now open Chap04.xls and place an empty disk in the diskette drive.The following procedure will copy this file to the disk.一旦回车，VB显示信息框，如图4－6图4－6 如果你设置一下文本格式，长信息看上去将会更吸引人如果你遇到编译错误，可以点击确定，然后确定文件名用双引号括起来——““Chap04.xls””。当你的信息文本特别长时，你可以使用VBA函数Chr将它分割为好几行。Chr函数需要你跟参数，这个参数是0到255之间的数字，它返回这个数字代表的字符。例如Chr(13)返回的是回车（这和按下回车键相同），以及Chr(10)返回换行字符（这在文本行之间添加空行很有用）。2. 将上面的指令修改为下述方式：MsgBox All done. Chr(13) Now open Chap04.xls and place Chr(13) an emptydisk in the diskette drive. Chr(13) The following procedure will copy this file to the disk.图4－7 通过使用Chr(13)可以将长文本分割成几行你必须将每段文本片断用引号括起来，内嵌在括号里面的文本（显示状态）需要再用一对括号来括起来，例如““Chap04.xls””。Chr(13)函数指明你希望开始新的一行的地方。字符串的连接字符（）用来返回连接字符串的字符。在一行输入及其长的文本的时候，很容易失误。回想一下，VB有一个专门的线连续字符（下划线_）帮你将长VBA语句分割为几行，不幸的是，这个线连续符不能在立即窗口使用。3. 在工程MyFunctions (Chap04.xls)里添加一个新模块并命名为Sample64. 激活模块Sample6并且输入如下所示的子程序MyMessage，确保在每个线连续符前面加个空格：Sub MyMessage()MsgBox All done. Chr(13) _91 Now open Chap04.xls and place Chr(13) _ an empty disk in the diskette drive. Chr(13) _ The following procedure will copy this file to the disk.End Sub你运行过程MyMessage时，VB显示如图4－7一样的信息。正如你看到的，在几行输入的文本更具可读性，而且代码更容易维护。你可以在文本行之间添加一下空白行，来增加信息的可读性。使用Chr(13)或two Chr(10)函数就可以做到，如下列步骤所述。5. 输入下面的MyMessage2过程：Sub MyMessage2()MsgBox All done. Chr(10) Chr(10) _ Now open Chap04.xls and place Chr(13) _ an empty disk in the diskette drive. Chr(13) Chr(13) _ The following procedure will copy this file to the disk.End Sub图4－8显示了