如何修改为case语句vbs问题
郑志武
发布于2012-11-20 00:01
239
0
标签：
1.以下脚本如何改为case语句呢？用vbs
subprocess_onpropertychanged(byvalitem,byvalvalue)
dimobj
setobj=hmiruntime.screens("qzgmain").screenitems("控件1").
ifitem.process=1then
obj.index=3
obj.itemvisible=1
endif
ifitem.process=2then
obj.index=5
obj.itemvisible=1
endif
ifitem.process=3then
obj.index=9
obj.itemvisible=1
endif
endsub
2.如果我想调用画面窗口中，画面a上得控件1的index属性应该如何写呢？
佳答案
终于有回答的了。
我也来回答一下：
这个程序，用case并不靠谱，和if语句没多大差别。
正确的方法，应该用数组。
建立一个数组a，内容分别存放(0,3,5,9)
然后，
obj.index=a(item.process)
即可。
