搬家第三天-44.Wincc V7.3 自定义控件制作（3）-运转风扇效果进阶

上一篇博客中，介绍了制作运转效果风扇的制作方法。但这种运转效果只适合需要运转的时候，有时候风机实际没有运转，我们不希望看到这种运转效果，这时候我们就希望完善一下这种风机控件功能。我们在页面上放置扇叶之后是这个样子：同样的我们再制作两个扇叶拼接在一起，是这个样子：

把红色和绿色扇叶重叠在一起。全选四片扇叶，右键-自定义对象-创建，把四个扇形的起始角度、终止角度、可见性都拖拽到自定义对象的属性集里面，属性名称分别为startangle1、startangle2、startangle3、startangle4、endangle1、endangle2、endangle3、endangle4、visible1、visible2、visible3、visible4。在起始角度1属性加入以下vbs脚本：

Function StartAngle1_Trigger(ByVal Item)
item.startangle1=item.startangle1+45
item.endangle1=item.endangle1+45
item.startangle2=item.startangle2+45
item.endangle2=item.endangle2+45
If item.visible =True Then
  item.visible3=False
  item.visible4=False
  If item.endangle1=360 Then
    item.endangle1=0
  End If
  If item.endangle2=360 Then
    item.endangle2=0
  End If
  item.visible1=True
  item.visible2=True
Else
  item.visible1=False
  item.visible2=False
  item.visible3=True
  item.visible4=True
End if
End Function

     我们在项目实际应用中，把自定义控件的可见性属性vislble和一个外部变量连接，通常是风机的运行反馈信号，当风机运行时，显示绿色的叶片旋转效果，当风即停止时，显示红色叶片停止效果。此外，借助线条勾勒，就可以扩展做出皮带运转效果了。

标签：控件,V7.3,自定义,endangle1,item,endangle2,False,运转
来源： https://www.cnblogs.com/fishingsriver/p/14351550.html