The MsgBox funksjonen finnes i både Visual Basic 6.0 og Visual Basic.NET . I begge versjonene , gir det en enkel måte for programmereren å vise en tekstmelding, og inneholde konkrete alternativer for respons fra brukerne . Disse alternativene omfatter knapper som leser "OK" eller "Ja ", " Avbryt ", " AbortRetryIgnore " samt ikoner for advarsler eller informasjon. Den MsgBox kan også vise en kobling til en hjelp-fil . Form Eksempel

Skrive en svært kort Visual Basic program demonstrerer bruken av MsgBox funksjon . Eksempelet her viser hvordan programmerer kan føre til en rekke tiltak for å oppstå avhengig av en brukers respons. Påkalle MsgBox kan håndtere kritiske feil , bare varsle brukeren om noe, eller la personen bestemme om du vil continue.To se dette i aksjon , åpne Visual Basic 6.0 eller Visual Basic.NET programvare . I Visual Basic , lage et nytt program ved å klikke på " File". Velg " Nytt prosjekt " fra nedtrekkslisten og en " Standard EXE " fra malen listen. I Visual Basic.NET eller Visual Basic 2008 Express Edition, opprette et nytt prosjekt på samme måte men velg "Windows Forms Application " Opprett en Command Button og tre Etiketter i skjemaet ved å klikke og dra disse verktøyene fra verktøykassen . Klikk på hver etikett i Egenskaper boksen til høyre mens du bruker Design se på og slette bildeteksten. Bare for å gjøre eksemplet litt mer brukervennlig , endre Command knappteksten i Egenskaper liste til " Show Me ". Skjemaet skal se ut som på bildet her .
Kode Eksempel

I Visual Basic 6 klikk på " View" i menyen og velg " Code" fra nedtrekksmenyen listen. Skriv inn følgende kommandoer nøyaktig som vist nedenfor. I Visual Basic.NET , vil trykke " F7 " få opp koden visning. MERK: Visual Basic -grensesnittet automatisk inn tappene på noen av disse linjene som ikke viser riktig i denne artikkelen. Ikke bekymre deg for dette . Den medfølgende bildet viser hvordan kodingen vil vises i programvaren.

Private Sub Command1_Click ( ) Dim Msg , Style, Tittel , ResponseMsg = " Vil du fortsette?" Stil = vbAbortRetryIgnore + vbCritical + vbDefaultButton2 ' Definer buttons.Title = " MsgBox demonstrasjon " Response = MsgBox ( Msg , Style, Tittel ) Hvis Response = vbAbort ThenLabel1.Caption = " du skulle ikke ha gjort det! " ElseIf Response = vbRetry ThenLabel2.Caption = " Prøv igjen alt du ønsker ; Ingenting vil jobbe " ! ' Utfør noen action.Else : Label3.Caption = " ! Det er det rette svaret" MsgBox ( "Trykk en tast for å avslutte denne ") Hvis vbOK ThenEndEnd IfEnd IfEnd Sub

Ved å trykke " F5" i begge versjoner vil kjøre programmet og demonstrere MsgBox som opprettet. Avhengig av behovene for programmet, vises i stedet for å ha meldinger , kan programmet ha handlinger oppstår som å åpne nye vinduer , utløser feilretting prosedyrer , stenge ned program eller en rekke ting som er mulig i programmet.