Meddelande lådor används främst i VB6 program för att indikera för användaren att något kräver deras uppmärksamhet . En meddelanderuta kan visas ett felmeddelande eller det kanske frågar användaren en fråga , ger ett " Ja" och " Nej " -knappen på formuläret . Meddelanderutan kan också informera användaren om att något annat är på väg att hända inom programmet , frågar om de vill fortsätta . Det kan gynna användaren att lämna detta meddelande visas i fem sekunder och sedan bara automatiskt gå vidare till nästa aktivitet inom programmet . Denna inställning kan göras på bara några få steg . Instruktioner
1
Öppna ett nytt Standard-EXE Visual Basic-projekt . En blankett som heter " Form1 " skapas som standard . Lägg till en ny modul till projektet genom att högerklicka på projektets namn och klicka på " Add " och därefter " modulen . " Det förvalda namnet för den nya modulen kommer att vara " Module1 . "
2
Byt namn på formuläret och modulen som något meningsfullt som " frmMain " för formuläret och " modTimer " för modulen . I " ( General ) ( förklaringar ) " område " modTimer " , förklarar följande Windows -funktioner : KillTimer , FindWindow , SetForegroundWindow . Var och en av dessa funktioner refereras i Windows " User32 " bibliotek .
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
Sida 3
Deklarera en konstant som kommer att erhållas för att stänga meddelanderutan . Den ständiga förklaringen är " Public Const NV_CLOSEMSGBOX As Long = & H5000 & . " Också definiera en subrutin som heter " TimerSub " i " modTimer . " Deklarationen för " TimerSub " ser ut :
Public Sub TimerSub ( ByVal hWnd As Long , ByVal uMsg As Long , ByVal idEvent As Long , ByVal dwTime As Long )
4
Kill någon annan timer först inom " TimerSub " att se till att den nya timern är den enda aktiva . Funktionen är " KillTimer . " Nästa , kontrollera värdet av " idEvent " för att se om det är lika med " NV_CLOSEMSGBOX . " Om så är fallet , hitta meddelanderutan med " FindWindow " och skicka " Enter" för att meddelanderutan med " SendKeys . " Detta kommer att tvinga den förvalda knappen för att öppna den och därmed stänga meddelanderutan .
5
testa funktionaliteten definieras i " TimerSub " genom att lägga till en knapp för att " frmMain . " I knapptryckning händelsen koden , ställa in timern :
SetTimer hWnd , NV_CLOSEMSGBOX , 5000 , AddressOf TimerProc
Detta kommer att tvinga meddelanderutan för att stänga in 5000 millisekunder eller 5 sekunder . Välj " Kör " och " Start" från menyn i VB för att köra programmet .
