Beispiel:
Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
Mldg = "Möchten Sie fortfahren ?" ' Meldung definieren.
Stil = vbYesNo + vbCritical + vbDefaultButton2 ' Schaltflächen
' definieren.
Titel = "MsgBox-Demonstration" ' Titel definieren.
Hilfe = "DEMO.HLP" ' Hilfedatei
' definieren.
Ktxt = 1000 ' Kontext für Thema
' definieren.
Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt) ' Meldung anzeigen.
If Antwort = vbYes Then ' Benutzer hat "Ja"
' gewählt.
Text1 = "Ja" ' Operation ausführen.
Else ' Benutzer hat "Nein"
' gewählt.
Text1 = "Nein" ' Operation ausführen.
End If
alle Konstanten: (Konstante, Wert,Beschreibung)
vbOK 1,Schaltfläche OK gedrückt
vbCancel 2,Schaltfläche Abbrechen gedrückt
vbAbort 3,Schaltfläche Abbruch gedrückt
vbRetry 4,Schaltfläche Wiederholen gedrückt
vbIgnore 5,Schaltfläche Ignorieren gedrückt
vbYes 6,Schaltfläche Ja gedrückt
vbNo 7,Schaltfläche Nein gedrückt
für die Variable Stil gibt es noch folgende Konstanten
MsgBox-Argumente
Konstante Wert Beschreibung
vbOKOnly 0 Nur Schaltfläche OK (Voreinstellung)
vbOKCancel 1 Schaltflächen OK und Abbrechen
vbAbortRetryIgnore 2 Schaltflächen Abbruch, Wiederholen und Ignorieren
vbYesNoCancel 3 Schaltflächen Ja, Nein und Abbrechen
vbYesNo 4 Schaltflächen Ja und Nein
vbRetryCancel 5 Schaltflächen Wiederholen und Abbrechen
vbCritical 16 Meldung für kritischen Fehler
vbQuestion 32 Warnung mit Abfrage
vbExclamation 48 Warnmeldung
vbInformation 64 Informationsmeldung
vbDefaultButton1 0 Erste Schaltfläche ist Voreinstellung (Voreinstellung)
vbDefaultButton2 256 Zweite Schaltfläche ist Voreinstellung
vbDefaultButton3 512 Dritte Schaltfläche ist Voreinstellung
vbDefaultButton4 768 Vierte Schaltfläche ist Voreinstellung
vbApplicationModal 0 An die Anwendung gebundenes Meldungsfeld (Voreinstellung)
vbSystemModal 4096 An das System gebundenes Meldungsfeld
|