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

ldy

逛CSDN看到的，非常好用

2. 
   
3. Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
   
4. Private Sub 定时关闭MSGBox1()
   
5.     x = MessageBoxTimeout(0, "Hello World", "两秒后自动关闭", 68, 1, 2000)
   
6. Debug.Print x
   
7. End Sub
   
8. Private Sub 定时关闭MSGBox2()
   
9.   x = MessageBoxTimeout(0, "Hello World", "两秒后自动关闭", 3, 1, 2000)
   
10.   Debug.Print x
    
11. End Sub
    
12. Private Sub 定时关闭MSGBox3()
    
13.    MessageBoxTimeout 0, "Hello World", "两秒后自动关闭", 0, 0, 2000
    
14. End Sub

<br /> Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long<br /> Private Sub 定时关闭MSGBox1()<br />     x = MessageBoxTimeout(0, "Hello World", "两秒后自动关闭", 68, 1, 2000)<br /> Debug.Print x<br /> End Sub<br /> Private Sub 定时关闭MSGBox2()<br />   x = MessageBoxTimeout(0, "Hello World", "两秒后自动关闭", 3, 1, 2000)<br />   Debug.Print x<br /> End Sub<br /> Private Sub 定时关闭MSGBox3()<br />    MessageBoxTimeout 0, "Hello World", "两秒后自动关闭", 0, 0, 2000<br /> End Sub

刘志文

谢谢刘版提供分享!

中国人.

学习... __

daley

呵呵，多谢分享，VBA也可调用这种方法：

Public Sub 定时关闭对话()
    Dim x As Object
    Set x = CreateObject("Wscript.Shell")
    x.popup "录入完毕!", 1, "提示", 64
    Set x = Nothing
End Sub

这个里面“1”就是秒数，在到达这个时间后自动关闭。

中国人.

额, 楼上的方法..
咱试了,  为撒不行?/?     和人品有关?

中国人.

噢,   又可以了..   谢谢两位版主

会不会是CPU太差了!! 汗

[ 本帖最后由 中国人. 于 2010-6-24 01:28 编辑 ]

chentx

不是人品问题，是Wscript.Shell不怎么好使，反正我用这个是没试成功过，楼主所介绍的API不错，学习了，谢谢分享。
有个小问题，就是在显示MSGBOX上的按钮用数字的话比较难记忆，用文字的话会比较容易记住（vbOkOnly，vbYes等等），经测试用文字也是一样可以达到效果。

[ 本帖最后由 chentx 于 2010-6-24 09:15 编辑 ]

hanter007

有所收获,非常感谢..API果然够强大.

livewire

谢谢两位版主！ 两种方法都学习了。 不过API还是没明白

livewire

原帖由 daley 于 2010-6-24 01:21 发表
呵呵，多谢分享，VBA也可调用这种方法：

Public Sub 定时关闭对话()
    Dim x As Object
    Set x = CreateObject("Wscript.Shell")
    x.popup "录入完毕!", 1, "提示", 64
    Set x = Nothing
End Sub ...

请教daley:  把1改成0.5后， 窗口怎么就不会自动关闭？ 而把1改成1.5后， 窗口就会自动关闭。