Message kasser anvendes primært i VB6 programmer til at indikere over for brugeren, at noget kræver deres opmærksomhed. En besked boks viser muligvis en fejlmeddelelse , eller det kan være at spørge brugeren et spørgsmål , der giver et "ja" og et "Nej" -knappen på formularen. Meddelelsen box kan også fortæller brugeren, at noget andet er ved at ske i programmet , beder, hvis de gerne vil fortsætte. Det kan gavne brugeren at forlade den meddelelse, der vises i fem sekunder , og derefter bare automatisk flytte til den næste aktivitet i programmet. Denne indstilling kan gøres på blot et par skridt . Instruktioner
1
Åbn en ny standard-EXE Visual Basic projekt. En form med navnet " Form1 " blive oprettet som standard. Tilføj et nyt modul til projektet ved at højreklikke på projektets navn og klikke på " Tilføj" og derefter " modul ". Standardnavnet for det nye modul vil være " Module1 ".
2
Omdøb formularen og modulet som noget meningsfuldt som " frmMain " til formularen og " modTimer " for modulet . I " (General ) ( Erklæringer )" området " modTimer " erklærer følgende Windows -funktioner : KillTimer , FindWindow , SetForegroundWindow . Hver af disse funktioner henvises til i Windows " User32 " biblioteket.
Private Erklær Funktion KillTimer Lib " User32 " ( ByVal hWnd As Long , ByVal nIDEvent As Long ) As Long
Private Erklær Funktion FindWindow Lib " User32 " Alias " FindWindowA " ( ByVal lpClassName As String , ByVal lpWindowName As String ) As Long
Private Erklær Funktion SetForegroundWindow Lib " User32 " ( ByVal hWnd As Long ) As Long
3
Erklær en konstant, der vil blive modtaget for at lukke meddelelsen kassen. Den konstante erklæring "Public Const NV_CLOSEMSGBOX As Long = & H5000 & ". Også definere en subrutine kaldet " TimerSub " i " modTimer ". Erklæringen for " TimerSub " ligner : Hej
Public Sub TimerSub ( ByVal hWnd As Long , ByVal uMsg As Long , ByVal idEvent As Long , ByVal dwTime As Long )
4
Kill enhver anden timeren først inden " TimerSub " for at sørge for, at ny timer er den eneste aktive . Funktionen er " KillTimer ". Dernæst kontrollere værdien af " idEvent " for at se om det er lig med " NV_CLOSEMSGBOX ". Hvis det er tilfældet , skal du finde beskeden boks med " FindWindow ", og sende "Enter" tasten til beskeden kassen ved hjælp af " SendKeys ". Dette vil tvinge standard knappen klik for at udføre og dermed lukker meddelelsen .
5.
Test funktionaliteten er defineret i " TimerSub " ved at tilføje en knap til " frmMain ". I knap klik begivenheden kode , indstille timeren : Hej
SetTimer hWnd , NV_CLOSEMSGBOX , 5000, AddressOf TimerProc
Dette vil tvinge besked boks til at lukke i 5000 millisekunder eller 5 sekunder. Vælg "Kør" og "Start " fra menuen i VB for at køre programmet .