Popup Fenster "Sind Sie sich sicher ?" Abfrage

[AndyPed]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

weiß jemand wie ich einem Popup-Fenster ne Abfrage wie bei Windows "Sind sie sich sicher ? [Ja] [Nein]" realisieren kann ?

mit dem Skript von TomTom222 klappt das Popupfenster

Dim ausgabe 
Set ausgabe = CreateObject("WScript.Shell") 
ausgabe.Popup "Motorschutzschalter xyz gefallen!",,"Störung"

Weiß jemand was für Parameter ich ändern muss oder wo ich eine vernüftige Anleitung für Wscript finde ?

Thx

 

[Anonymous]

Abfrage Ja/Nein

Hi AndyPed!

Hier ne Lösung:

Dim ausgabe
Set ausgabe = CreateObject("WScript.Shell")
ausgabe.Popup "Sind sie sicher?",,"Frage:",4


Wenn du den letzten Parameter änderst (im Moment 4)
z.B auf 1,2,3... ändern sich die Buttons.

Hab ne gute Anleitung zu Wspcript/VBspript. Werde sie dir morgen per mail zukommen lassen!

PS: Auf MPs oder OPs funktioniert das nicht. Nur bei nem PC nicht bei
WinCE.

Mfg tomtom222

 

[AndyPed]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Tomtom222,

Danke für deine Antwort, wie kann ich bei [Ja] eine funktion auslösen (bit setzen oder rücksetzen) ?

Ne gute Anleitung für Wscript/VBscript wäre natürlich obergeil...

Ich falle jetzt schon vor die auf die Knie.
D A N K E

Ciao

 

[AndyPed]

Hallo,

ich habe eine Lösung:

 Dim ausgabe,abfrage 
Set ausgabe = CreateObject("WScript.Shell") 
abfrage=ausgabe.Popup ("Sind sie sicher?",,"Datensatz löschen",4)
If abfrage=6 Then
Call PtFct.Bit_setzen(PtVar.var)
End If
If abfrage=7 Then
Call PtFct.Bit_rücksetzen(PtVar.var)
End If

Danke an Tomtom222 für den Tipp

Ps.: @Tomtom222 :An der Anleitung wäre ich immer noch interessiert

 

[kaufmann-michael]

Hallo,

habe hier ein kleines Tool, nennt sich MessgeBox. Einfach Stil der Box anklicken und Code wird generiert. Wenn du sowas haben willst, mail mir deine EMailadresse, dann schick ich dir das Tool, ist ja nicht groß.

Gruß
Michael

 

[AndyPed]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Michael,

funktioniert das Teil auch unter ProTool ?
Das Programm lässt keine Messagebox zu, nur ein Popup-Fenster.

Ciao