2011年度计算机等级考试二级VB复习指导(49)

会计考友

　6.1.2 消息框　　MsgBox函数用来产生一个消息框。消息框用来显示简短的消息，并要求用户作出一定的响应。例如，报告操作错误或向用户提示信息。看完这些消息以后，可选取一个按钮来关闭该对话框。
1 w* b: v+ v+ f　　创建该消息框的代码如下：
, ~5 L5 S+ h6 g7 e　　Msg=MsgBox(您没有在文本框中输入任何内容“48”提示)。
　　这里我们通过编写一个程序，来讲解如何在程序中使用MsgBox函数创建消息框。
　　实例6.2使用消息框
* v6 ]& Y8 G/ P; r　　这个程序包含一个文本框和一个按钮，在文本框中输入内容后单击按钮，则所输入的内容就显示在窗体中;如果在文本框中没有输入任何内容，则单击按钮后会弹出一个提示框，告诉用户没有在文本框中输入任何内容，如图6.4所示。下面是编制这个小程序的具体过程。
　　首先，在窗体中放置一个文本框控件，设置它的Text属性的值为空，再放置一个按钮控件，设置它的Caption属性的值为“确定”.文本框与按钮的名称均使用系统默认的名称。双击按钮控件，打开代码窗口，为按钮的Click事件编写如下代码：
8 Y! h, t8 R( q　　Private Sub Commandl_Click()
5 ?) H: F! _0 f7 M2 z- U6 Z　　If Text1.Text=“Then
5 B- w8 \' f3 `0 M& `: ?7 N; g　　Msg = MsgBox(“您没有在文本框中输入任何内容”，48，“提示”)
　　Else
. X1 K3 s0 c. z( y　　Print Textl.Text
　　End If
　　End Sub
6 A3 N/ q, I: B6 A) ~  ^6 N　　在上面的程序段中，使用了一个分支结构来判断文本框中是否输入了内容。运行该程序，直接单击【确定】按钮，则弹出如图5.4所示的消息枢。再次运行程序，在文本框中输入内容后，单击【确定】按钮，则不会出现消息框，且在窗体中显示用户输入的内容。

会计考友

　MsgBox函数的一般格式如下：　　InputBox(prompt][,buttons][,title][,helpfile,context])
# h8 T- \5 C( L, Q5 Y- o' J　　各参数的含义如表6.3所示。
- D7 S. f5 n; {) ?) s- z8 k* Q- q
) b2 I4 Z8 A7 d. j! G; @( p　　
　　通过为Buttons参数指定不同的值，消息框会呈现出不同样式。所谓消息框的样式是指其上图标与按钮的不同组合。在上例中指定Buttons参数的值为48.该值下的消息框上显示一个惊叹图标和一个确定按钮。
  u$ N3 H# D; W8 x9 U　　表6.4中列出了Buttons参数的设置值及其对应的消息框的样式。

　　
9 Z, M; C, f7 G" n' D, s7 a' ~  H　　第一组值(0~5)描述了对话框中显示的按钮的类型与数目;第二组值(17,32,48,74)描述了图标的样式：第三组值(0,257,512)说明哪一个按钮是缺省值：而第四组值(0,4097)则决定消息框的强制返回性。将这些数字相加以生成buttons参数值的时候，只能由每组值取用一个数字。
6 s8 _: M  u* ~5 H* X6 B) g0 B　　例如，要使实例6.2的消息框中显示【确定】和【取消】按钮，并且【取消】按钮是缺省值，同时在消息框中显示一个信息图标。buttons参数的值应该是321(1+257+74)。

会计考友

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

" D$ X# @" m( o　　
　　在关闭应用程序时，系统常常会弹出一个消息框来提示用户是否真的要退出程序，如果户单击【是】按钮，则程序退出，如果用户单击的是【否】按钮，则程序不退出。这里，我们编写一个程序来模拟上述的情形。
　　实例6.3使用消息框2。
　　在窗体中放置一个按钮控件，设置其Caption属性的值为“退出”,并采用系统默认的名称。双击按钮控件打开【代码】窗口，将下列代码添加到Command1_Click事件过程中：
　　Private Sub Commandl_Click()
　　Msg=MsgBox(“是否真的退出程序”，37，“提示”)
* i2 t; q$ _! D　　If msg=7 Then End
　　End Sub
　　在该段代码中，使用了一个If语句来判断用户的选择，如果用户选择了【是】按钮，则执行End语句，否则不执行任何语句。
+ Y8 J2 v1 D/ F' I; G  m9 x: }  j% g　　运行该程序，单击窗体中的【退出】按钮，则弹出一个消息框询问用户是否退出程序。单击【否】按钮，则消息框消失，窗体并不退出。再次运行该程序，单击【是】按钮，则消息框消失，窗体也随着被关闭。