-> Hier kostenlos registrieren
[FONT="]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="] Dim vObject[/FONT]
[FONT="] Dim asNoClosingWindows(3)[/FONT]
[FONT="] Dim iNoClosingIndex[/FONT]
[FONT="] Dim bCloseWindow[/FONT]
[FONT="] [/FONT]
[FONT="] asNoClosingWindows(0) = "Hauptauswahlfenster"[/FONT]
[FONT="] asNoClosingWindows(1) = "Messwertfenster"[/FONT]
[FONT="] asNoClosingWindows(2) = "Visualisierungsfenster"[/FONT]
[FONT="] [/FONT]
[FONT="] For Each vScreen In HMIRuntime.Screens [/FONT]
[FONT="] 'HMIRuntime.Trace("vScreen.ObjectName: " & vScreen.ObjectName & vbCrLf)[/FONT]
[FONT="] [/FONT]
[FONT="] For Each vObject In vScreen.ScreenItems [/FONT]
[FONT="] 'HMIRuntime.Trace("vObject.ObjectName: " & vObject.ObjectName & vbCrLf)[/FONT]
[FONT="] 'HMIRuntime.Trace("vObject.Type: " & vObject.Type & vbCrLf) [/FONT]
[FONT="] [/FONT]
[FONT="] If vObject.Type = "HMIScreenWindow" Then[/FONT]
[FONT="] 'HMIRuntime.Trace("vObject Is HMIScreenWindow" & vbCrLf)[/FONT]
[FONT="] bCloseWindow = True[/FONT]
[FONT="] [/FONT]
[FONT="] For iNoClosingIndex = 0 To UBound(asNoClosingWindows) [/FONT]
[FONT="] If vObject.ObjectName = asNoClosingWindows(iNoClosingIndex) Then[/FONT]
[FONT="] bCloseWindow = False[/FONT]
[FONT="] Exit For[/FONT]
[FONT="] End If[/FONT]
[FONT="] Next[/FONT]
[FONT="] [/FONT]
[FONT="] If bCloseWindow Then[/FONT]
[FONT="] vObject.Visible = False[/FONT]
[FONT="] End If[/FONT]
[FONT="] [/FONT]
[FONT="] End If[/FONT]
[FONT="] Next[/FONT]
[FONT="] Next[/FONT]
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="] Dim vObject[/FONT]
[FONT="] Dim asNoClosingWindows(3)[/FONT]
[FONT="] Dim iNoClosingIndex[/FONT]
[FONT="] Dim bCloseWindow[/FONT]
[FONT="] [/FONT]
[FONT="] asNoClosingWindows(0) = "Hauptauswahlfenster"[/FONT]
[FONT="] asNoClosingWindows(1) = "Messwertfenster"[/FONT]
[FONT="] asNoClosingWindows(2) = "Visualisierungsfenster"[/FONT]
[FONT="] [/FONT]
[FONT="] For Each vScreen In HMIRuntime.Screens [/FONT]
[FONT="] 'HMIRuntime.Trace("vScreen.ObjectName: " & vScreen.ObjectName & vbCrLf)[/FONT]
[FONT="] [/FONT]
[FONT="] For Each vObject In vScreen.ScreenItems [/FONT]
[FONT="] 'HMIRuntime.Trace("vObject.ObjectName: " & vObject.ObjectName & vbCrLf)[/FONT]
[FONT="] 'HMIRuntime.Trace("vObject.Type: " & vObject.Type & vbCrLf) [/FONT]
[FONT="] [/FONT]
[FONT="] If vObject.Type = "HMIScreenWindow" Then[/FONT]
[FONT="] 'HMIRuntime.Trace("vObject Is HMIScreenWindow" & vbCrLf)[/FONT]
[FONT="] bCloseWindow = True[/FONT]
[FONT="] [/FONT]
[FONT="] For iNoClosingIndex = 0 To UBound(asNoClosingWindows) [/FONT]
[FONT="] If vObject.ObjectName = asNoClosingWindows(iNoClosingIndex) Then[/FONT]
[FONT="] bCloseWindow = False[/FONT]
[FONT="] Exit For[/FONT]
[FONT="] End If[/FONT]
[FONT="] Next[/FONT]
[FONT="] [/FONT]
[FONT="] If bCloseWindow Then[/FONT]
[FONT="] vObject.Visible = False[/FONT]
[FONT="] End If[/FONT]
[FONT="] [/FONT]
[FONT="] End If[/FONT]
[FONT="] Next[/FONT]
[FONT="] Next[/FONT]