修改一个源码把图片框修成图片路径

咽泪装欢

图片相似度对比源码 (2).zip (2.07 MB, 下载次数: 5)

2020-2-10 22:22 上传

点击文件名下载附件
论坛找的一个源码还挺好用的
但是主要是拖放图片对比
我不想要这样

想要直接用文件路径
比如
修改这2割
比如我有3张图片对比
或者2张图片
用文件路径
不要拖放图片框

麻烦了。功底太差 不会改

初学者1

aigozi 发表于 2020-2-11 13:51
把图片对话框修改成 固定指定图片路径

你要这样子的吗？

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

置随机数种子 ()

子程序名	返回值类型	公开	备 注
图片夹

' 图片文件夹 ＝ “H:\1定制\1ico\”  ' 文件夹自己定
图片文件夹 ＝ 编辑框1.内容
临时 ＝ 寻找文件 (图片文件夹 ＋ “*”, )
加入成员 (图片组, 临时)
循环判断首 ()
临时 ＝ 寻找文件 (, )
如果真 (取文本右边 (临时, 4) ＝ “.jpg”)
加入成员 (图片组, 临时)

循环判断尾 (临时 ≠ “”)
x ＝ 取随机数 (1, 取数组成员数 (图片组))
x1 ＝ 取随机数 (2, 取数组成员数 (图片组))
图片框1.图片 ＝ 读入文件 (图片文件夹 ＋ 图片组 [x])
图片框2.图片 ＝ 读入文件 (图片文件夹 ＋ 图片组 [x1])

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 置随机数种子 ()<br /> <br /> .子程序 图片夹<br /> <br /> ' 图片文件夹 ＝ “H:\1定制\1ico\”  ' 文件夹自己定<br /> 图片文件夹 ＝ 编辑框1.内容<br /> 临时 ＝ 寻找文件 (图片文件夹 ＋ “*”, )<br /> 加入成员 (图片组, 临时)<br /> .循环判断首 ()<br />     临时 ＝ 寻找文件 (, )<br />     .如果真 (取文本右边 (临时, 4) ＝ “.jpg”)<br />         加入成员 (图片组, 临时)<br />     .如果真结束<br /> <br /> .循环判断尾 (临时 ≠ “”)<br /> x ＝ 取随机数 (1, 取数组成员数 (图片组))<br /> x1 ＝ 取随机数 (2, 取数组成员数 (图片组))<br /> 图片框1.图片 ＝ 读入文件 (图片文件夹 ＋ 图片组 [x])<br /> 图片框2.图片 ＝ 读入文件 (图片文件夹 ＋ 图片组 [x1])

Ossian

读入文件()
可能还需要转换图片格式: bmp 图片_转换(0

初学者1

.版本 2
.支持库 vclbase

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

打开图片文件对话框1.打开 ()
编辑框1.内容 ＝ 打开图片文件对话框1.文件名
图片框1.图片 ＝ 读入文件 (编辑框1.内容)



补充内容 (2020-2-10 22:51):
.版本 2
.支持库 vclbase

.子程序 _图片框2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

打开图片文件对话框1.打开 ()
编辑框1.内容 ＝ 打开图片文件对话框1.文件名
图片框2.图片 ＝ 读入文件 (编辑框1.内容)

咽泪装欢

初学者1 发表于 2020-2-10 22:49
.版本 2
.支持库 vclbase

你这个是把 图片路径放在编辑框1.内容里？

初学者1

aigozi 发表于 2020-2-10 23:35
你这个是把 图片路径放在编辑框1.内容里？

打开图片文件对话框1  是一个组件，你找找，不是通用对话框

咽泪装欢

初学者1 发表于 2020-2-11 13:28
打开图片文件对话框1  是一个组件，你找找，不是通用对话框

我知道 我就是不想用图片对话框 我想要直接 指定图片路径
修改成制定图片路径

咽泪装欢

把图片对话框修改成 固定指定图片路径