推荐 未公开的API 定时MsgBox ---MessageBoxTimeout

zhengrui-csb

都 是 高 人

ldy

原帖由 chentx 于 2010-6-24 09:11 发表
不是人品问题，是Wscript.Shell不怎么好使，反正我用这个是没试成功过，楼主所介绍的API不错，学习了，谢谢分享。
有个小问题，就是在显示MSGBOX上的按钮用数字的话比较难记忆，用文字的话会比较容易记住（vbOkOnly ...

确实如此：
我这里测试，4种状态下
VB 编译后 ，VBS文件 ，VB 未编译， VBA
只有前两种可以自动关闭，后两种不点不会关闭，找不出原因。

winland

这个比较有用，Mark一下。

winland

修改一下，把wType定义成vbMsgBoxStyle，这样可以提示输入VBA里的MsgBox常数了。
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
Private 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

laoyebin

这功能不错，学习一下

三戒

赞一个很好用

398829134

楼主提供的函数非常好用，十四楼发的测试代码不错

wwhhpp123

高手不是一日练成滴
继续学习
只是api太复杂啊

brdsz

学习了，谢谢分享。

brdsz

学习了，谢谢分享。