[模块/函数] 元宵/情人双节,源码大放送【会自动关闭的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交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 统计当月之前(不含当月)的记录...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)
- 【Access Dsum示例】...(02.07)
- Access对子窗体的数据进行...(02.05)
- 【Access高效办公】上月累...(01.09)
- 【Access高效办公】上月累...(01.06)
- 【Access Inputbo...(12.23)
- 【Access Dsum示例】...(12.16)

学习心得
最新文章
- 仓库管理实战课程(9)-开发往来单...(04.02)
- 仓库管理实战课程(8)-商品信息功...(04.01)
- 仓库管理实战课程(7)-链接表(03.31)
- 仓库管理实战课程(6)-创建查询(03.29)
- 仓库管理实战课程(5)-字段属性(03.27)
- 设备装配出入库管理系统;基于Acc...(03.24)
- 仓库管理实战课程(4)-建表操作(03.22)
- 仓库管理实战课程(3)-需求设计说...(03.19)
- 仓库管理实战课程(2)-软件背景和...(03.18)
- 仓库管理实战课程(1)-讲师介绍(03.16)