技术论坛

用“部分圆”工具画一个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会更快。