Popup Fenster "Sind Sie sich sicher ?" Abfrage

AndyPed

Well-known member
Beiträge
254
Punkte Reaktionen
1
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
Code:
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
 
A

Anonymous

Guest
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
 
OP
A

AndyPed

Well-known member
Beiträge
254
Punkte Reaktionen
1
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 :D :D

Ciao
 
OP
A

AndyPed

Well-known member
Beiträge
254
Punkte Reaktionen
1
Hallo,

ich habe eine Lösung:

Code:
 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

Well-known member
Beiträge
58
Punkte Reaktionen
0
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
 
Oben