VbScript

[SsS]

Hey,

also möcht ma gern wissen mit welchem Code man ne einfache ErrorBox erstellt...

Also wenn ich in den Editor schreibe: MsgBox "Test!" und es unter *.vbs abspeicher kommt das hier raus

geht das mit der Errorbox auch so easy ?

[Amstelchen]

VBScript MsgBox Function

dort: vbCritical, vbExclamation

eine errorbox in dem sinne gibt es nicht.

s'Amstel

[SsS]

Kann jmd mal n Beispiel machen ? Z.B ne ErrorBox wo drinne steht "Test" ?

[.vash]

MsgBox "Test!", vbCritical

bitte, war doch nicht schwer ...

[SsS]

Jo danke .vash so wollt ichs eig. wissen ^^ Ich habs mit Msgbox vbCritical "nnn"

und sowas ausprobiert. Nach ddeiner Reihenfolge klappen auch die anderen Tags.

[SsS]

Kann man die Antworten auf die MessageBox auch manuell bestimmen ?

[Amstelchen]

Kann man die Antworten auf die MessageBox auch manuell bestimmen ?

wenn du damit meinst, dass du bei vbOK etwas anderes als 1 erhältst: nein. das ist IMO eine enumeration, die ist so vorgegeben.

s'Amstel

[.vash]

ok Du solltest wissen das vbCritical und alle anderen Werte Konstanten sind die eigentlich einer Zahl entsprechen.

z.B. vbQuestion = 32

vbYesNo = 4

Binär sieht das so aus

 4 = 0000 0100

32 = 0010 0000

     0010 0100 = 4 + 32

Du siehst dass die Konstanten genau einer 1 entsprechen, die man daher einfach addieren kann und so wird eine Variable bzw. Zahl benutzt um mehrere "Flags" zu setzen, die man recht einfach auswerten kann. Probier mal folgenden Code aus (habe ich als wsh job verpackt):

<job id="test">

<script language="vbscript">

option explicit


dim antwort

'antwort = MsgBox("...", vbCritical + vbYesNo)

antwort = MsgBox("...", vbQuestion + vbYesNoCancel, "Frage")


select case antwort

   case vbYes

      msgbox "Ja", vbInformation, "Info"

   case vbNo

      msgbox "Nein", vbExclamation, "Info"

   case vbCancel

      msgbox "Abbruch", vbCritical, "Info"

end select


</script>

</job>