ＷＩＮＣＣ简单制作水管水流动画

详情如下图所示：
1.首先用布化好管道，同时在管道内部画好折线图用以表示水流路径

2.选中折线图调整全局颜色方案

3.选择线条颜色

4.调整线条的线宽和线型

5.效果如下：

6.如下图，选中折线编辑VBS动作，代码如下

Dim pl : Set pl = ScreenItems("折线1")
pl.Index = 1
pl.ActualPointLeft=pl.ActualPointLeft + 1
If pl.ActualPointLeft>219 Then
pl.ActualPointLeft=200
End If

７．更改触发器，如下图

8.添加启动、停止按钮，并给按钮添加ＶＢＳ动作，
如下图，
启动按钮：

Dim pl : Set pl = ScreenItems("折线1")
pl.ActivateDynamic "ActualPointLeft","CycleTime500ms"

停止按钮：

Dim pl : Set pl = ScreenItems("折线1")
pl.DeactivateDynamic "ActualPointLeft"

9.完成之后保存运行，即可