找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
to 小路& Zaxife:
谢谢你们的热心帮助,我有空来尝试一下你们的方法,然后打个包也上传上来供大家使用。
小程序查看
手机扫码追踪该问题
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
我的是这样做的:
5张图片,0为停止,1~4为四种旋转状态的图片。
动作条件为在页面中添加一个矩形,默认为背景闪烁_快速,最后在对象改变的动作里面添加下来VBS:
Sub OnObjectChanged(ByVal Item)
Dim Num
Dim Num1
Dim Bit13
Num = ScreenItems("FanNum").outputvalue '旋转数值
Num1 = ScreenItems("State1").outputvalue
Bit13 = Num1 And 4096 '取整数的13位为条件
If Num < 4 Then
Num = Num +1 '改变风机图片
Else
Num = 1
End If
ScreenItems("FanNum").outputvalue = Num
If Bit13 = 0 Then ScreenItems("Fan0").Visible = 1 Else ScreenItems("Fan0").Visible = 0 '停止显示
If Num = 1 Then ScreenItems("Fan1").Visible = 1 Else ScreenItems("Fan1").Visible = 0
If Num = 2 Then ScreenItems("Fan2").Visible = 1 Else ScreenItems("Fan2").Visible = 0
If Num = 3 Then ScreenItems("Fan3").Visible = 1 Else ScreenItems("Fan3").Visible = 0
If Num = 4 Then ScreenItems("Fan4").Visible = 1 Else ScreenItems("Fan4").Visible = 0
End Sub
<完>
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!