用“部分圆”工具画一个1/4圆,取消全局颜色方案,然后可以改变图形颜色,同样再制作一个1/4圆,这两个扇形模拟扇叶效果,把它们拼放在一起如下:
。全选中这两个部分圆,右键-自定义对象-创建,将两个部分圆的起始角度、结束角度属性拖拽到自定义控件几何属性集下面。属性名称分别修改为startangle1、startangle2、endangel1、endangle2。
然后在自定义控件属性-几何-起始角度1,右键-添加以下vbs脚本,触发器500ms:
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.endangle1=360 Then
item.endangle1=0
End If
If item.endangle2=360 Then
item.endangle2=0
End If
End Function
保存后就可以添加到控件库了,添加和引用控件库控件的方法不再做介绍,运行时,每500ms转动45°的效果。
想转的更快可以改变出发时间间隔,改成250ms会更快。