Im Folgenden ein Beispiel aus der WinCC-Onlinehilfe dazu:

I
m folgenden Beispiel zeigen Sie in einem Bildfenster "ScreenWindow" bei Ausführen der Aktion das Bild "test.pdl" an:

'VBS126

Dim objScrWindow

Set objScrWindow = ScreenItems("ScreenWindow")

objScrWindow.ScreenName = "test"

Versuch es mal mit folgendem Skript

Dim obj1, obj2

Set obj1 = HMIRuntime.ActiveScreen.Parent

Set obj2 = HMIRuntime.Screens(HMIRuntime.ActiveScreen.Parent.Parent.AccessPath).ScreenItems(obj1.objectname)

obj2.screenname = "bildname" 'Hier den gewünschten Bildname angeben

Noch ne Version

Dim obj1, obj2, PicName

PicName = "bildname" 'Hier den gewünschten Bildname angeben

If( HMIRuntime.ActiveScreen.ObjectName = HMIRuntime.BaseScreenName ) Then

HMIRuntime.BaseScreenName = PicName

Else

Set obj1 = HMIRuntime.ActiveScreen.Parent

Set obj2 = HMIRuntime.Screens(HMIRuntime.ActiveScreen.Parent.Parent.AccessPath).ScreenItems(obj1.objectname)

obj2.screenname = PicName

End If