图片组处理

想学坏的小孩

.版本 2

.程序集 窗口程序集1
.程序集变量 图片画板, 画板, , "0"
.程序集变量 图片号, 整数型, , "0"
.程序集变量 宽, 字节型
.程序集变量 高, 字节型

.子程序 _按钮1_被单击
.局部变量 当前图片数, 字节型

宽 ＝ 到数值 (编辑框1.内容)
高 ＝ 到数值 (编辑框2.内容)
.如果真 (通用对话框1.打开 ())
    当前图片数 ＝ 取数组成员数 (图片画板)
    重定义数组 (图片号, 真, 当前图片数 ＋ 1)
    图片号 [当前图片数 ＋ 1] ＝ 载入图片 (通用对话框1.文件名)
    .如果真 ((画板2.取图片宽度 (图片号 [当前图片数 ＋ 1]) ≠ 宽 或 画板2.取图片高度 (图片号 [当前图片数 ＋ 1]) ≠ 高) 且 选择框1.选中 ＝ 假)
        .如果真 (信息框 (“        所要载入的图片大小为” ＋ 到文本 (画板2.取图片宽度 (图片号 [当前图片数 ＋ 1])) ＋ “×” ＋ 到文本 (画板2.取图片高度 (图片号 [当前图片数 ＋ 1])) ＋ “象素，与设置的” ＋ 编辑框1.内容 ＋ “×” ＋ 编辑框2.内容 ＋ “象素不一致，将根据设置的大小自动缩放。确定要载入吗？” ＋ #换行符 ＋ “        你可以选中选择框” ＋ #左引号 ＋ “自动缩放图片” ＋ #右引号 ＋ “以避免出现本信息框。”, #信息图标 ＋ #确认取消钮, “载入图片”) ＝ #取消钮)
            返回 ()
        .如果真结束

    .如果真结束
    当前图片数 ＝ 取数组成员数 (图片画板)
    重定义数组 (图片画板, 真, 当前图片数 ＋ 1)
    复制窗口组件 (画板2, 图片画板 [当前图片数 ＋ 1])
    图片画板 [当前图片数 ＋ 1].移动 (当前图片数 × 48 ＋ (当前图片数 ＋ 1) × 12, 10, 48, 48)
    图片画板 [当前图片数 ＋ 1].可视 ＝ 真
    图片画板 [当前图片数 ＋ 1].画图片 (图片号 [当前图片数 ＋ 1], 0, 0, 48, 48, )
    .如果真 (图片画板 [当前图片数 ＋ 1].左边 ＋ 60 ＞ 画板1.宽度)
        横向滚动条1.可视 ＝ 真
        横向滚动条1.最大位置 ＝ 图片画板 [当前图片数 ＋ 1].左边 ＋ 60 － 画板1.宽度
        横向滚动条1.位置 ＝ 横向滚动条1.最大位置
        画板5.移动 (－横向滚动条1.最大位置, , , )
    .如果真结束

.如果真结束
按钮2.禁止 ＝ 假

.子程序 _按钮2_被单击
.局部变量 变量1, 整数型

画板4.可视 ＝ 真
画板4.移动 (12, (画板3.高度 － 高) ÷ 2, 取数组成员数 (图片号) × 宽, 高)
.计次循环首 (取数组成员数 (图片号), 变量1)
    画板4.画图片 (图片号 [变量1], (变量1 － 1) × 宽, 0, 宽, 高, )
.计次循环尾 ()
.如果真 (画板4.左边 ＋ 画板4.宽度 ＋ 12 ＞ 画板3.宽度)
    横向滚动条2.可视 ＝ 真
    横向滚动条2.最大位置 ＝ 画板4.左边 ＋ 画板4.宽度 ＋ 12 － 画板3.宽度
    横向滚动条2.位置 ＝ 横向滚动条2.最大位置
    画板4.移动 (12 － 横向滚动条2.最大位置, , , )
.如果真结束
按钮3.禁止 ＝ 假
.如果 (横向滚动条2.可视 ＝ 真)
    _启动窗口.移动 (, , , 326)
.否则
    _启动窗口.移动 (, , , 308)
.如果结束


.子程序 _横向滚动条1_位置被改变

画板5.移动 (－横向滚动条1.位置, , , )

.子程序 _横向滚动条2_位置被改变

画板4.移动 (12 － 横向滚动条2.位置, , , )

.子程序 _按钮4_被单击
.局部变量 变量1, 整数型

.计次循环首 (取数组成员数 (图片号), 变量1)
    画板4.画图片 (图片号 [变量1], (变量1 － 1) × 宽, 0, 宽, 高, )
    卸载图片 (图片号 [变量1])
    图片画板 [变量1].销毁 ()
.计次循环尾 ()
重定义数组 (图片画板, 假, 0)
重定义数组 (图片号, 假, 0)
画板4.清除 (, , , )
画板4.可视 ＝ 假
按钮2.禁止 ＝ 真
按钮3.禁止 ＝ 真
连续赋值 (1, 横向滚动条1.位置, 横向滚动条1.最大位置, 横向滚动条2.位置, 横向滚动条2.最大位置)
横向滚动条1.可视 ＝ 假
横向滚动条2.可视 ＝ 假
画板5.移动 (0, , , )
_启动窗口.移动 (, , , 224)

.子程序 _按钮3_被单击

.如果真 (通用对话框2.打开 ())
    .如果 (写到文件 (通用对话框2.文件名, 画板4.取图片 (, )))
        信息框 (“保存图片组文件” ＋ 通用对话框2.文件名 ＋ “成功！”, #信息图标, “保存图片组”)
    .否则
        信息框 (“保存图片组文件” ＋ 通用对话框2.文件名 ＋ “失败！”, #错误图标, “保存图片组”)
    .如果结束

.如果真结束


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

_启动窗口.移动 (, , , 224)

.子程序 _编辑框1_获得焦点

编辑框1.被选择字符数 ＝ -1

.子程序 _编辑框2_获得焦点

编辑框2.被选择字符数 ＝ -1

.子程序 _编辑框2_内容被改变

.如果真 (到数值 (编辑框2.内容) ＞ 64)
    鸣叫 ()
    编辑框2.内容 ＝ 取文本左边 (编辑框2.内容, 取文本长度 (编辑框2.内容) － 1)
    编辑框2.起始选择位置 ＝ 取文本长度 (编辑框2.内容)
.如果真结束

两个淡

比如图片组1，里面很多图片，我要如何让调用呢？

haiger

先收藏吧，留着用得到

猥琐大叔

{:3_230:}我表示看不懂

hagey

支持支持啊。。。。。。。。。。。

сказка

发反复反复反复反复反复反复反复

虫虫36

.版本 2

.子程序 _编辑框2_内容被改变

.如果真 (到数值 (编辑框2.内容) ＞ 64)
    鸣叫 ()
    编辑框2.内容 ＝ 取文本左边 (编辑框2.内容, 取文本长度 (编辑框2.内容) － 1)
    编辑框2.起始选择位置 ＝ 取文本长度 (编辑框2.内容)

1182410163

没什么用

wc19870727

是更改图片的吗

wc19870727

我找好久找不到,不知道这个是不是我有要的