看到论坛上很多人在问wincc动画怎么做，趁今天空给大家写了个脚本
效果：看不到请刷新浏览器



演示文档下载地址：
http://115.com/file/c2enl3bh


而且调用相对简单 比如：Call PicPaly("PicItem",10,"风扇") 就可以用了 方便吧具体的下面回说明

下面进入具体的步骤：

1、准备好你需要播放的图片，可以是任意张。但命名要注意图片的命名是

是要遵循一定规则的，格式：****1.jpg ****2.jpg ****3.jpg 等等...........其中'****'为前缀

****这个值随便命名 这个值就是函数的第三个参数 比如有10张风扇的图片你可以命名为 风扇1.jpg 风扇2.jpg 风扇3.jpg 等等......... 第二个参数为图片的数量

2、在你的画面中添加图形对象，并命名好对象名比如为：PicItem 这个就是第一个参数，调整图片的相应尺寸。

3、在你的图形对象的画面属性里添加调用vbs函数：Call PicPaly("PicItem",10,"风扇")

第一个参数为图形对象的名称，第二个参数为图片的数量，第三个为图片的前缀。运行就ok 了

对了需要把下面的函数拷贝到全局脚本中去。


全局脚本：

Function PicPaly(Byval PicItem,Byval PicNum,Byval PicPrefix)
'函数说明：本函数使用VBs脚本编写，使用于需要动画的场合
'本函数的原理是调用多个图片循环播放，形成动画效果，事先用户必须整理好需要播放的图片
'参数说明：Byval PicItem为图片对象的对象名称，Byval PicNum为图片的数量，图片的命名是
'是要遵循一定规则的，格式：***x1.jpg ***x2.jpg ***x3.jpg 等等...........其中'***x'为前缀
'Byval PicPrefix取这个值,***x这个值随便命名
'比如有10张风扇的图片你可以命名为 风扇1.jpg 风扇2.jpg 风扇3.jpg 等等.........
'图像对象的对象名称为PicItem则条用方法为：
'Call PicPaly("PicItem",10,"风扇") 你可以在任意地方调用指定执行周期
Dim PicNow,NowNum,PicNext
PicNow=ScreenItems(PicItem).PictureName
If picNow="" Then
ScreenItems(PicItem).PictureName=GetPicName(PicPrefix,1)
PicNext=GetPicName(PicPrefix,1)
Else
NowNum=CInt(GetPicNum(picNow,PicPrefix))
If NowNum>PicNum Then
ScreenItems(PicItem).PictureName=GetPicName(PicPrefix,1)
PicNext=GetPicName(PicPrefix,1)
Else
NowNum=NowNum+1
PicNext=GetPicName(PicPrefix,NOwNum)
ScreenItems(PicItem).PictureName=PicNext
End If
End If
PicPaly=PicNext
End Function


Function GetPicName(Byval PicPrefix,Byval Num)
GetPicName=PicPrefix&Num&".jpg"
End Function

Function GetPicNum(Byval PicName,Byval PicPrefix)
PicName=Replace(PicName,PicPrefix,"")
PicName=Replace(PicName,".jpg","")
GetPicNum=PicName
End Function

演示文档下载地址：
http://115.com/file/c2enl3bh
需要的朋友顶一下