Dim line()
For i=1 To 4
Set line(i)=ScreenItems("线"&i)
line(i).BorderColor=RGB(0,255,0)
line(i).BorderWidth=5
Next
譬如说有四根线,其名称分别为"线1" “线2”—，要做个循环改变其属性，第二句不知道怎么写，希望高人指点
问题补充：
Dim line
Set line=ScreenItems("线124")
line.BorderColor=RGB(0,255,0)
line.BorderWidth=5
单根线能改变，放在按钮点击消息里，单击后能改变，可关闭画面，重新打开，线的属性又回到改变之前了，为什么静态属性改变之后不能保持啊，有什么方法能让它保持呢
最佳答案
Set line(i)=ScreenItems("线"&cstr(i))
你改变的只是RT属性，一旦画面重载即回到CS状态。
可以考虑按钮给变量赋值，线的BorderColor及BorderWidth属性连接至变量。或者如楼上所言在画面打开事件中编写代码。
提问者对于答案的评价：
感谢了
你的回答让我明白了类似的很多道理，以前没怎么编程
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc274995.html
微信扫一扫 
支付宝扫一扫 