[已解决]如何让msgbox对话框弹出后一秒自动消失

twistting

学习了，很牛x

02761752696

学习   谢谢

大灰狼1976

两种方法：

1. Private Declare Function Mb 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
   
2. 
   
3. Private Sub MSG1()
   
4.   Mb 0, "2秒", "提示", 64, 0, 2000
   
5. End Sub
   
6. 
   
7. Public Sub MSG2()
   
8.     Dim x As Object
   
9.     Set x = CreateObject("Wscript.Shell")
   
10.     x.popup "1秒", 1, "提示", 64
    
11.     Set x = Nothing
    
12. End Sub

复制代码