国产麻豆成人传媒免费观看_日韩欧美推理片中文字幕_www.夜夜草_71婷婷综合精品一区二区三区_日日日日做夜夜夜夜无码91_国产在线观看一区二区三区_在线免播放器_欧美tv_色一情一乱一伦一区二区三区_日日日www

younthue
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 17 個(gè)
工控威望: 141 點(diǎn)
下載積分: 558 分
在線時(shí)間: 11(小時(shí))
注冊(cè)時(shí)間: 2014-05-14
最后登錄: 2022-04-21
查看younthue的 主題 / 回貼
樓主  發(fā)表于: 2016-09-06 11:07
我創(chuàng)建了一個(gè)畫面窗口，在畫面窗口內(nèi)做了一個(gè)小圓形指示燈，想用這個(gè)小圓形根據(jù)PLC變量的值變換顏色，VBS代碼如下，運(yùn)行結(jié)果顏色不變，全局顏色方案已設(shè)置為否。請(qǐng)幫忙看看是哪里有問題？謝謝！

Function BackColor_Trigger(ByVal Item)
Dim R69
Dim objCircle
Set R69=HMIRuntime.Tags("069HtrDrv1Sts")
Set objCircle=hmiruntime.Screens("ILO2").ScreenItems("圓1")
R69.Read
If R69.Value=4 Then
 objCircle.BackColor=vbRed
Else
 objCircle.BackColor=vbGreen
End if
End Function