作者：绿色风
分类：
时间：2022-08-17
浏览：104
楼主
wise |
Q:如何用API函数定时关闭MsgBox?
A：ALT+F11→插入模块→输入以下代码：
- Private Declare Function MsgBoxEx Lib "user32" Alias "MessageBoxTimeoutA" ( _
- ByVal hwnd As Long, _
- ByVal lpText As String, _
- ByVal lpCaption As String, _
- ByVal wType As VbMsgBoxStyle, _
- ByVal wlange As Long, _
- ByVal dwTimeout As Long) As Long
- Sub TestMsgboxEx()
- Dim ret As Long
- ret = MsgBoxEx(0, "请选择", "两秒后自动关闭", vbYesNo + vbInformation, 1, 2000)
- If ret = 32000 Then
- Debug.Print "超时关闭"
- ElseIf ret = vbYes Then
- Debug.Print "选择Yes"
- ElseIf ret = vbNo Then
- Debug.Print "选择No"
- End If
- End Sub
这个API函数是未公开的，在一个朋友的blog看到的。该API函数的参数如下:
hwnd：窗口句柄，可以设为0
lpText：消息框显示内容，类似于MsgBox函数的第一个参数Prompt
lpCaption：消息框标题，类似于MsgBox函数的第三个参数Caption
wType：消息框类型，类似于MsgBox函数的第二个参数Buttons,将wType参数改成可以提示输入VBA的vbMsgboxStyle常数。
wlange：不是太明白这个参数，0或者1都看不出什么差别
dwTimeout：延时时间，单位是毫秒
 如何用API函数定时关闭MsgBox.rar
|
2楼
kevinchengcw |
顶一个 |
3楼
余方方 |
谢谢分享 |
4楼
水星钓鱼 |
感谢分享 |
5楼
wise |
现在忘记了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一