易语言怎么通过列表框来改变图片框的图片

.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
图片框1.显示方式 ＝ 1
列表框1.清空 ()
列表框1.加入项目 (“图片1”, )
列表框1.加入项目 (“图片2”, )
列表框1.现行选中项 ＝ 0
_列表框1_列表项被选择 ()

.子程序 _列表框1_列表项被选择
.判断开始 (列表框1.取项目文本 (列表框1.现行选中项) ＝ “图片1”)
图片框1.图片 ＝ #图片一
.判断 (列表框1.取项目文本 (列表框1.现行选中项) ＝ “图片2”)
图片框1.图片 ＝ #图片二
.默认

.判断结束

说明：在“启动窗口”中放一个“列表框1”和一个“图片框1”，程序运行时，会出来一个“请选择目录”的浏览文件夹对话框，点击里面“文件夹”，找到放有JPG图片的文件夹，点“确定”按钮，如果没有选择目录，默认是程序运行的文件夹，然后“列表框1”会显示该目录下所有后缀名为“.JPG”的文件，点击“列表框1”中的文件名，图片框中就会出现该图片，从而实现预览图片的功能。
---------
.版本 2
.支持库 shell

.程序集 窗口程序集1
.程序集变量 目录, 文本型
.程序集变量 文件名, 文本型

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

图片框1.显示方式 ＝ 1
目录 ＝ 浏览文件夹 (“请选择目录”, 真)
.如果真 (目录 ＝ “”)
目录 ＝ 取运行目录 ()
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “\*.jpg”, )
.循环判断首 ()
列表框1.加入项目 (文件名, )
文件名 ＝ 寻找文件 (, )
.循环判断尾 (文件名 ≠ “”)

.子程序 _列表框1_列表项被选择

图片框1.图片 ＝ 读入文件 (目录 ＋ “\” ＋ 列表框1.取项目文本 (列表框1.现行选中项))