[模块/函数] 元宵/情人双节,源码大放送【会自动关闭的Msgbox对话框】
时 间:2014-02-14 11:56:33
作 者:smileyoufu ID:1784 城市:成都
摘 要:会自动关闭的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交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)