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

我忘了在哪看到过这函数啦。是挺有新意
不过你得解释一下，否则人家不知道在哪个地方加强了

yttzm

不懂怎么用。




能解释一下么？

13822233219

好

13822233219

还能改正吗？？？？

LucasLynn

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




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