易语言怎么把超级列表框1的全部数据加入到超级列表框2里.

1、在窗体上添加超级列表框1和超级列表框2和按钮1

2、e语言代码如下：

.版本 2

.支持库 iext

.程序集 窗口程序集_启动窗口

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

.局部变量 计数1, 整数型

.局部变量 计数2, 整数型

.计次循环首 (超级列表框1.取表项数 (), 计数1)

超级列表框2.插入表项 (, 超级列表框1.取标题 (计数1 － 1, 0), , , , 1)

.计次循环首 (超级列表框1.取列数 (), 计数2)

超级列表框2.置标题 (计数1 － 1, 计数2, 超级列表框1.取标题 (计数1 － 1, 1))

.计次循环尾 ()

计数2 ＝ 0

.计次循环尾 ()

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

.局部变量 计数, 整数型

超级列表框1.插入列 (, “aaa”, 100, , , )

超级列表框1.插入列 (, “bbb”, 100, , , )

超级列表框1.插入列 (, “ccc”, 100, , , )

.计次循环首 (5, 计数)

超级列表框1.插入表项 (, “列一条目” ＋ 到文本 (计数), , , , )

超级列表框1.置标题 (计数 － 1, 1, “列二条目” ＋ 到文本 (计数))

超级列表框1.置标题 (计数 － 1, 2, “列二条目” ＋ 到文本 (计数))

.计次循环尾 ()

超级列表框2.插入列 (, “aaa”, 100, , , )

超级列表框2.插入列 (, “bbb”, 100, , , )

超级列表框2.插入列 (, “ccc”, 100, , , )

3、测试环境“易语言5.3”。

.版本

2

.支持库

iext2

.支持库

iext

.程序集

窗口程序集1

.程序集变量

图片文件名组,

文本型,

,

"0"

.程序集变量

临时图片组,

字节集

.程序集变量

图片组,

字节集,

,

"0"

.子程序

_按钮1_被单击

.局部变量

路径,

文本型

.局部变量

临时图片文件名组,

文本型,

,

"0"

.局部变量

变量,

整数型

临时图片文件名组

＝

多文件对话框

(,

“所有图片文件|*.JFIF*.JPG*.JPEG*.JPE*.BMP*.GIF*.ICO|JPEG

图像文件|*.JFIF*.JPG*.JPEG*.JPE|MBP

位图文件

|*.BMP|GIF

动画文件|*.GIF|ICO

图标文件|*.ICO|所有文件|*.*”,

,

,

)

.如果真

(取数组成员数

(临时图片文件名组)

＝

0)

返回

()

.如果真结束

加入成员

(图片文件名组,

临时图片文件名组)

.计次循环首

(取数组成员数

(临时图片文件名组),

变量)

取图象.底图

＝

读入文件

(临时图片文件名组

[变量])

取图象.刷新显示

()

加入成员

(图片组,

快照

(取图象.取窗口句柄

(),

82,

82))

_启动窗口.刷新显示

()

.计次循环尾

()

临时图片组

＝

建空图片组

(82,

82)

.计次循环首

(取数组成员数

(图片组),

变量)

加入图片

(临时图片组,

图片组

[变量],

)

.计次循环尾

()

超级列表框1.表项

＝

{

}

超级列表框1.图片组

＝

临时图片组

.计次循环首

(取图片组图片数

(临时图片组),

变量)

超级列表框1.插入表项

(-1,

取文本右边

(图片文件名组

[变量],

取文本长度

(图片文件名组

[变量])

－

倒找文本

(图片文件名组

[变量],

“\”,

,

真)),

变量

－

1,

,

,

)

.计次循环尾

()

---