WebstyleZ.Net

MsgBoxen erweitern

!!!!!Alle Rechtschreibfehler sind beabsichtigt, und dienen der Unterhaltung!!!!!

In diesem Tutorial werden die verschiedenen Formen der MsgBox
gezeigt und deren Funktion erklärt.

1.) MsgBox
1.1.) Eine normale MsgBox fügt ihr mit folgendem Code ein:
msgbox "Hey du da!"
1.2.) Wollt ihr eine MsgBox mit einem bestimmten Zeichen, müsst ihr
nach dem Code der normalen MsgBox ein wenig erweitern:
>Fehler: msgbox "Hey du da!", vbcritical
>Info: msgbox "Hey du da!", vbInformation
>Ausruf: msgbox "Hey du da!", vbExclamation
>Frage: msgbox "Hey du da!", vbQuestion

1.3.) Eine MsgBox kann auch mehrere möglichkeiten zur bestätigung
haben. So kann man dann z.B. zwischen Ja/Nein oder Ok/Abbruch
auswählen. Der Code ist ähnlich wie bei 1.2.):
>Ja/nein: msgbox "Hey du da!", vbyesno
>Ja/nein/abbruch: msgbox "Hey du da!", vbYesNoCancel
>ok/abbruch: msgbox "Hey du da!", vbOKCancel
>ok/Hilfe: msgbox "Hey du da!", vbMsgBoxHelpButton
>wiederh./abbruch: msgbox "Hey du da!", vbRetryCancel
Das waren jetzt die wichtigeren.

1.4.) Jetzt müssen die verschiedenen Auswahlmöglichkeiten noch
ausprogrammiert werden. Dazu wird der rückgabewert der
MsgBox in der Variable antwort gespeichert und
dannach mit einer Abfrage überprüft.
Wichtig ist, das ihr jetzt alle Parameter
nach dem Befehl MsgBox in Klammern setzt:

antwort = MsgBox("Möchten sie Senf dazu?", vbYesNo)
If antwort = vbNo Then
MsgBox "dann halt nicht"
Else
MsgBox "ist leider aus"
End If

Falls wir Nein Auswählen, wird in die Variable der Wert der
Konstanten vbNo eingespeichert.
Mit der Abfrage überprüfen wir, ob antwort gleich vbno ist.
Wenn ja, dann kommt die Meldung dann halt nicht, andernfalls
die Meldung ist leider aus.

Als Konstanten zur Überprüfung der Werte stehen euch:
>vbno, vbyes, vbok, vbcancel und vbretry zur verfügung.

1.5.) Ihr könnt auch 1.2.) mit den Auswahlmöglichkeiten verbinden.
Zum verbinden setzt einfach ein Plus zwischen den Anweisungen:
>Fehler/Yes/no: MsgBox("Möchten sie Senf dazu?", vbYesNo + vbCritical)



Hier noch mal der letzte MsgBox-Code im ganzen:


Option Explicit 'Variablen müssen deklariert werden
Dim antwort As Variant 'Deklariere antwort als Variant

Private Sub Command1_Click() 'Bei Klick auf Command1-Button
'werden die nachstehenden Befehle ausgeführt

antwort = MsgBox("Möchten sie Senf dazu?", vbYesNo + vbCritical)
If antwort = vbNo Then 'Wenn antwort den Wert vbno hat dann...
MsgBox "dann halt nicht" '...erscheint folgende Nachricht
Else 'andernfalls diese
MsgBox "hier bitte"
End If

End Sub