1.以下脚本如何改为CASE语句呢？用VBS
Sub Process_OnPropertyChanged(Byval Item, Byval value)
Dim obj
Set obj=HMIRuntime.Screens("QZGMAIN").ScreenItems("控件1").
If Item.Process=1 Then
obj.Index =3
obj.ItemVisible=1
End If
If Item.Process =2 Then
obj.Index =5
obj.ItemVisible =1
End If
If Item.Process =3 Then
obj.Index =9
obj.ItemVisible =1
End If
End Sub
2.如果我想调用画面窗口中，画面a上得控件1的index属性应该如何写呢？
最佳答案
终于有回答的了。
我也来回答一下：
这个程序，用case并不靠谱，和if语句没多大差别。
正确的方法，应该用数组。
建立一个数组A，内容分别存放(0,3,5,9)
然后，
obj.Index =A(Item.Process)
即可。
提问者对于答案的评价：
3q
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc254612.html
微信扫一扫 
支付宝扫一扫 