展开全部
第一步:
添加相关组件
第二步代码:
.版本 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) ＋ “【” ＋ 颜色值 ＋ “】 ”)
.计次循环尾 ()
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
