订阅Wincc VBS脚本改变圆半径大小
来源：网络收集 点击： 时间：2024-07-31新建一个画面，在画面中分别拖入一个圆 对象和圆形按钮对象。
圆对象的名称改为Circlel。
2/5在变量管理器中，新建一个C_fill的内部变量，变量类型为32位无符号数，作为圆的半径。
在对象圆的属性对话框中，选择 几何，在半径一项中，小灯泡处右键选择变量C_fill。
3/5单击圆形按钮在属性对话框中选择事件栏，选择鼠标项，在左键按下一项中右键选择VBS脚本，打开VBS脚本编辑器。
输入代码函数。
Dim objCircle
Dim objTag
SetobjCircle=ScreenItems(Circlel)
Set objTag=HMIRuntime.Tags(C_fill)
objTag.Read
objTag.Value=objTag.Value+18
objTag.Write
objCircle.Radius=objTag.Value
实现每次按下鼠标左键，圆半径加大18
4/5在右键按下右键选择VBS脚本，打开VBS脚本编辑器。
输入代码函数
Dim objCircle
Dim objTag
SetobjCircle=ScreenItems(Circlel)
Set objTag=HMIRuntime.Tags(C_fill)
objTag.Read
objTag.Value=objTag.Value-18
objTag.Write
objCircle.Radius=objTag.Value
实现每次按下鼠标右键，圆半径减小18
5/5运行仿真，按下鼠标左键，圆变大，按下鼠标右键，圆变小。
注意事项如果对您有所帮助，欢迎转载或交流。
驱动WINCC脚本VBS版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_1039722.html
