Die MsgBox-Funktion ist in beiden Visual Basic 6.0 und Visual Basic.NET . In beiden Versionen , bietet es einen einfachen Weg für den Programmierer , um eine Textnachricht angezeigt werden und umfassen spezielle Optionen für Benutzer Antwort. Diese Optionen umfassen Knöpfe mit der Aufschrift " OK " oder "Ja ", " Abbrechen ", " AbortRetryIgnore " sowie Symbole für Warnungen oder Informationen . Die MsgBox können auch einen Link zu einer Hilfe-Datei. Formular Beispiel
Schreiben eine sehr kurze Visual Basic-Programm zeigt die Verwendung der MsgBox-Funktion . Das Beispiel hier zeigt, wie der Programmierer kann eine Vielzahl von Maßnahmen, die es je nach Antwort eines Benutzers verursachen. Aufrufen der MsgBox mit kritischen Fehlern umzugehen , einfach den Benutzer auf etwas, oder lassen Sie die Person entscheiden, ob continue.To sehen dies in Aktion , öffnen Sie die Visual Basic 6.0 oder Visual Basic.NET Software. In Visual Basic ein neues Programm , indem Sie auf "Datei ". Wählen Sie "Neues Projekt" aus der Dropdown-Liste und einer "Standard-EXE " aus der Vorlage Liste. In Visual Basic.NET oder Visual Basic 2008 Express Edition , erstellen Sie ein neues Projekt auf die gleiche Weise , aber wählen Sie die "Windows Forms-Anwendung " Erstellen einer Befehlsschaltfläche und drei Labels auf dem Formular durch Klicken und Ziehen diese Tools aus der Toolbox. Klicken Sie auf jedes Etikett in der Eigenschaften -Box auf der rechten Seite , während Sie die Entwurfsansicht und löschen Sie die Caption- Text. Nur um das Beispiel ein wenig benutzerfreundlicher , ändern Sie den Befehl Beschriftung der Schaltfläche in der Liste Eigenschaften auf " Show Me ". Das Formular sollte wie das Bild hier.
Code-Beispiel
In Visual Basic 6 Klicken Sie auf "Ansicht" im Menü und wählen Sie "Code" aus dem Dropdown- Liste. Geben Sie die folgenden Befehle genau wie unten gezeigt. In Visual Basic.NET , wird die Taste " F7 " um das Code-Ansicht . HINWEIS: Die Visual Basic -Schnittstelle fügt automatisch Registerkarten auf einige dieser Linien, die nicht korrekt angezeigt werden in diesem Artikel. Nicht zu kümmern. Die im Lieferumfang enthaltene Bild zeigt , wie die Codierung in der Software erscheinen.
Private Sub Command1_Click () Dim Msg , Style , Titel , ResponseMsg = " Möchten Sie fortfahren?" Style = vbAbortRetryIgnore + + vbCritical vbDefaultButton2 ' define buttons.Title = " MsgBox Demonstration " Antwort = MsgBox ( Msg , Stil, Titel ) If Ansprechzeit = vbAbort ThenLabel1.Caption = " Sie sollten nicht getan haben ! " ElseIf Antwort = vbRetry ThenLabel2.Caption = "Wiederholen Sie wollen alle ; Nichts wird funktionieren ! " ' Führen Sie einige action.Else : Label3.Caption = " ! Das ist die richtige Antwort " MsgBox (" Drücken Sie eine beliebige Taste, um das zu beenden ") If vbOK ThenEndEnd IfEnd IfEnd Sub
