《使用msgbox函数》word版

《《使用msgbox函数》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、使用MsgBox函数你目前使用的MsgBox函数局限于给用户用一个简单的，一个按钮的对话框显示信息。你点击确定按钮或者回车来关闭该信息框。要创建一个简单的信息框，只要在MsgBox函数名称后面带上一个用引号包括起来的文本就可以了。换句话说，要显示信息“过程已完成”，你应该准备下列语句：MsgBox"过程已完成"‘（注意，英文状态的引号）你可以将它输入立即窗口，快速地测试上面的指令，当你输入完这条指令并且回车后，VB就显示如，图4－5的信息框。图4－5将文本作为MsgBox函数的参数，来给用户显示信息MsgBox函数允许你使用其它参数，使你可能决定可用的按钮数目，或者将默认的信息框

2、的标题（MicrosoftExcel）改为你自己的标题。也可以设置你自己的帮助主题。MsgBox的语法如下：MsgBox(prompt[,buttons][,title],[,helpfile,context])，注意，MsgBox函数有五个参数，只有第一个，Prompt（提示），是必须的；这些列在方括号里面的参数都是可选的。当你在提示参数输入一个非常长的文本时，VB决定如何断句，使文本适合信息框大小。我们在立即窗口里来做些练习，看不同的文本格式技巧：1.在立即窗口输入以下指令，确保在一行里输入整个文本，回车MsgBox"Alldone.Nowopen""Chap04.xls""

3、andplaceanemptydiskinthediskettedrive.Thefollowingprocedurewillcopythisfiletothedisk."一旦回车，VB显示信息框，如图4－6图4－6如果你设置一下文本格式，长信息看上去将会更吸引人如果你遇到编译错误，可以点击确定，然后确定文件名用双引号括起来——““Chap04.xls””。当你的信息文本特别长时，你可以使用VBA函数Chr将它分割为好几行。Chr函数需要你跟参数，这个参数是0到255之间的数字，它返回这个数字代表的字符。例如Chr(13)返回的是回车（这和按下回车键相同），以及Chr(10)返回

4、换行字符（这在文本行之间添加空行很有用）。2.将上面的指令修改为下述方式：MsgBox"Alldone."&Chr(13)&"Nowopen""Chap04.xls""andplace"&Chr(13)&"anemptydiskinthediskettedrive."&Chr(13)&"Thefollowingprocedurewillcopythisfiletothedisk."图4－7通过使用Chr(13)可以将长文本分割成几行你必须将每段文本片断用引号括起来，内嵌在括号里面的文本（显示状态）需要再用一对括号来括起来，例如““Chap04.xls””。Chr(13)函数指明你

5、希望开始新的一行的地方。字符串的连接字符（&）用来返回连接字符串的字符。在一行输入及其长的文本的时候，很容易失误。回想一下，VB有一个专门的线连续字符（下划线_）帮你将长VBA语句分割为几行，不幸的是，这个线连续符不能在立即窗口使用。3.在工程MyFunctions(Chap04.xls)里添加一个新模块并命名为Sample64.激活模块Sample6并且输入如下所示的子程序MyMessage，确保在每个线连续符前面加个空格：SubMyMessage()MsgBox"Alldone."&Chr(13)_91&"Nowopen""Chap04.xls""andplace"&Chr(

6、13)_&"anemptydiskinthediskettedrive."&Chr(13)_&"Thefollowingprocedurewillcopythisfiletothedisk."EndSub你运行过程MyMessage时，VB显示如图4－7一样的信息。正如你看到的，在几行输入的文本更具可读性，而且代码更容易维护。你可以在文本行之间添加一下空白行，来增加信息的可读性。使用Chr(13)或twoChr(10)函数就可以做到，如下列步骤所述。5.输入下面的MyMessage2过程：SubMyMessage2()MsgBox"Alldone."&Chr(10)&Chr(10

7、)_&"Nowopen""Chap04.xls""andplace"&Chr(13)_&"anemptydiskinthediskettedrive."&Chr(13)&Chr(13)_&"Thefollowingprocedurewillcopythisfiletothedisk."EndSub图4－8显示了MyMessage2过程产生的信息框。图4－8你可以通过在文本行之间添加空行增加信息的可读性既然你已经掌握了文本的格式技术，那么我们就来仔细地看看MsgBox函数的下一个参