Bericht dozen worden voornamelijk gebruikt in VB6 programma's aan te geven aan de gebruiker dat er iets hun aandacht vereist . Een bericht kan er een foutbericht weergegeven of het zou kunnen vragen de gebruiker een vraag , het verstrekken van een "Ja " en "Nee" knop op het formulier . Het bericht kan ook worden de gebruiker te informeren dat er iets anders staat te gebeuren binnen het programma , met de vraag of ze willen blijven . Het kan de gebruiker profiteren om die boodschap verschijnt gedurende vijf seconden en dan gewoon automatisch naar de volgende activiteiten binnen het programma te verlaten . Deze instelling kan worden gedaan in slechts een paar stappen . Instructies
1 Open een nieuw standaard-EXE Visual Basic -project . Een formulier met de naam " Form1 " wordt standaard gemaakt. Voeg een nieuwe module aan het project door met de rechtermuisknop te klikken op de naam van het project en te klikken op " Add " en dan " module . " De standaardnaam voor de nieuwe module zal worden " Module1 . " Kopen van 2 Hernoem de vorm en de module als iets zinvols zoals " frmMain " voor de vorm en de " modTimer " voor de module . In de " ( Algemeen ) ( Verklaringen ) " gebied van " modTimer " , verklaren de volgende Windows-functies : KillTimer , FindWindow , SetForeGroundWindow . Elk van deze functies wordt verwezen in de Windows " user32 " library . Private Declare Function KillTimer Lib " user32 " ( ByVal hWnd zoals lang, ByVal nIDEvent als lang) als Long
Private Declare Function
FindWindow Lib " user32 " alias " FindWindowA " ( ByVal lpClassName als Koord , ByVal lpWindowName As String ) As Long
Private Declare Function SetForeGroundWindow Lib " user32 " ( ByVal hWnd als lang) als Long
Goedkope 3 Verklaar een constante die zal worden ontvangen om het berichtvenster te sluiten . De constante verklaring is " Public Const NV_CLOSEMSGBOX As Long = & H5000 & . " Definiëren ook een subroutine genaamd " TimerSub " in " modTimer . " De verklaring voor " TimerSub " eruit ziet : Public Sub TimerSub
( ByVal hWnd zoals lang, ByVal uMsg zoals lang, ByVal idEvent zoals lang, ByVal dwTime As Long ) op 4 Kill
alle andere timer eerst binnen " TimerSub " om ervoor te zorgen dat de nieuwe timer is de enige actieve . De functie is " KillTimer . " Vervolgens controleert de waarde van " idEvent " om te zien of het is gelijk aan " NV_CLOSEMSGBOX . " Als dat zo is , vind het berichtvenster met " FindWindow " en stuur de " Enter " -toets om het vak bericht met " SendKeys . " Dit dwingt de standaard knop klikken om uit te voeren en dus sluit het berichtvenster .
5 Test de functionaliteit gedefinieerd in " TimerSub " door het toevoegen van een knop om " frmMain . " In de knop gebeurtenis click -code , de timer instellen :
SetTimer hWnd , NV_CLOSEMSGBOX , 5000 , AddressOf TimerProc
Dit dwingt het berichtvenster te sluiten in 5000 milliseconden of 5 seconden . Selecteer " Run " en " Start" in het menu in VB om het programma uit te voeren .
|
