Come chiudere automaticamente una finestra di messaggio in VB6

finestre di messaggio vengono utilizzati principalmente nei programmi VB6 per indicare all'utente che qualcosa richiede la loro attenzione . Una finestra di messaggio potrebbe essere visualizzato un messaggio di errore o si potrebbe chiedere all'utente una domanda, offrendo un " sì " e un pulsante "No" sul modulo . La finestra di messaggio potrebbe anche essere che informa l'utente che qualcosa sta per accadere all'interno del programma , chiedendo se vorrebbero continuare . Si potrebbe beneficiare l'utente a lasciare quel messaggio visualizzato per cinque secondi e poi basta passare automaticamente alla prossima attività all'interno del programma. Questa impostazione può essere effettuata in pochi passi . Istruzioni
1

Aprire un nuovo progetto EXE standard di Visual Basic . Un form denominato " Form1 " verrà creato per impostazione predefinita . Aggiungere un nuovo modulo al progetto cliccando col tasto destro sul nome del progetto e fare clic su "Aggiungi " e poi " modulo ". Il nome predefinito per il nuovo modulo sarà " Modulo1 ".
2

Rinominare il modulo e il modulo come qualcosa di significativo , come " frmMain " per la forma e la " modTimer " per il modulo. Nella " ( dichiarazioni) ( Generale) " zona di " modTimer " , dichiarano le seguenti funzioni di Windows : KillTimer , FindWindow , SetForegroundWindow . Ciascuna di queste funzioni si fa riferimento nella biblioteca Windows " user32 ».

Private Declare Function KillTimer Lib " user32" ( ByVal hWnd As Long , ByVal nIDEvent As Long ) As Long

Private Declare Function FindWindow Lib " user32 " Alias ​​" FindWindowA " ( lpClassName ByVal As String , ByVal lpWindowName As String ) As Long

private Declare Function SetForegroundWindow Lib " user32" ( ByVal hWnd As Long ) As Long

3

dichiarare una costante che sarà ricevuto per chiudere la finestra di messaggio . La dichiarazione di costante è " Const NV_CLOSEMSGBOX Pubblica As Long = & H5000 & . " Definire anche una subroutine denominata " TimerSub " in " modTimer . " La dichiarazione di " TimerSub " si presenta come :

Public Sub TimerSub ( ByVal hWnd As Long , uMsg ByVal come lungamente, idEvent ByVal come lungamente, dwTime ByVal come lungamente ) economici 4

Uccidere qualsiasi altro timer prima dentro " TimerSub " per assicurarsi che il nuovo timer è l'unico attivo . La funzione è " KillTimer . " Successivamente, controllare il valore di " idEvent " per vedere se è uguale a " NV_CLOSEMSGBOX . " Se è così , trova la finestra di messaggio con " FindWindow " e inviare il tasto "Enter" per la finestra di messaggio con " SendKeys ". Questo forzerà il pulsante predefinito fare clic per eseguire e quindi chiudere la finestra di messaggio .
5

Prova la funzionalità definita " TimerSub " con l'aggiunta di un pulsante per " frmMain . " Nello scatto del tasto codice evento , impostare il timer :

SetTimer hWnd , NV_CLOSEMSGBOX , 5000 , AddressOf TimerProc

Questo costringerà la finestra di messaggio per chiudere in 5000 millisecondi o 5 secondi . Selezionare "Esegui " e "Start " dal menu in VB per eseguire il programma .

• Come fermare un ciclo in VBA 
• Come utilizzare il calendario in VBA