安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

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

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

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存?#21152;茫?b>7.75MB
PHP 执行时间:0.22
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
里昂高商中国认可吗 沃尔夫斯堡有机场吗 持枪王者APP 星际争霸重制版头像 阿森纳百度贴吧 重庆时时彩开奖记录 14-15瓦伦西亚球衣 云南快乐10分走势开奖结果 弓兵试玩 图卢兹俱乐部