VB：MsgBox示例

VB：MsgBox示例
━━━━━━━━━━━━━━━━━━━━━━━━━━

(1)  使用 MsgBox 函数，在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”，MsgBox函数的返回值视用户按哪一个钮而定。并假定DEMO.HLP为一匡助文件，其中有一个匡助主题代码为1000。

Dim Msg,Style,Title,Help,Ctxt,Response,MyString
Msg="Do you want to continue ?"  
Style = vbYesNo + vbCritical + vbDefaultButton2       ' 定义按钮
Title = "MsgBox Demonstration"       ' 定义题目文本
Help = "DEMO.HLP"       ' 定义匡助文件
Ctxt = 1000       ' 定义匡助主题
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then       ' 用户按下“是”
       MyString = "Yes"       ' 完成某操作
Else  
       MyString = "No"       ' 完成某操作
End If

(2)  只显示某消息
MsgBox “Hello!”

(3)  将消息框返回的结果赋值给变量
Ans=MsgBox(“Continue?”,vbYesNo)
If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub

(4)  使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮
Config=vbYesNo+vbQuestion+vbDefaultButton2

(5)  若要在消息中强制换行，可在文本中使用vbCrLf(或vbNewLine)常量，用&加空格与字符隔开。如
MsgBox “This is the first line.” & vbNewLine & “Second line.”

(6)  可以在消息框中使用vbTab常量插入一个制表符。下面的过程使用一个消息框来显示5×5单元格区域中的所有值，用vbTab常量分隔列并使用vbCrLf常量插入一个新行。注意在MsgBox函数最多只显示1024个字符，是以限制了可显示的单元格数。

 

Option Explicit
Sub ShowRangeValue()
Dim Msg As String
Dim r As Integer, c As Integer
Msg = ""
For r = 1 To 5
     For c = 1 To 5
       Msg = Msg & Cells(r, c) & vbTab
     Next c
     Msg = Msg & vbCrLf
Next r
MsgBox Msg
End Sub

(7) 在消息框语句中使用工作表函数以及设置显示的数置花式，如下面语句所示：
MsgBox " selection has " & m & " cells ." & Chr(13) & " the sum is :" & Application.WorksheetFunction.Sum(Selection) & Chr(13) & "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count & sum & average" & Chr(13)题目的提出及解决。在VBE编辑器中输入下面的代码后，
      MsgBox "I am "a" boy."
光标移出该句代码后，将会提示“编译错误：缺少：语句结束”。 即，如何在信息中显示双引号(“ “)？
解决的方法是，在要显示双引号的字符或字符串外面使用双层双引号，如上面的代码，正确的输入如下：
      MsgBox "I am ""a"" boy."

(8) 信息框中的各种图标
在MsgBox函数中为参数buttons指定常量值，可以显示相应的图标。其中，常量 vbExclamation显示“警告消息”图标，常量vbQuestion显示“警告询问”图标，常量vbCritical显示“关健信息”图标并伴有提示声，常量vbInformation显示“信息”图标。注意，这四个常量若相互组合，将不会显示任何图标。

(9) 控制换行
在MsgBox函数中，可以使用常量vbCrLf或者常量vbNewLine在显示的消息框中强制换行。下面的代码运行后将显示如图3所示的有4行文本的消息框。

Sub testLine()
     MsgBox "第一行" & vbCrLf _
         & "第二行" & vbCrLf _
         & "第三行" & vbNewLine _
&n爱情公寓4bsp;        & "第四行"
End Sub

同时，还可以使用常量vbTab来插入一个制表符分隔列，达到使消息框中各列对齐的效果。下例用一个消息框显示当前工作表中A1至F11单元格区域中的内容，结果如图4所示。

Sub 测试分列()
     Dim msg As String
     Dim r As Long, c As Long
     msg = ""
     For r = 1 To 11
       For c = 1 To 6
         msg = msg & Cells(r, c) & vbTab
       Next c
       msg = msg & vbCrLf
     Next r
     MsgBox msg, vbInformation
End Sub
但是，MsgBox函数最多只能接受1023个字符，即限制了可以在消息框中显示内容的长度。