TIA portal script problem

Hi all,

Just messing with TIA portal does anyone know why the following script doesn't work

Sub Vlv1Opening()
Dim objVlv1

Set objVlv1 = HmiRuntime.Screens("Root Screen").ScreenItems("symbol library_1")
objVlv1.ForeColor=RGB(255, 0, 0)
objVlv1.BackColor=RGB(0, 255, 0)
objVlv1.BlinkColor=RGB(0, 0, 255)

End Sub

Regards Andrew

Hallo Andrew

I never used TIA portal but try this one

Sub Vlv1Opening()
Dim objVlv1

Set objVlv1 = HmiRuntime.Screens("Root Screen").Items("symbol library_1")
objVlv1.ForeColor=RGB(255, 0, 0)
objVlv1.BackColor=RGB(0, 255, 0)
objVlv1.BlinkColor=RGB(0, 0, 255)

End Sub

Koen Jochems said:

Hallo Andrew

I never used TIA portal but try this one

Sub Vlv1Opening()
Dim objVlv1

Set objVlv1 = HmiRuntime.Screens("Root Screen").Items("symbol library_1")
objVlv1.ForeColor=RGB(255, 0, 0)
objVlv1.BackColor=RGB(0, 255, 0)
objVlv1.BlinkColor=RGB(0, 0, 255)

End Sub

Click to expand...

Hi,
Thanks for the reply, unfortunately "items" isn't part of the object model, on further investigation I got the script below to work, so all I can assume is the colour properties are the problem.


Sub Vlv1Opening()
Dim objVlv1

Set objVlv1 = HmiRuntime.Screens("Root screen").ScreenItems("Symbol library_1")
objVlv1.Visible = False
Set objVlv1 = Nothing

End Sub


Regards Andrew