-> Hier kostenlos registrieren
Moin,
bin zurzeit dabei eine Visu mit WinCC TIA V16 Prof zu bearbeiten. Mit einem Button öffne ich jetzt ein Bildfenster, hier habe ich aber den genauen Bildpfad angegeben. So wie im ersten Code.
Nun wollte ich das ganze so hinbekommen, dass das Skript sich selber das richtige Bildfenster rausucht. Nun ist es ja nicht möglich zwei Objekte mit dem gleichen Namen zuhaben. Deswegen versuche ich gerade den Namen zusammenzusetzen. Siehe "Sektion+Button", geht das überhaupt und wenn ja wie? Oder gibt es eine Möglichkeit die Beschriftung vom Button über VBS auszulesen? Dann könnte man sich das zusammensetzen sparen.
Danke.
bin zurzeit dabei eine Visu mit WinCC TIA V16 Prof zu bearbeiten. Mit einem Button öffne ich jetzt ein Bildfenster, hier habe ich aber den genauen Bildpfad angegeben. So wie im ersten Code.
Code:
ActivateScreenInScreenWindow "Bild_1", "11P21", "BF2"
Set BildfensterObj = HMIRuntime.Screens("Bild_1").ScreenItems("11P21")Nun wollte ich das ganze so hinbekommen, dass das Skript sich selber das richtige Bildfenster rausucht. Nun ist es ja nicht möglich zwei Objekte mit dem gleichen Namen zuhaben. Deswegen versuche ich gerade den Namen zusammenzusetzen. Siehe "Sektion+Button", geht das überhaupt und wenn ja wie? Oder gibt es eine Möglichkeit die Beschriftung vom Button über VBS auszulesen? Dann könnte man sich das zusammensetzen sparen.
Code:
Dim BildfensterObj
Dim Button
Dim Sektion
Dim H_Bild
'Bekomme Button Name/ Titel wäre besser.
Button = HMIRuntime.ActiveScreen.ActiveScreenItem.ObjectName
GetParentScreen(H_Bild)
Sektion = "11"
ActivateScreenInScreenWindow H_Bild, Sektion+Button, "BF2"
Set BildfensterObj = HMIRuntime.Screens("Bild_1").ScreenItems("11P21")
If BildfensterObj.Visible = True Then
BildfensterObj.Visible = False ' Schaltet das Bildfenster unsichtbar
'Setzt die Sichtbarkeit des Bidlfenster auf True, über die Schaltfläche Schließen wird diese wieder auf 'False gesetzt
Else
BildfensterObj.Visible = 1 ' Schaltet das Bildfenster sichtbar
End IfDanke.
