[模块/函数] 元宵/情人双节,源码大放送【会自动关闭的Msgbox对话框】-福哥(QQ86053924)
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


[模块/函数] 元宵/情人双节,源码大放送【会自动关闭的Msgbox对话框】

发表时间:2014/2/14 11:56:33 评论(2) 浏览(4518)  评论 | 加入收藏 | 复制
   
摘 要:会自动关闭的Msgbox对话框
正 文:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElaspe As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Dim TID        As Long

' 主    题:庆祝元宵/情人双节,源码大放送
' 函数名称:MsgboxEx
' 函数作用:在指定时间后,会自动关闭的Msgbox对话框。使用户感受更人性化,
' 参数说明:与原Msgbox一致,只是多最后一个参数Sec,长整型(Long),用来表示延迟关闭对话框的秒数,默认为3秒
' 发 布 者:smileyoufu QQ:86053924
' 发布日期:2014年情人节
' 声    明:此非原创,代码是到处抄来,根据需要东拼西凑的(情人节也不一定要约会原配嘛,不过要做好事前/善后工作哟,谨防……),感谢原作者们
' 调用示例
            Sub test5秒后关闭()
                MsgboxEx "你好,这是测试代码,5秒后将自动关闭", 64, "5秒后将自动关闭", , , 5
            End Sub
           
            Sub test默认3秒后关闭()
                MsgboxEx "你好,这是测试代码,3秒后将自动关闭", 64, "5秒后将自动关闭"
            End Sub

'---------------------------------------------------------------------------------
Public Sub MsgboxEx(Pormpt As String, Optional Buttons As Long, Optional Title As String, Optional HelpFile As String, Optional Contest As Long, Optional Sec As Long = 3)
    Dim A      As Long
    TID = SetTimer(0, 0, Sec * 1000, AddressOf CloseMsgbox)
    Call MsgBox(Pormpt, Buttons, Title, HelpFile, Contest)
End Sub
Public Sub CloseMsgbox(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal Systime As Long)
    Application.SendKeys "~", True
    KillTimer 0, TID
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Access软件网交流QQ群(群号:198465573)
 
 相关文章
窗体无数据自动关闭  【cuxun  2007/10/18】
自定义自动关闭Msgbox窗体  【咱家是猫  2007/11/30】
[转帖]自动关闭的MsgBox  【fan0217  2009/1/31】
自定义的会自动关闭的Msgbox窗体  【咱家是猫  2009/5/31】
当窗体失去焦点时自动关闭窗体  【fxtest  2009/10/25】
1秒后自动关闭msgbox消息框示例  【风行  2012/12/22】
有选择的自动关闭msgbox  【jia  2013/1/24】
常见问答
技术分类
相关资源
文章搜索
关于作者

福哥(QQ86053924)

文章分类

文章存档

友情链接