滚动图片的问题

252baiqiang

下面是一个图片左右滚动的代码，控件设置位置的地方不明白，我用红字标出，还有我做出来的向右到不了头，向右只移动很小距离
空间 滚动图片
整型 水平位置，左边位置，右边位置
    逻辑型 向左
控件.设置位置("图片框0",水平位置,0,50,60,1)   //水平位置是啥意思，这不是位置坐标吗，怎么不写数字，写文字
功能 逻辑型 定时器0_时钟()
    如果(向左)
      水平位置=水平位置-10
    如果(水平位置<左边位置)
      向左=假
    如果结束
否则
    水平位置=水平位置+10
   如果(水平位置>右边位置)
   向左=真
   如果结束
如果结束
返回 真
功能结束

功能 逻辑型 初始化()
左边位置=0
右边位置=500-150
返回 真
功能结束

空间结束

subugui

这是我以前做的有两个控件..一个上下移动..一个左右移动..你可以参考一下..
新建一个项目.名称.滚动效果.
添加两个图片框..一个时钟控件.
在图形界面.记得添加[   窗口初始化事件..  还有时钟也要在图形界面添加   时钟事件

然后进入T文件....

删除里面的所有代码..
把以下的代码复制进去...

1. 空间 滚动效果
   
2.   整型 左边位置,右边位置,水平位置,垂直位置,上边位置,下边位置
   
3.   逻辑型 向左,向下
   
4. 功能 逻辑型 初始化()
   
5. 左边位置 = 0
   
6. 右边位置 = 653 - 290
   
7. 上边位置 = 0
   
8. 下边位置 = 489-262
   
9. 垂直位置 = 上边位置  
   
10. 水平位置 = 右边位置
    
11. 向左=真
    
12. 向下=真
    
13. 返回 真
    
14. 功能结束
    
15. 功能 逻辑型 定时器0_时钟()   
    
16.   控件.设置位置("图片框0",0,垂直位置,100,262,1)
    
17.   如果(向下)
    
18.       垂直位置 = 垂直位置 + 10
    
19.       如果(垂直位置>下边位置)
    
20.           向下 = 假
    
21.       如果结束
    
22.   否则
    
23.       垂直位置 = 垂直位置 - 10
    
24.        如果(垂直位置 < 上边位置)
    
25.            向下 = 真
    
26.        如果结束
    
27.   如果结束      
    
28.   控件.设置位置("图片框1",水平位置,0,50,80,1)
    
29.   如果(向左)
    
30.   水平位置 = 水平位置 - 10
    
31.   如果(水平位置<左边位置)
    
32.       向左 = 假
    
33.   如果结束
    
34.   否则
    
35.       水平位置 = 水平位置 + 10
    
36.       如果(水平位置>右边位置)
    
37.           向左 = 真
    
38.       如果结束
    
39.   如果结束     
    
40. 返回 真
    
41. 功能结束
    
42. 空间结束

复制代码