MsgBox函数 access msgbox用法

你也许一直认为显示消息框需要长时间的程序设计,这种观点是完全错误的。要创建消息框,可用如下VBA代码:

Msgbox "Do you wish to save the changes to '" &_

ThisWorkbook.Name &" '", vbYesNoCancel + vbExclamation

代码中的ThisWorkbook.Name用来获取当前工作簿的名字。

MsgBox函数可用于在对话框中显示信息。一旦显示出来,消息框将一直保持,直至用户单击某个按钮为止。根据用户单击的按钮,会返回不同的整数值。 MsgBox函数的语法如下:

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

这个函数必须具有的参数只有prompt。prompt的值是将在对话框中作为信息显示的字符串。注意在给出的语法中括号的运用。MsgBox是一个函数,这意味着它将返回一个值。在前面给出的例子中并没有括号。如果去掉函数参数的括号,就是在告诉 V B A不需要函数的返回值。如果希望获得返回值,可使用和下面相似的代码:

Dim iResponse As Integer

IResponse=MsgBox("Do you wish to save the changes to '" & _

This Workbook.Name &" '", vbYesNoCancel + vbExclamation)   现在MsgBox语句被分成了两行。VBA中的续行号是空格加下划线。

如果没有为buttons参数提供数值,默认设置下,VBA假设你只希望在创建的对话框中添加“确定”按钮。可选参数buttons是一个非常有用的参数,它允许你控制:

* 消息框中包括的按钮的数目。

* 消息框中包括的按钮的类型。

* 消息框中显示的图标。

* 消息框的默认按钮。

* 消息框的特征。

表5-1列出了buttons参数的可能的各种设置。在这张表格中,你会发现参数分成了几组。

第一组设置对话框显示的按钮数目和类型,第二组选择图标的风格,第三组设置默认按钮,第四组设置对话框的特征。当添加数值创建最终的buttons参数时,从各组数值中只能选择一个。 表1  可用的MsgBox函数的buttons参数值

参数组

常量

数值

描述

第一组

vbOKOnly

0

只显示“确定”按钮(默认设置)

vbOKCancel

1

显示“确定”和“取消”按钮

vbAbortRetryIgnore

2

显示“放弃”、“重试”和“忽略”按钮

vbYesNoCancel

3

显示“是”、“否”和“取消”按钮

vbYesNo

4

显示“是”和“否”按钮

vbRetryCancel
MsgBox函数 access msgbox用法

5

显示“重试”和“取消”按钮

第二组

vbCritical

16

显示危险消息图标

vbQuestion

32

显示警告询问图标

vbExclamation

48

显示警告消息图标

vbInformation

64

显示信息消息图标

第三组

vbDefaultButton1

0

第一个按钮为默认按钮

vbDefaultButton2

256

第二个按钮为默认按钮

vbDefaultButton3

512

第三个按钮为默认按钮

vbDefaultButton4

768

第四个按钮为默认按钮

第四组

vbApplication Modal

0

应用程序模式:用户必须对消息框作出响应才能继续使用当前的应用程序

vbSystemModal

4096

系统模式;所有应用程序都被挂起直至用户对消息框作出响应

附加选项

vbMsgBoxHelpButton

16384

在消息框上添加“帮助”按钮

vbMsgBoxSetForeground

65536

将消息框设置为前景窗口

vbMsgBoxRight

524288

显示右对齐的消息框

vbMsgBoxRtlReading

1048576

指定在希伯莱和阿拉伯系统中显示的文本应当从右向左阅读

要查看MsgBox函数和其他VisualBasic内置常数的列表,可使用ObjectBrowser。寻找以VB开始的类,也可查看Constant类,也可找到Excel的内置常数。

可选的标题常数可以设置对话框标题栏显示的字符串表达式。如果不提供title常数的值,MicrosoftExcel将显示在标题栏中。

helpfile和context都是可选常数,当你为应用程序创建了自己的帮助文件时可以使用它们。

MsgBox是一个函数,这就意味着它将返回一个数值。表5-2列出了MsgBox函数可能返回的数值。返回值完全取决于用户所选择的按钮。 表2  MsgBox函数的返回值

常数



说明

vbOK

1

确定

vbCancel

2

取消

vbAbort

3

终止

vbRetry

4

重试

vbIgnore

5

忽略

vbYes

6



vbNo

7



查看MsgBox函数的返回值,你认为需要创建哪种类型的变量来保存返回值?定义用来保存MsgBox函数的返回值的变量时,可以使用的最好数据类型是Integer。

  

爱华网本文地址 » http://www.413yy.cn/a/25101014/198319.html

更多阅读

VBA编程中MsgBox函数怎么用 vba msgbox

VBA编程中MsgBox函数怎么用——简介Excel编程中的MsgBox函数用于输出一个对话框,该函数在编程调试以及输出结果方面具有极为重要的意义。下面小编就为大家讲解一下该函数的具体使用方法。VBA编程中MsgBox函数怎么用——方法/步骤

excel公式函数详解:19 yearfrac函数用法介绍

excel公式函数详解:[19]yearfrac函数用法介绍——简介一个良好的规划对于生活品质和工作效率都极其重要,在实际生活中我们往往需要计算一年有几个项目,每个项目需要花费多长时间。不同的工作其所花的中心也应该不一样。在excel中有一个

MATLAB 各种 对数函数 用法以及实例 matlab 对数函数

MATLAB 各种 对数函数 用法以及实例——简介在MATLAB运算当中,我们常常需要求对数,在编写M文件的过程中,我们也需要表示对数,下面我就通过一些示例介绍一下如何在MATLAB中求对数。MATLAB 各种 对数函数 用法以及实例——工具/原料MATLA

Excel函数详解:166 FREQUENCY函数用法

Excel函数详解:[166]FREQUENCY函数用法——简介FREQUENCY函数,用于以垂直数组的形式返回多个数值在某个区域内出现的频率。该函数返回的是数组,所以必须以数组公式的形式进行输入。Excel函数详解:[166]FREQUENCY函数用法——工具/原料

matlab曲线拟合 函数 用法以及例子 如何用matlab拟合曲线

matlab曲线拟合 函数 用法以及例子——简介在运行MATLAB编程进行数据的处理过程当中,我们常常用到matlab曲线拟合,但是工具箱由于需要人工交互,得到的拟合结果,需要人工的去提取,再输入,所以,工具箱拟合结果十分不适合调用,以及继续下面的操

声明:《MsgBox函数 access msgbox用法》为网友神仙哥哥分享!如侵犯到您的合法权益请联系我们删除