图片框依次读入图片

aeyizhan

12个图片框（图片框1-图片框12）

上下页按钮（上一页  下一页按钮）

1000张图片（image1.jpg - image1000.jpg）

第一页，图片框读image1.jpg - image12.jpg
第二页，图片框读image13.jpg - image-24.jpg
依次类推。。。

qq780571

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 计数, 整数型

.子程序 __启动窗口_创建完毕


计数 ＝ 1

.子程序 _按钮_下一页_被单击

.如果真 (计数 ＜ 1000 ÷ 12)
    计数 ＝ 计数 ＋ 1
.如果真结束
子程序1 ()

.子程序 _按钮_上一页_被单击

.如果真 (计数 ＞ 1)
    计数 ＝ 计数 － 1
.如果真结束
子程序1 ()

.子程序 子程序1

图片框1.图片 ＝ 取运行目录 () ＋ “\image” ＋ 到文本 ((计数 － 1) × 12 ＋ 1) ＋ “.jpg”
图片框2.图片 ＝ 取运行目录 () ＋ “\image” ＋ 到文本 ((计数 － 1) × 12 ＋ 2) ＋ “.jpg”
' 省略你自己补....这是比较笨的办法
图片框12.图片 ＝ 取运行目录 () ＋ “\image” ＋ 到文本 ((计数 － 1) × 12 ＋ 12) ＋ “.jpg”

hellohexiang

先学习基础知识再说吧 写个程序 什么都求助  有意思吗