【ＷＩＮＣＣ制作水管水流动画】

2023-12-16 17:29:27

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

详情如下图所示：
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.完成之后保存运行，即可

文章来源:https://blog.csdn.net/qq_34872835/article/details/135033848
本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。