关于滚动图片

huang120

求高手给个滚动图片的代码

QQ784948200

空间 滚动效果

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

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

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

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


功能 逻辑型 定时器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