TC官方合作论坛

标题: 关于滚动图片 [打印本页]

作者: huang120 时间: 2012-8-26 16:49
标题: 关于滚动图片
求高手给个滚动图片的代码

作者: QQ784948200 时间: 2012-8-26 16:51
空间滚动效果

整型左边位置,右边位置,水平位置,垂直位置,上边位置,下边位置
逻辑型向左,向下
功能逻辑型开始_点击()
//这里添加你要执行的代码

返回真
//函数返回语句
功能结束

功能逻辑型退出_点击()
//这里添加你要执行的代码
辅助.退出()

返回真
//函数返回语句
功能结束

功能逻辑型定时器0_时钟()
控件.设置位置("图片框0",水平位置,0,50,80,1)
如果(向左)
水平位置=水平位置-10
如果(水平位置<左边位置)
      向左=假
如果结束
否则
水平位置=水平位置+10
如果(水平位置>右边位置)
      向左=真
如果结束
如果结束

控件.设置位置("图片框1",0,垂直位置,50,80,1)
如果(向下)
垂直位置=垂直位置+10
如果(垂直位置>下边位置)
      向下=假
如果结束
否则
垂直位置=垂直位置-10
如果(垂直位置<上边位置)
      向下=真
如果结束
如果结束

返回真
功能结束

功能逻辑型初始化()
左边位置=0
右边位置=490-180

上边位置=0
下边位置=339-149
垂直位置=下边位置
  返回真
功能结束

空间结束
//空间结束语句                         望采纳如果还不懂的话                去看教程http://www.tyuyan.com/jiaocheng/video-1-3.html

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)