The MsgBox funktion finns i både Visual Basic 6.0 och Visual Basic.NET . I båda versionerna , ger det ett enkelt sätt för programmeraren att visa ett textmeddelande och omfatta särskilda alternativ för användaren respons . Dessa alternativ inkluderar knappar som läser " OK " eller " Ja", " Avbryt " " AbortRetryIgnore " samt ikoner för varningar eller information . Den MsgBox kan också visa en länk till en hjälpfil . Form Exempel
Skriva en mycket kort Visual Basic-program visar användningen av den MsgBox funktion. Exemplet här visar hur programmeraren kan orsaka en rad olika åtgärder för att förekomma beroende på användarens svar . Åberopar MsgBox kan hantera kritiska fel , helt enkelt varna användaren för något , eller låta personen bestämma om continue.To att se detta i handling , öppna Visual Basic 6.0 eller Visual Basic.NET program . I Visual Basic , skapa ett nytt program genom att klicka på " File ". Välj " Nytt projekt " från rullgardinsmenyn och en "Standard EXE " från listan med mallar . I Visual Basic.NET eller Visual Basic 2008 Express Edition , skapa ett nytt projekt på samma sätt men välj " Windows Forms Application " Skapa en Command Button och tre Etiketter på formuläret genom att klicka och dra dessa verktyg från verktygslådan . Klicka på varje etikett i rutan Egenskaper till höger när du använder designvyn och radera bildtexten . Bara för att göra exemplet lite mer användarvänlig , ändra bildtexten Command knappen i Egenskaper listan till " Visa mig . " Formuläret ska se ut som på bilden här .
Kodexempel
I Visual Basic 6 Klicka på " Visa " i menyn och välj " Code " från rullgardinsmenyn listan. Skriv följande kommandon exakt som visas nedan . I Visual Basic.NET , kommer att trycka på " F7 " sätta upp koden vyn . OBS: Visual Basic -gränssnittet automatiskt in flikarna på vissa av dessa linjer som inte visas korrekt i den här artikeln . Oroa dig inte om det här . Den inkluderade bilden visar hur kodningen visas i programvaran .
Private Sub Command1_Click ( ) Dim MSG, Style , Titel , ResponseMsg = " Vill du fortsätta ? " Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton2 ' Definiera buttons.Title = " MsgBox Demonstration " Response = MsgBox ( Msg , Style , titel ) Om Response = vbAbort ThenLabel1.Caption = " du skulle inte ha gjort det! " Elseif Response = vbRetry ThenLabel2.Caption = "Försök igen allt du vill ha , Ingenting fungerar " ! " Utför någon action.Else : Label3.Caption = " ! Det är rätt svar " MsgBox ( " Tryck på valfri tangent för att avsluta denna " ) Om vbOK ThenEndEnd IfEnd IfEnd Sub
trycker " F5 " i antingen version kommer att köras programmet och demonstrera MsgBox som skapats . Beroende på applikationens behov , visas istället för att ha meddelanden , kan programmet ha aktiviteter sker som att öppna nya fönster , utlöser rutiner felkorrigering , avstängning av program eller ett antal saker som är möjliga inom programmet .
Addera
