标签：控件 V7.3 自定义 endangle1 item endangle2 False 运转

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

把红色和绿色扇叶重叠在一起。全选四片扇叶，右键-自定义对象-创建，把四个扇形的起始角度、终止角度、可见性都拖拽到自定义对象的属性集里面，属性名称分别为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

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。