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
Kommentare
beim nächsten mal bitte den code im code fenster anzeigen lassen sieht dann besser aus!!
<br>
<br>sonst is es gtu obwohl das wohl das erste is was man in vb lernt *gg*
Schon, aber bei den meisten bleibts nur bei einer normalen MsgBox und dann jammern sie;" Wie krieg ich da so eine Auswahl hin?".
echt cool...danke, hat ma echt weitergholfen dieses tut...gut gmacht*zwink*....
jo, ich denk auch das es ein wenig unübersichtlich ausschaut und das lernt man eigentlich zum Anfang jedes Buches oder E-Book (also ich jedenfalls).