TIA VBS zum schließen von Frames

TIAISM

Level-1
Beiträge
100
Reaktionspunkte
4
Zuviel Werbung?
-> Hier kostenlos registrieren
[FONT=&quot]Hey Leute,
ich benötige nochmal eure Hilfe. TIA V14 SP1 Upd 4 - WinCC Prof
Ich habe ein VBS geschrieben das bei Benutzerwechsel getriggert wird.
Das VBS soll beim ausloggen alles Bildfenster, Bilder außer ein paar von mir deklarierten Bildfenster schließen.

Im Anhang befindet sich mein Skript. Leider schließen sich garkeine Frames.
Kann es außerdem sein das ich eine HMI-Runtime Einstellung vergessen, die dafür sorgt das Bilder oder Bildfenster nicht geschlossen werde können?

Dim vScreen[/FONT]

[FONT=&quot] Dim vObject[/FONT]
[FONT=&quot] Dim asNoClosingWindows(3)[/FONT]
[FONT=&quot] Dim iNoClosingIndex[/FONT]
[FONT=&quot] Dim bCloseWindow[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] asNoClosingWindows(0) = "Hauptauswahlfenster"[/FONT]
[FONT=&quot] asNoClosingWindows(1) = "Messwertfenster"[/FONT]
[FONT=&quot] asNoClosingWindows(2) = "Visualisierungsfenster"[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] For Each vScreen In HMIRuntime.Screens [/FONT]
[FONT=&quot] 'HMIRuntime.Trace("vScreen.ObjectName: " & vScreen.ObjectName & vbCrLf)[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] For Each vObject In vScreen.ScreenItems [/FONT]
[FONT=&quot] 'HMIRuntime.Trace("vObject.ObjectName: " & vObject.ObjectName & vbCrLf)[/FONT]
[FONT=&quot] 'HMIRuntime.Trace("vObject.Type: " & vObject.Type & vbCrLf) [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] If vObject.Type = "HMIScreenWindow" Then[/FONT]
[FONT=&quot] 'HMIRuntime.Trace("vObject Is HMIScreenWindow" & vbCrLf)[/FONT]
[FONT=&quot] bCloseWindow = True[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] For iNoClosingIndex = 0 To UBound(asNoClosingWindows) [/FONT]
[FONT=&quot] If vObject.ObjectName = asNoClosingWindows(iNoClosingIndex) Then[/FONT]
[FONT=&quot] bCloseWindow = False[/FONT]
[FONT=&quot] Exit For[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] Next[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] If bCloseWindow Then[/FONT]
[FONT=&quot] vObject.Visible = False[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot] Next[/FONT]
[FONT=&quot] Next[/FONT]
 
Sorry, OT:

Du bist ja schon 'ne Weile im Forum.
Vielleicht ist Dir da ja schon mal aufgefallen, dass die meisten User ihre Code-Auszüge in spezielle Fenster setzen, um die Lesbarkeit deutlich zu erhöhen?

Zum Einen kannst Du die dafür verantwortlichen Code-Tags [Code]...[/Code] vor und hinter Deinem Code selber eintippen oder zum Anderen Deinen Code auch markieren und einfach auf den letzten Button (#) der 2. Icon-Reihe klicken. Die Tags können natürlich auch vor der Code-Eingabe engefügt werden.
Für Dich persönlich hat dies auch noch den Vorteil, dass Du mit Einrückungen im Code arbeiten kannst, die ansonsten ja wieder gelöscht werden.


PS: Das kann man auch noch nachträglich einfügen ...
;)
 
Zurück
Oben