Quantcast
Channel: SPS-Forum - Automatisierung und Elektrotechnik
Viewing all articles
Browse latest Browse all 46422

TIA WinCC flexibile Adv Projekt 1 VBS funktioniert Projekt 2 VBS funktioniert nicht

$
0
0
Hallo,
ich habe ein kleines VB Skript in dem ich den Aktuellen Bildnamen auslese und in einem Textfeld in einem Template das immer aufgerufen wird ausgebe.

Hintergrund ist der dass der Bildname mit der Bildüberschrift im Bild immer konsistent sein muss.
In dem ersten Projekt geht das ganze im zweiten geht es nicht mehr. Der Fehler liegt bei "activeScreenName" es steht der richtige name darin aber in der Methode .Screens() wird es nicht richtig verarbeitet

HmiRuntime.Screens(activeScreenName).ScreenItems("Screen_Name") -> funktioniert nicht
HmiRuntime.Screens("Anlage").ScreenItems("Screen_Name") -> funktioniert
In activeScreenName steht aber "Anlage"

Code:

'###############Set Screenname###################
'------------------------------------------------
'- declar lokal properties
'------------------------------------------------
Dim activeScreenName
Dim textfield

'------------------------------------------------
'- main
'------------------------------------------------

' get activ screenname
'activeScreenName = HmiRuntime.ActiveScreen.ObjectName
activeScreenName = HmiRuntime.BaseScreenName


' declar textfield as object from template
Set textfield = HmiRuntime.Screens(activeScreenName).ScreenItems("Screen_Name")

' set screenname to outputfield
textfield.ProcessValue = activeScreenName

Irgendwas stinkt hier gewaltig....

Gruß

Viewing all articles
Browse latest Browse all 46422