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

Ergebnis 1 bis 6 von 6

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

  1. #1
    Registriert seit
    18.07.2003
    Beiträge
    228
    Danke
    4
    Erhielt 1 Danke für 1 Beitrag

    Standard


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

  2. #2
    Anonymous Gast

    Standard

    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
    Zitieren Zitieren Abfrage Ja/Nein  

  3. #3
    AndyPed ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    18.07.2003
    Beiträge
    228
    Danke
    4
    Erhielt 1 Danke für 1 Beitrag

    Standard

    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 ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    18.07.2003
    Beiträge
    228
    Danke
    4
    Erhielt 1 Danke für 1 Beitrag

    Standard

    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
    Registriert seit
    08.11.2003
    Beiträge
    50
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard

    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 ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    18.07.2003
    Beiträge
    228
    Danke
    4
    Erhielt 1 Danke für 1 Beitrag

    Standard


    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

Ähnliche Themen

  1. Antworten: 5
    Letzter Beitrag: 25.02.2011, 14:30
  2. Antworten: 2
    Letzter Beitrag: 01.05.2009, 13:59
  3. Antworten: 4
    Letzter Beitrag: 05.03.2009, 19:18
  4. FUP - Ausgang nach Reset sicher in "AUS"
    Von Teletrabi im Forum Simatic
    Antworten: 3
    Letzter Beitrag: 06.12.2007, 19:53
  5. Antworten: 16
    Letzter Beitrag: 14.11.2004, 14:05

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •