Message boksene er primært brukt i VB6 programmer for å indikere til brukeren at noe krever sin oppmerksomhet . En meldingsboks kan vise en feilmelding eller det kan være å spørre brukeren et spørsmål, gir en " Ja" og "Nei" -knappen på skjemaet . Meldingsboksen kan også være å informere brukeren om at noe annet er i ferd med å skje i løpet av programmet , spør om de ønsker å fortsette. Det kan være til nytte for brukeren å forlate den meldingen som vises i fem sekunder og deretter bare automatisk gå videre til neste aktivitet i programmet. Denne innstillingen kan gjøres i bare noen få trinn. Instruksjoner
en

Åpne et nytt Standard EXE Visual Basic-prosjekt . Et skjema som heter " Form1 " vil bli opprettet som standard. Legg til en ny modul til prosjektet ved å høyreklikke på prosjektnavnet og klikke på " Legg til" og deretter " modulen. " Standardnavnet for den nye modulen vil være " Module1 . "
2

Gi nytt navn skjemaet og modulen som noe meningsfullt som " frmMain " for form og " modTimer " for modulen. I " (General ) ( Erklæringer )" området " modTimer " , erklærer følgende Windows- funksjoner: KillTimer , FindWindow , SetForegroundWindow . Hver av disse funksjonene er referert 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

3

Erklærer en konstant som vil bli mottatt for å lukke meldingsboksen. Den konstante erklæringen er "Public Konst NV_CLOSEMSGBOX så lenge = & H5000 & . " Også definere en subrutine som heter " TimerSub " in " modTimer . " Erklæringen for " TimerSub " ser ut som : en

Public Sub TimerSub ( ByVal hWnd Som Long , ByVal uMsg Som Long , ByVal idEvent Som Long , ByVal dwTime As Long)
4

Kill noen annen tidtaker først innenfor " TimerSub " for å være sikker på at den nye timeren er den eneste aktive . I funksjonen er " KillTimer . " Deretter kontrollerer verdien av " idEvent " for å se om det er lik " NV_CLOSEMSGBOX . " I så fall finner meldingsboks med " FindWindow " og sender på "Enter " tasten for å meldingsboksen bruke " SendKeys . " Dette vil tvinge standard knapp klikk å kjøre, og dermed lukke meldingsboksen .
5

Test funksjonaliteten definert i " TimerSub " ved å legge til en knapp til " frmMain . " I knappen klikkhendelsen kode , stille timeren : en

SetTimer hWnd , NV_CLOSEMSGBOX , 5000 , AddressOf TimerProc
p Dette vil tvinge meldingsboksen for å lukke i 5000 millisekunder eller 5 sekunder . Velg " Run " og " Start" fra menyen i VB for å kjøre programmet .