Den MsgBox funktionen eksisterer i begge Visual Basic 6.0 og Visual Basic.NET . I begge versioner , giver det en enkel måde for programmøren at vise en tekstmeddelelse og omfatte specifikke muligheder for brugeren respons. Disse muligheder omfatter knapper, der læser "OK" eller "Ja," "Annuller " " AbortRetryIgnore " samt ikoner til advarsler eller oplysninger. Den MsgBox kan også vise et link til en hjælpefil. Form Eksempel
Skrivning af en meget kort Visual Basic-program demonstrerer brugen af funktionen MsgBox . Eksemplet her viser, hvordan programmøren kan forårsage en række handlinger at forekomme, afhængigt af en brugers reaktion . Påberåbelse af MsgBox kan håndtere kritiske fejl , skal du blot advare brugeren til noget , eller lade den person beslutte, om at continue.To se det i aktion , åbne Visual Basic 6.0 eller Visual Basic.NET software . I Visual Basic , skal du oprette et nyt program ved at klikke på "File ". Vælg " Nyt projekt " fra drop down listen og en " Standard EXE " fra listen over skabeloner . I Visual Basic.NET eller Visual Basic 2008 Express Edition, oprette et nyt projekt på samme måde, men vælg " Windows Forms Application " Opret en Kommandoknap og tre Mærkater på formularen ved at klikke og trække disse værktøjer fra værktøjskassen . Klik på hver etiket i Properties boksen til højre , mens du bruger Design se og slette Caption tekst. Blot for at gøre eksemplet lidt mere brugervenlig , ændre Command knaptekst i Properties listen til " Show Me ". Skemaet skal se ud som billedet her.
Kode eksempel
I Visual Basic 6 klik på "Vis" i menuen og vælg " Code" fra drop down listen. Skrive følgende kommandoer nøjagtigt som vist nedenfor. I Visual Basic.NET vil trykke på " F7 " opdrage koden visningen . BEMÆRK: Visual Basic -grænseflade indsætter automatisk styr på nogle af disse linjer , der ikke vises korrekt i denne artikel. Må ikke bekymre dig om dette . Den medfølgende billede viser den måde kodning vises i softwaren.
Private Sub Command1_Click ( ) Dim Msg , Style, Title , ResponseMsg = " Ønsker du at fortsætte?" Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton2 ' define buttons.Title = " MsgBox Demonstration " Reaktion = MsgBox ( Msg , Style, Title ) Såfremt respons = vbAbort ThenLabel1.Caption = "Du skulle ikke have gjort det! " EllersHvis respons = vbRetry ThenLabel2.Caption = " Prøv igen alt hvad du ønsker , intet vil arbejde ! " ' Udføre nogle action.Else : Label3.Caption = " ! Det er det rigtige svar " MsgBox ( "Tryk på en tast for at afslutte denne " ) Hvis vbOK ThenEndEnd IfEnd IfEnd Sub
tryk på " F5 " i enten version vil køre programmet og demonstrere MsgBox som oprettes. Afhængigt af behovene i ansøgningen, vises i stedet for at have beskeder , kan programmet have handlinger forekomme såsom at åbne nye vinduer , udløser fejlkorrektion procedurer lukke programmet, eller en række ting , der er mulige inden for programmet .
KAYAK