MsgBox若干秒后自动关闭的方法

  主題：如何設定   MsgBox   在若干時間之後若無回應則自動關閉？    
  來源：Ask   the   Visual   Basic   Pro    
  版本：VB6   /   VB5   /   VB4-32    
   
  --------------------------------------------------------------------------------  
     
   
  在我們的印象中，VB   所提供的   MsgBox   是一個強制回應的視窗，您一定要按了其中的某一個   CommandButton   之後，它才會關閉！但是在某些軟体中，我們會看到，明明是使用系統的   MsgBox，可是您如果不理它，幾秒鐘之後，它就自行關閉了！別人是如何做到的呢？這個問題偶而會出現在討論區中，有的人會回答：  
   
  只要自己做一個類似   MsgBox   的視窗，就可以自己用   Timer   來控制這個視窗何時要關閉了！  
   
  但是，其實不用這麼麻煩的，只要使用系統的   MsgBox   再加一個   Timer   就可以控制了！  
   
  我們都知道   MsgBox   可以設定成很多不同的樣子，可以有很多不同的圖示，不同的按鈕，其中控制按鈕的部份，可以設定的常數如下：  
   
  常數           值   說明    
  vbOKOnly           0   只顯示   OK   按鈕。    
  VbOKCancel           1   顯示   OK   及   Cancel   按鈕。    
  VbAbortRetryIgnore           2   顯示   Abort、   Retry   及   Ignore   按鈕。    
  VbYesNoCancel           3   顯示   Yes、No   及   Cancel   按鈕。    
  VbYesNo           4   顯示   Yes   及   No   按鈕。    
  VbRetryCancel           5   顯示   Retry   及   Cancel   按鈕。    
   
  為什麼要特別提到   MsgBox   的常數呢？因為下面我們要告訴您的方法，還是有一點點限制的！當您設定的常數是   VbAbortRetryIgnore   或   VbYesNo   時，下面的方法也是沒用的！  
   
  '在表單的宣告區中加入以下的宣告  
   
  Private   Declare   Function   FindWindow   Lib   "user32"   Alias   "FindWindowA"   _  
  (ByVal   lpClassName   As   String,   ByVal   lpWindowName   As   String)   As   Long  
   
  Private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   _  
  (ByVal   hWnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   _  
  lParam   As   Any)   As   Long  
   
  Private   Const   WM_CLOSE   =   &H10  
  Private   Const   MsgTitle   As   String   =   "Test   Message"  
  '在表單中加入一個   CommandButton   及一個   Timer   控制項，加入以下程式碼：  
   
  Private   Sub   Command1_Click()  
        Dim   nRet   As   Long  
        Timer1.Interval   =   3000  
        Timer1.Enabled   =   True  
        nRet   =   MsgBox("若您不回應的話，3   秒後此   MsgBox   會自動關閉",   64,   MsgTitle)  
        Timer1.Enabled   =   False  
  End   Sub  
   
  Private   Sub   Timer1_Timer()  
        Dim   hWnd   As   Long  
        hWnd   =   FindWindow(vbNullString,   MsgTitle)  
        Call   SendMessage(hWnd,   WM_CLOSE,   0,   ByVal   0&)  
  End   Sub  
  好了，很簡單吧！您執行程式時，當   MsgBox   出現   3   秒之後，就會自動關閉了！  
  注意：此方法的限制說明：  
   
  1、當常數設定為   VbAbortRetryIgnore   或   VbYesNo   時，無效！  
  2、在   Design   Time   時，無效，必須   Make   EXE   之後才有效！

 

已经不知道出处，从这个帖子中粘贴下来

http://topic.csdn.net/t/20040506/18/3036843.html