易语言怎么通过列表框来改变图片框的图片
2个回答
展开全部
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
图片框1.显示方式 = 1
列表框1.清空 ()
列表框1.加入项目 (“图片1”, )
列表框1.加入项目 (“图片2”, )
列表框1.现行选中项 = 0
_列表框1_列表项被选择 ()
.子程序 _列表框1_列表项被选择
.判断开始 (列表框1.取项目文本 (列表框1.现行选中项) = “图片1”)
图片框1.图片 = #图片一
.判断 (列表框1.取项目文本 (列表框1.现行选中项) = “图片2”)
图片框1.图片 = #图片二
.默认
.判断结束
.程序集 窗口程序集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.现行选中项))
---------
.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 目录, 文本型
.程序集变量 文件名, 文本型
.子程序 __启动窗口_创建完毕
图片框1.显示方式 = 1
目录 = 浏览文件夹 (“请选择目录”, 真)
.如果真 (目录 = “”)
目录 = 取运行目录 ()
.如果真结束
文件名 = 寻找文件 (目录 + “\*.jpg”, )
.循环判断首 ()
列表框1.加入项目 (文件名, )
文件名 = 寻找文件 (, )
.循环判断尾 (文件名 ≠ “”)
.子程序 _列表框1_列表项被选择
图片框1.图片 = 读入文件 (目录 + “\” + 列表框1.取项目文本 (列表框1.现行选中项))
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |