Hallo Obbi,
msgbox „Hallo, wie geht es Ihnen?“,60,„Umfrage“
Die 60 steht dafür das in der Box der Button „ok“ steht.
dazu kenne ich nur die nachstehende Liste der MsgBox in (Excel-) Vba.
VB5.0 ist ähnlich (ich glaub die letzten 4 fehlen dort)
Wie bekomme ich es nun hin, das ich z.B.jetzt 2
Antwortmöglichkeiten habe, wie eben „Ja“ oder „Nein“, die man
dann aber umbennen kann. Beispielsweise passend zur Frage, in:
„gut“ oder „schlecht“.
Mit einer (User-) Form anstelle der MsgBox ginge das in Vba und VB.
Fragt sich ob VBS eine Form kennt.
Des weiteren würde mich interessieren ob es möglich ist, dass
nach der Antwort auswahl z.B. auf „gut“, sich eine neue
message box öffnet wo dann drin steht „Das freut mich“. Halt
eben diese Wortspiele wie es auf manchen Webseiten auch ist.
Man schließt eine Box und schwupps öffnet sich eine andere.
Abgesehen vom oben geschriebenen prinzipiell so:
Ausw = MsgBox(„Text1“, 2, „Text2“)
If Ausw = vbRetry Then MsgBox „gut gemacht“
Gruß
Reinhard
vbOKOnly 0 Nur die Schaltfläche OK anzeigen.
VbOKCancel 1 Schaltflächen OK und Abbrechen anzeigen.
VbAbortRetryIgnore 2 Schaltflächen Abbruch, Wiederholen
und Ignorieren anzeigen.
VbYesNoCancel 3 Schaltflächen Ja, Nein und Abbrechen anzeigen.
VbYesNo 4 Schaltflächen Ja und Nein anzeigen.
VbRetryCancel 5 Schaltflächen Wiederholen und Abbrechen anzeigen.
VbCritical 16 Meldung mit Stop-Symbol anzeigen.
VbQuestion 32 Meldung mit Fragezeichen-Symbol anzeigen.
VbExclamation 48 Meldung mit Ausrufezeichen-Symbol anzeigen.
VbInformation 64 Meldung mit Info-Symbol anzeigen.
VbDefaultButton1 0 Erste Schaltfläche ist Standardschaltfläche.
VbDefaultButton2 256 Zweite Schaltfläche ist Standardschaltfläche.
VbDefaultButton3 512 Dritte Schaltfläche ist Standardschaltfläche.
VbDefaultButton4 768 Vierte Schaltfläche ist Standardschaltfläche.
VbApplicationModal 0 An die Anwendung gebunden. Der
Benutzer muß auf das Meldungsfeld
reagieren, bevor er seine Arbeit mit
der aktuellen Anwendung fortsetzen
kann.
VbSystemModal 4096 An das System gebunden. Alle
Anwendungen werden unterbrochen,
bis der Benutzer auf das Meldungsfeld
reagiert.
vbMsgBoxHelpButton 16384 Adds Help button to the message box
VbMsgBoxSetForeground 65536 Specifies the message box window as
the foreground window
vbMsgBoxRight 524288 Text is right aligned
vbMsgBoxRtlReading 1048576 Specifies text should appear as right-
to-left reading on Hebrew and Arabic
systems
Die erste Gruppe von Werten (0 - 5) beschreibt die Anzahl und den Typ der im Dialogfeld angezeigten Schaltflächen. Die zweite Gruppe (16, 32, 48, 64) beschreibt die Symbolart. Die dritte Gruppe (0, 256, 512) legt die Standardschaltfläche fest. Die vierte Gruppe (0, 4096) legt fest, in welcher Form das Dialogfeld gebunden ist. Verwenden Sie beim Addieren der Zahlen zu einem Gesamtwert für das Argument buttons nur eine Zahl aus jeder Gruppe.
Anmerkung Diese Konstanten sind durch Visual Basic für Applikationen festgelegt. Daher können die Namen an einer beliebigen Stelle im Code anstelle der tatsächlichen Werte verwendet werden.
Rückgabewerte
Konstante Wert Beschreibung
vbOK 1 OK
vbCancel 2 Abbrechen
vbAbort 3 Abbruch
vbRetry 4 Wiederholen
vbIgnore 5 Ignorieren
vbYes 6 Ja
vbNo 7 Nein
