Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Results 1 to 6 of 6

Thread: Popup Fenster "Sind Sie sich sicher ?" Abfrage

  1. #1
    Join Date
    18.07.2003
    Posts
    254
    Danke
    4
    Erhielt 1 Danke für 1 Beitrag

    Default


    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
    Reply With Quote Reply With Quote Popup Fenster "Sind Sie sich sicher ?" Abfrage  

  2. #2
    Anonymous Gast

    Default

    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
    Reply With Quote Reply With Quote Abfrage Ja/Nein  

  3. #3
    AndyPed is offline Erfahrener Benutzer
    Themenstarter
    Join Date
    18.07.2003
    Posts
    254
    Danke
    4
    Erhielt 1 Danke für 1 Beitrag

    Default

    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

  4. #4
    AndyPed is offline Erfahrener Benutzer
    Themenstarter
    Join Date
    18.07.2003
    Posts
    254
    Danke
    4
    Erhielt 1 Danke für 1 Beitrag

    Default

    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

  5. #5
    Join Date
    08.11.2003
    Posts
    58
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Default

    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

  6. #6
    AndyPed is offline Erfahrener Benutzer
    Themenstarter
    Join Date
    18.07.2003
    Posts
    254
    Danke
    4
    Erhielt 1 Danke für 1 Beitrag

    Default


    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

Similar Threads

  1. Replies: 2
    Last Post: 27.10.2015, 07:50
  2. Replies: 1
    Last Post: 21.01.2015, 09:23
  3. Bescheinigung "sicher Maschine" nach Änderungen an Altanlagen
    By m.adler in forum Maschinensicherheit - Normen und Richtlinien
    Replies: 10
    Last Post: 27.08.2012, 20:56
  4. FUP - Ausgang nach Reset sicher in "AUS"
    By Teletrabi in forum Simatic
    Replies: 3
    Last Post: 06.12.2007, 19:53
  5. Replies: 16
    Last Post: 14.11.2004, 14:05

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •