2个回答
展开全部
第一步:
添加相关组件
第二步代码:
.版本 2
.程序集 窗口程序集1
.程序集变量 文件名, 文本型
.子程序 _按钮2_被单击
.局部变量 文件目录, 文本型
列表框1.清空 ()
文件目录 = 取运行目录 () + “\”
.如果真 (文件目录 ≠ “”)
文件名 = 寻找文件 (文件目录 + “*.jpg”, 32)
.判断循环首 (文件名 ≠ “”)
.如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
列表框1.加入项目 (文件目录 + 文件名, )
.如果真结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
.如果真结束
.子程序 _按钮1_被单击
.局部变量 图片号, 整数型
.局部变量 i, 整数型
.局部变量 颜色值, 文本型
.局部变量 a, 整数型, , "0"
编辑框3.内容 = “”
.计次循环首 (列表框1.取项目数 (), i)
画板1.清除 (, , 画板1.宽度, 画板1.高度)
画板1.刷新显示 ()
图片号 = 载入图片 (列表框1.取项目文本 (i - 1))
画板1.画图片 (图片号, 1, 1, 画板1.宽度 - 2, 画板1.高度 - 2, )
颜色值 = 到文本 (画板1.取点 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容)))
编辑框3.加入文本 (“颜色值” + 到文本 (i) + “【” + 颜色值 + “】 ”)
.计次循环尾 ()
2014-01-07
展开全部
= =...做什么的..
追问
本地电脑的图片文件夹中,取某张图片句柄 做相册的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |