Microsoft Office Tutorials and References
In Depth Information
8.2.6 Drei Buttons, Default-Button
Eine mögliche Antwort:
Abbildung 8.11
Button »Nein« betätigt
8.2.6 Drei Buttons, Default-Button
Ein Beispiel mit Buttons für Ja, Nein und Abbrechen. Diesmal ist der
zweite Button der Default-Button:
Abbildung 8.12
Drei Buttons, Default: »Nein«
Der zugehörige Code:
Sub MsgBoxYesNoCancel()
Dim Antwort As Integer
Antwort = MsgBox("Soll die Datei gesichert werden?", _
vbYesNoCancel Or vbDefaultButton2, "Sicherung")
If Antwort = vbYes Then
MsgBox "Sie wollen die Datei sichern"
ElseIf Antwort = vbNo Then
MsgBox "Sie wollen die Datei nicht sichern"
Else
MsgBox "Sie wollen den Vorgang abbrechen"
End If
End Sub
Zur Erläuterung:
Die drei Buttons Ja, Nein und Abbrechen werden verknüpft mit dem
Verhalten DefaultButton2 . Betätigt der Benutzer also die Taste (¢) ,
so entspricht dies der Antwort Nein bzw. dem zweiten Button.
DefaultButton
Da der Benutzer drei Möglichkeiten hat, muss seine Antwort gespei-
chert werden.
Search JabSto ::




Custom Search