图 片框

为兴趣努力

我想做一个图 片框程序，有两个按钮，能看到上一张图 片，下一张片图 片，请高手帮忙
    图 片框1.图 片 ＝ #图 片1
    图 片框1.图 片 ＝ #图 片2
    图 片框1.图 片 ＝ #图 片3
    图 片框1.图 片 ＝ #图 片4
    图 片框1.图 片 ＝ #图 片5
    图 片框1.图 片 ＝ #图 片6

阿发

按钮1被点击时，图 片框.图 片 = 图 片路径
时间仓促。。。

小石头2011

你用多个图片框叠加 然后用显示 和 隐藏 试试看行不

yaoming110

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. .程序集变量 a, 整数型
   
5. 
   
6. .子程序 _按钮1_被单击
   
7. 
   
8. a ＝ a ＋ 1
   
9. .如果 (a ＞ 0 且 a ＜ 7)
   
10.     图片框1.图片=多项选择(a, #图片1,#图片2,#图片3,#图片4,#图片5,#图片6)
    
11. .否则
    
12.     a ＝ 0
    
13. .如果结束
    
14. 
    
15. 
    
16. 
    
17. 
    
18. .子程序 _按钮2_被单击
    
19. 
    
20. a ＝ a － 1
    
21. .如果 (a ＞ 0 且 a ＜ 7)
    
22.     图片框1.图片=多项选择(a, #图片1,#图片2,#图片3,#图片4,#图片5,#图片6)
    
23. .否则
    
24.     a ＝ 0
    

复制代码

柳叶飞

1. 
   
2. 
   
3. .版本 2
   
4. .程序集 窗口程序集1
   
5. .程序集变量 图片, 字节集, , "0"
   
6. .程序集变量 程序集_当前位置, 整数型
   
7. .子程序 __启动窗口_创建完毕
   
8. 图片 ＝ { #图片1, #图片2, #图片3 }
   
9. 图片框1.图片 ＝ 图片 [1]
   
10. 程序集_当前位置 ＝ 1
    
11. 
    
12. .子程序 _按钮_上一张_被单击
    
13. .如果真 (程序集_当前位置 ＝ 1)
    
14.     信息框 (“当前已是第一张”, 0, )
    
15.     返回 ()
    
16. .如果真结束
    
17. 程序集_当前位置 ＝ 程序集_当前位置 － 1
    
18. 图片框1.图片 ＝ 图片 [程序集_当前位置]
    
19. 
    
20. .子程序 _按钮_下一张_被单击
    
21. .如果真 (程序集_当前位置 ＝ 取数组成员数 (图片))
    
22.     信息框 (“当前已是最后一张”, 0, )
    
23.     返回 ()
    
24. .如果真结束
    
25. 程序集_当前位置 ＝ 程序集_当前位置 ＋ 1
    
26. 图片框1.图片 ＝ 图片 [程序集_当前位置]
    

复制代码