Microsoft Office Tutorials and References
In Depth Information
8.2.7 Buttons »Wiederholen« und »Abbrechen«
Die Antwort wird anschließend mit Hilfe einer mehrfachen Verzwei-
gung ausgewertet.
Mehrfache
Verzweigung
8.2.7
Buttons »Wiederholen« und »Abbrechen«
Ein Beispiel mit den Buttons Wiederholen und Abbrechen sowie dem
Zeichen für kritische Warnung:
Kritische Warnung
Abbildung 8.13
Zwei Buttons, Warnung
Der zugehörige Code lautet:
Sub MsgBoxRetryCancel()
If MsgBox("Beim Sichern der Datei trat ein Fehler auf." _
& vbCrLf & "Wollen Sie es noch einmal probieren?" _
& vbCrLf & "Wollen Sie den Vorgang abbrechen?", _
vbRetryCancel Or vbCritical, _
"Fehler bei Sicherung") = vbRetry Then
MsgBox "Sie wollen es noch einmal probieren"
Else
MsgBox "Sie wollen den Vorgang abbrechen"
End If
End Sub
Zur Erläuterung:
Die beiden Buttons Wiederholen und Abbrechen werden mit dem
Zeichen für kritische Warnung verknüpft.
8.2.8
Buttons »Abbrechen«, »Wiederholen« und
»Ignorieren«
Abbildung 8.14 zeigt ein Beispiel mit den drei Buttons Abbrechen, Wie-
derholen und Ignorieren sowie dem Zeichen für Achtung. Der zugehö-
rige Code lautet:
Achtung
Sub MsgBoxAbortRetryIgnore()
Dim Antwort As Integer
Antwort = MsgBox("Beim Sichern trat ein Fehler auf." _
Search JabSto ::




Custom Search