ACCESS 技巧千寻:加强后的MSGBOX函数

2002-04-26 08:02:00
大熊-Office交流网
原创
2284

加强版的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


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

(算法函数_API_系统-相关文章技巧链接):
ACCESS集锦

分享