Office中国论坛/Access中国论坛

标题: ACCESS 技巧千寻：加强后的MSGBOX函数 [打印本页]

作者: 大熊 时间: 2002-4-26 08:03
标题: ACCESS 技巧千寻：加强后的MSGBOX函数
Function FormattedMsgBox( _
Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """)")
Else
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")")
End If
End Function

(算法函数_API_系统-相关文章技巧链接)：
ACCESS 技巧千寻：加强后的MSGBOX函数

作者: tmtony 时间: 2002-4-26 21:39
标题: ACCESS 技巧千寻：加强后的MSGBOX函数
我忘了在哪看到过这函数啦。是挺有新意
不过你得解释一下，否则人家不知道在哪个地方加强了

作者: yttzm 时间: 2005-12-18 05:26
不懂怎么用。

能解释一下么？

作者: 13822233219 时间: 2006-1-1 01:09
好

作者: 13822233219 时间: 2006-1-1 01:10
还能改正吗？？？？

作者: LucasLynn 时间: 2006-1-3 16:26
以下是引用tmtony在2002-4-26 13:39:00的发言：
我忘了在哪看到过这函数啦。是挺有新意
不过你得解释一下，否则人家不知道在哪个地方加强了

这段代码最早出自Usenet，后被MVP Michael Kaplan整理转载后发表在他的网站trigeminal.com，后被微软选入KB，编号：KB242889

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)