Readygo技术搜索引擎 网络搜索 efish 2008-1-14 16:14:06

请问怎样让消息框弹出后，5秒后自动关掉！

楼主cooking（）2002-07-20 09:40:15 在 VB / 基础类 提问

请问怎样让消息框弹出后，5秒后自动关掉！ 问题点数：40、回复次数：6Top

1 楼twtetgso（*学习再学习*）回复于 2002-07-20 09:42:50 得分 0

gzTop

2 楼limengchen（LMC）回复于 2002-07-20 09:47:56 得分 2

不能用windows提供的消息框，你得自己做，在上面放一个timer控件  
  Top

3 楼cooking（）回复于 2002-07-20 09:53:27 得分 0

limengchen(lmc)   :能提供个例子吗？小弟没有做过，我加分啦Top

4 楼jo_yoko（不会飞的大鸟）回复于 2002-07-20 10:06:59 得分 38

我这里有个源程序，你可以看看：  
   
  "在表单的声明区中加入以下的声明  
  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   =   5000  
  Timer1.Enabled   =   True  
  nRet   =   MsgBox("若您不回应的话，5   秒后此   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   出现   5   秒之后，就会自动关闭了！  
   
  注意：此方法是有限制的：  
  1、当常数设定为   VbAbortRetryIgnore   或   VbYesNo   时，无效！  
  2、在   Design   Time   时，无效，必须   Make   EXE   之后才有效！Top