Wincc VBS脚本改变圆半径大小

1、新建一个画面，在画面中分别拖入一个圆 对象和圆形按钮对象。

圆对象的名称改为Circlel。

2、在变量管理器中，新建一个C_fill的内部变量，变量类型为32位无符号数，作为圆的半径。

在对象圆的属性对话框中，选择 几何，在半径一项中，小灯泡处右键选择变量C_fill。

3、单击圆形按钮在属性对话框中选择事件栏，选择鼠标项，在左键按下一项中右键选择VBS脚本，打开VBS脚本编辑器。

输入代码函数。

Dim objCircle

Dim objTag

Set objCircle=ScreenItems("Circlel")

Set objTag=HMIRuntime.Tags("C_fill")

objTag.Read

objTag.Value=objTag.Value+18

objTag.Write

objCircle.Radius=objTag.Value

实现每次按下鼠标左键，圆半径加大18

4、在右键按下右键选择VBS脚本，打开VBS脚本编辑器。

输入代码函数

Dim objCircle

Dim objTag

Set objCircle=ScreenItems("Circlel")

Set objTag=HMIRuntime.Tags("C_fill")

objTag.Read

objTag.Value=objTag.Value-18

objTag.Write

objCircle.Radius=objTag.Value

实现每次按下鼠标右键，圆半径减小18

5、运行仿真，按下鼠标左键，圆变大，按下鼠标右键，圆变小。