🚀 go-pugleaf

In data Thu, 28 Apr 2005 09:22:47 +0200, Giovanni Menichetti  
<giovannimenichetti1@virgilio.it> ha scritto:

> Salve
>
> ho una MSGBOX con il solo pulsante "OK", e vorrei che dopo 5 sec si
> chiudesse da sola.
>
> E' possibile?
>

Inserisci in un modulo bas il seguente codice:

Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal  
nIDEvent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"  
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As  
Long) As Long

Public Const NV_CLOSEMSGBOX As Long = &H5000&

Public Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, _
                      ByVal idEvent As Long, ByVal dwTime As Long)

     KillTimer hWnd, idEvent

     Select Case idEvent
     Case NV_CLOSEMSGBOX
         Dim hMessageBox As Long

         hMessageBox = FindWindow("#32770", App.EXEName)

         If hMessageBox Then
             Call SetForegroundWindow(hMessageBox)

             SendKeys "{enter}"
         End If
     End Select
End Sub



Poi , nel punto dove ti serve, la chiami in questo modo:

      SetTimer hWnd, NV_CLOSEMSGBOX, 1000, AddressOf TimerProc

e di seguito scrivi la msgbox come preferisci
      MsgBox "Codice Oggetto non trovato.", vbInformation

Questo codice � stato prelevato da un mio progetto scritto in VB6 e che  
gira su WinXp e quindi in questo ambiente funziona; se usi vb Net non  
saprei dirti se va bene lo stesso.

Ciao.

N.B.
con 1000 si intende il tempo, espresso in millisecondi, di visualizzazione  
della MsgBox
Se vuoi che passino 5 secondi devi modificare tale valore in 5000
-- 
Creato con il rivoluzionario client e-mail di Opera:  
http://www.opera.com/m2/