在表6-2中，你知道Type的参数值为什么是0、1、2、4、8……这样有间隔而不是连续的自然数吗？

参考答案

因为中间空开的数值（如3）可以是多种参数值之和（如1+2），为了不混淆，所以参数值是有间隔而不是连续的自然数。

6.3.3　MsgBox 函数

使用MsgBox函数，可以创建一个对话框，告诉用户某些信息，并等待用户单击其中某个按钮后继续运行。

其效果如图6-21所示。

图6-21　MsgBox函数创建的对话框

设置显示的按钮

MsgBox函数一共有6种按钮设定，如表6-3和图6-22所示。

表6-3Msgbox的6种按钮设定

常数值说明vbOkonly0只显示【确定】按钮vbOkCancel1显示【确定】和【取消】两个按钮vbAbortRetryIgnore2显示【终止】、【重试】和【忽略】3个按钮vbYesNoCancel3显示【是】、【否】和【取消】3个按钮vbYesNo4显示【是】和【否】两个按钮vbRetryCancel5显示【重试】和【取消】两个按钮

图6-22　Msgbox函数6种按钮设定

设置显示的图标样式

MsgBox函数一共有4种图标样式，如表6-4和图6-23所示。

表6-4Msgbox的4种图标样式

常数值说明vbCritical16显示“关键信息”图标vbQuestion32显示“警告询问”图标vbExclamation48显示“警告消息”图标vbInformation64显示“通知消息”图标

图6-23　不同的图标样式

可以同时设置显示的按钮和图标，在两个常数或值之间用+号连接：

其效果如图6-24所示。

图6-24　设置按钮及显示图标

设置缺省按钮

默认情况下按回车键即可执行的按钮称为缺省按钮，如图6-25所示。

图6-25　缺省按钮

如果要修改第二个按钮为缺省按钮，可以设置Buttons参数的参数值。

其效果如图6-26所示。

图6-26　设置第2个按钮为缺省按钮

如果想设置第三个、第四个按钮为缺省按钮，相应的参数如表6-5所示。

表6-5　设置缺省按钮的参数

常数值说明vbDefaultButton10第一个按钮为缺省按钮vbDefaultButton2256第二个按钮为缺省按钮vbDefaultButton3512第三个按钮为缺省按钮vbDefaultButton4768第四个按钮为缺省按钮

指定对话框类型

Buttons参数还有第四组设定值，用来决定对框的类型，如表6-6所示。

表6-6　对话框的类型

常数值说明vbApplicationModal0应用程序强制返回；暂停执行应用程序，直到用户对消息框作出响应才继续工作vbSystemModal4096系统强制返回；暂停执行所有程序，直到用户对消息框作出响应才工作

MsgBox函数的返回值

设置Buttons参数可以让对话框显示不同的按钮，单击不同的按钮，将返回不同的值，如表6-7所示，程序可以根据返回值选择不同的操作，如：

表6-7MsgBox函数的返回值

常数值描述vbOK1单击【确定】按钮 vbCancel2单击【取消】按钮vbAbort3单击【终止】按钮vbRetry4单击【重试】按钮vbIgnore5单击【忽略】按钮vbYes6单击【是】按钮vbNo7单击【否】按钮

6.3.4　Application 对象的 FindFile 方法

使用Application对象的FindFile方法可以显示【打开】对话框，用户可以在对话框中选择并打开文件，如图6-27所示。

图6-27　用FindFile方法打开文件

6.3.5　Application 对象的 GetOpenFilename 方法

可以调用Application对象的GetOpenFilename方法显示【打开】对话框，在对话框里选择文件，获得文件名称。

虽然同是显示【打开】对话框，但GetOpenFilename方法并不会打开选中的文件，而是返回所选文件的文件名（含路径）字符串，如图6-28所示。

图6-28　不使用参数时

可以使用FileFilter参数限制可选择的文件类型，如图6-29所示。

图6-29　使用参数限制文件类型

如果希望能在两种或多种类型的文件中选择，可以修改参数值，如图6-30所示。

图6-30　使用参数限制文件类型

也可以增加文件类型下拉列表中的项目，如图6-31所示。

图6-31　增加文件类型下拉列表中的项目

除了 filefilter, GetOpemFilename方法还有其他参数，如图6-32所示。

图6-32　当设置更多参数时

6.3.6　Application 对象的 GetSaveAsFilename 方法

可以调用Application对象的GetSaveAsFilename方法打开【另存为】对话框，在对话框里选择文件，获得文件名，如图6-33所示。

图6-33　用GetSaveAsFilename方法获取文件名

6.3.7　Application对象的FileDialog属性

使用Application对象的FileDialog属性可以获得指定目录的路径及名称，如图6-34所示。

图6-34　获取目录名称

除了msoFileDialogFolderPicker,filedialogtype参数还可以选用其他的值，如表6-8所示。

表6-8　msoFileDialogType常量列表

常量说明msoFileDialogFilePicker允许选择一个文件msoFileDialogFolderPicker允许选择一个文件夹msoFileDialogOpen允许打开一个文件msoFileDialogSaveAs允许保存一个文件