Skip to Content

Register Login

Default Header

(header konnte nicht geladen werden)

Navigation

VB error hunting

Created by: manmeet at: 11/6/2008 5:17 AM (2 Replies)

Rating (0)

Thanks 0

3 Entries

11/6/2008 5:17 AM	Rate (0)
manmeet Gold Member Joined: 1/3/2006 Last visit: 1/13/2026 Posts: 726 Rating: (71)	Hi there I want to change the colour of polygon w.r.t 3 values So I wrote this in global script and then activated global script Dim try Dim objPolygon36 Set try = HMIRuntime.Tags("try") Set objPolygon36 = ScreenItems("Polygon36") If try=1 Then objPolygon36.BackColor = RGB(255,0,0) If try=2 Then objPolygon36.BackColor = RGB(0,255,0) If try=3 Then objPolygon36.BackColor = RGB(0,0,255) But its not working color does not chnage why

Suggestion To thank Quote Answer

11/6/2008 11:09 AM	Rate (0)
denniskle Posts: 31 Rating: (1)	Try this: [code] Dim try, objPolygon36 Set try = HMIRuntime.Tags("try") Set objPolygon36 = ScreenItems("Polygon36") try.Read If try.Value = 1 Then ObjPolygon36.BackColor = RGB(255,0,0) Elseif try.Value = 2 Then ObjPolygon36.BackColor = RGB(0,255,0) Elseif try.Value = 3 Then ObjPolygon36.BackColor = RGB(0,0,255) End If [/code] When working with tag values you need to read the tag first.
denniskle Posts: 31 Rating: (1)
Suggestion To thank Quote Answer

11/8/2008 10:19 PM	Rate (0)
manmeet Gold Member Joined: 1/3/2006 Last visit: 1/13/2026 Posts: 726 Rating: (71)	Dear Danniskle Thanks I appreciate your help. Hat off to you. Manmeet

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on