6.1.2 消息框

　　MsgBox函数用来产生一个消息框。消息框用来显示简短的消息，并要求用户作出一定的响应。例如，报告操作错误或向用户提示信息。看完这些消息以后，可选取一个按钮来关闭该对话框。

　　创建该消息框的代码如下：

　　Msg=MsgBox(您没有在文本框中输入任何内容“48”提示)。

　　这里我们通过编写一个程序，来讲解如何在程序中使用MsgBox函数创建消息框。

　　实例6.2使用消息框

　　这个程序包含一个文本框和一个按钮，在文本框中输入内容后单击按钮，则所输入的内容就显示在窗体中;如果在文本框中没有输入任何内容，则单击按钮后会弹出一个提示框，告诉用户没有在文本框中输入任何内容，如图6.4所示。下面是编制这个小程序的具体过程。

　　首先，在窗体中放置一个文本框控件，设置它的Text属性的值为空，再放置一个按钮控件，设置它的Caption属性的值为“确定”.文本框与按钮的名称均使用系统默认的名称。双击按钮控件，打开代码窗口，为按钮的Click事件编写如下代码：

　　Private Sub Commandl_Click()

　　If Text1.Text=“Then

　　Msg = MsgBox(“您没有在文本框中输入任何内容”，48，“提示”)

　　Else

　　Print Textl.Text

　　End If

　　End Sub

　　在上面的程序段中，使用了一个分支结构来判断文本框中是否输入了内容。运行该程序，直接单击【确定】按钮，则弹出如图5.4所示的消息枢。再次运行程序，在文本框中输入内容后，单击【确定】按钮，则不会出现消息框，且在窗体中显示用户输入的内容。 [NextPage] 

　　MsgBox函数的一般格式如下：

　　InputBox(prompt][,buttons][,title][,helpfile,context])

　　各参数的含义如表6.3所示。通过为Buttons参数指定不同的值，消息框会呈现出不同样式。所谓消息框的样式是指其上图标与按钮的不同组合。在上例中指定Buttons参数的值为48.该值下的消息框上显示一个惊叹图标和一个确定按钮。

　　表6.4中列出了Buttons参数的设置值及其对应的消息框的样式。第一组值(0~5)描述了对话框中显示的按钮的类型与数目;第二组值(17,32,48,74)描述了图标的样式：第三组值(0,257,512)说明哪一个按钮是缺省值：而第四组值(0,4097)则决定消息框的强制返回性。将这些数字相加以生成buttons参数值的时候，只能由每组值取用一个数字。

　　例如，要使实例6.2的消息框中显示【确定】和【取消】按钮，并且【取消】按钮是缺省值，同时在消息框中显示一个信息图标。buttons参数的值应该是321(1+257+74)。

 [NextPage]

　　在实例6.2中，Msg = MsgBox(您没有在文本框中输入任何内容“,48,提示”)赋值语句将MsgBox函数的值赋给变量Msg.MsgBox函数的返回值是根据用户单击哪个按钮而定的。如表6.5所示的是按钮与对应的MsgBox函数的返回值。

　　在关闭应用程序时，系统常常会弹出一个消息框来提示用户是否真的要退出程序，如果户单击【是】按钮，则程序退出，如果用户单击的是【否】按钮，则程序不退出。这里，我们编写一个程序来模拟上述的情形。

　　实例6.3使用消息框2。

　　在窗体中放置一个按钮控件，设置其Caption属性的值为“退出”,并采用系统默认的名称。双击按钮控件打开【代码】窗口，将下列代码添加到Command1_Click事件过程中：

　　Private Sub Commandl_Click()

　　Msg=MsgBox(“是否真的退出程序”，37，“提示”)

　　If msg=7 Then End

　　End Sub

　　在该段代码中，使用了一个If语句来判断用户的选择，如果用户选择了【是】按钮，则执行End语句，否则不执行任何语句。

　　运行该程序，单击窗体中的【退出】按钮，则弹出一个消息框询问用户是否退出程序。单击【否】按钮，则消息框消失，窗体并不退出。再次运行该程序，单击【是】按钮，则消息框消失，窗体也随着被关闭。