schrijven van een zeer korte Visual Basic-programma demonstreert het gebruik van de functie MsgBox . Het voorbeeld laat zien hoe de programmeur een aantal acties plaatsvinden afhankelijk van de respons van een gebruiker kan veroorzaken . Inroepen van de MsgBox kan omgaan met kritieke fouten , gewoon de gebruiker te waarschuwen voor iets , of laat de persoon beslissen of deze continue.To in actie te zien , opent u de Visual Basic 6.0 of Visual Basic.NET software . In Visual Basic , een nieuw programma door te klikken op " Bestand . " Selecteer " Nieuw project " uit het drop down lijst en een " Standard EXE " uit de lijst met sjablonen . In Visual Basic.NET of Visual Basic 2008 Express Edition , maak een nieuw project op dezelfde manier , maar kiezen voor de " Windows Forms Application " Maak er een opdracht knop en drie labels op het formulier door te klikken en te slepen deze tools uit de Toolbox . Klik op elk label in het venster Eigenschappen rechts terwijl u het ontwerp bekijken en verwijderen van de Bijschrift tekst . Gewoon om het voorbeeld een beetje meer gebruikersvriendelijk te maken , wijzigt de Command -toets bijschrift in de lijst Eigenschappen om " Show Me . " Het formulier moet uitzien als de afbeelding hier .
Code Voorbeeld

In Visual Basic 6 klik op "View " in het menu en kies " Code " uit het drop down lijst. Typ de volgende opdrachten precies zoals hieronder getoond . In Visual Basic.NET , zal drukken op " F7 " brengen de code view . OPMERKING : De Visual Basic -interface voegt automatisch tabbladen op een aantal van deze lijnen die niet goed in dit artikel weergegeven . Maak je geen zorgen over. Het opgenomen beeld toont de manier waarop de codering zal verschijnen in de software .

Private Sub Command1_Click ( ) op Dim Msg , Style , Title , ResponseMsg = " Wilt u doorgaan?" Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton2 ' Definieer buttons.Title = " MsgBox Demonstratie " Response = MsgBox ( Msg , Style , Title ) Als Response = vbAbort ThenLabel1.Caption = " je moet niet hebben dat gedaan ! " ElseIf Response = vbRetry ThenLabel2.Caption = " Opnieuw proberen alles wat je wilt , Niets zal werken " ! ' Doe een aantal action.Else : Label3.Caption = " ! Dat is het juiste antwoord " MsgBox ( " Druk op een toets om deze te beëindigen " ) Als VBOK ThenEndEnd IfEnd IfEnd Sub

Door op " F5 " in een van beide versie zal draaien het programma en tonen de MsgBox als geschapen . Afhankelijk van de behoeften van de toepassing , in plaats van berichten verschijnen , kan het programma acties uitgevoerd zoals het openen van nieuwe vensters , triggering foutcorrectie procedures , het afsluiten van het programma of een aantal dingen die mogelijk zijn binnen het programma .