Access平台开发人员帮助 > 通用函数库 > 按功能 > 平台系统控制

函数说明

该函数可以弹出一个消息对话框（分普通消息和错误消息）。

注意：这个函数是对系统的Msgbox函数的封装，结合平台，达到快速输入代码，减少重复的作用。

该函数和Msgbox函数使用方法类似。

函数原型

Public Function gf_MsgBox(strMessage As String, _

Optional intMsgType As VbMsgBoxStyle = vbOKOnly, _

Optional strTitle As String, _

Optional errError As Object) As VbMsgBoxResult

语法

gf_MsgBox(strMessage [,intMsgType] [,strTitle] [,errError])

参考：gf_MsgBox(“欢迎使用”) '弹出一个消息对话框

参数

参数名	必需/可选	数据类型	参数说明
strMessage	必需	String	要弹出的消息
intMsgType	可选	VbMsgBoxStyle	按钮，图标和默认按钮设置。该参数Msgbox函数一样。更多可参考Msgbox的帮助
strTitle	可选	String	消息对话框的标题。默认是平台的项目名称。
errError	可选	Object	Err错误对象，用于显示错误信息。如果使用该参数，则第一个参数将无效。

返回值

返回VbMsgBoxResult的枚举变量。该值是对应用户按下的对话框按钮。

示例

‘示例1：不设置标题，默认为平台的项目名称

Public Sub subTest1()

gf_Msgbox "欢迎使用"

End Sub

'示例2：使用按钮和图标等

Public Sub subTest2()

gf_Msgbox "您是否要退出系统？", vbYesNo + vbInformation + vbDefaultButton2 '使用是否按钮和消息提示图标，以及默认第二个按钮

End Sub

'示例3：弹出错误消息

Public Sub subTest3()

On Error GoTo Err_Show '当发生错误时，跳转到Err_Show标签处

Dim i As Double '定义双精度型变量

i = 1 / 0 '除数为0，发生错误，跳转到Err_Show标签处

Exit Sub

Err_Show:

gf_Msgbox "", , , Err '将Err错误对象传递进去，显示错误信息

End Sub

弹出消息框（gf_MsgBox函数）