将画面中的矩形背景色设为红色，编了如下代码，将它与矩形属性的背景颜色动态连接 为什么运行状态下，矩形背景颜色不变呢。到底出错在哪里呢
Dim objrectangle
Set objrectangle=screenitems("rectangle1")
objrectangle.backcolor=RGB("255,0,0")
最佳答案
安装你的要求的，要实现的话
请改为
Dim objrectangle
Set objrectangle=screenitems("rectangle1")
objrectangle.backcolor=RGB(255,0,0)
并且检查触发器时间不要设置太长时间，建议1s吧 这样1s后就可以看到变化效果。我已经测试过了，有效！
btw：其实，一般情况是不建议你这么做的，因为你这样做是一个周期性的触发脚本，这样会占用大量的计算机资源。你可以用一个变量的变化，或则是某个事件去触发这个脚本的运行。比如用一个按钮，在这个按钮按下的时候触发。
提问者对于答案的评价：
嗯先谢谢第二位回答者，RGB（）里面的数字的确不能加引号，加了引号，运行看不到效果；另外一个原因是我的代码写的是英文的矩形1，而图中矩形是中文的，我改为中文的就可以了。
对第一位回答者，你好厉害哦，呵呵。为什么这样会占较多计算机资源呢。你说的那种方法我还没试，一会就试。
在此谢谢3位的回答。真的谢谢了哦。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc265869.html
微信扫一扫 
支付宝扫一扫