设为首页收藏本站亲,今天是2018年01月20日,离还有-17550.666666667天。

易源码

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 102|回复: 4

易语言仿Photofilter源码

[复制链接]

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19393
发表于 2017-11-28 14:01:01 | 显示全部楼层 |阅读模式
链接:https://pan.baidu.com/s/1o8xGsvK 密码:wcmw

  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
原窗口子程序指针  
MDI窗口类MDI窗口类  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
变量名类 型静态数组备 注
x整数型  
y整数型  
x1整数型  
y1整数型  
' --========  易语言资源网  ([url]www.5A5X.com[/url])  ======--
' 努力创建完善、持续更新的易语言学习例程源码资源站
' --================   [url]www.5A5X.com[/url]  ===========--
' --==================   易语言资源网注意事项  ================--
' * 易语言资源网为易语言官方站、易语言官方论坛提供辅助资源站;
' 本易语言资源网( [url]www.5A5X.com[/url])所有软件和资料均为软件作者提
' 供和网友推荐发布而来,其版权归该软件和程序源码的合法拥有者所
' 有,本站易语言资源网整理收集仅供易语言用户学习和易语言技术研
' 究探讨使用,不得用于任何商业用途。如果由于以上原因造成的版权
' 纠纷本站概不负责!
' * 本站资源未经许可,任何网站不得非法盗链及抄袭本站资源;如引用
' 页面,请注明来自易语言资源网,谢谢合作!
' --=====================   [url]www.5A5X.com[/url]  ================--
MDI窗口类.创建MDI客户区 (取窗口句柄 (), 0, 0, 取用户区宽度 (), 取用户区高度 (), 真, 2, , , , , , , )
原窗口 = SetWindowLongA (取窗口句柄 (), #GWL_WNDPROC, &处理)
配置目录 = 取运行目录 ()“\Photofilter.ini”
x = 到整数 (读配置项 (配置目录, “Photofilter”, “左边”, ))
y = 到整数 (读配置项 (配置目录, “Photofilter”, “顶边”, ))
x1 = 到整数 (读配置项 (配置目录, “Photofilter”, “宽度”, ))
y1 = 到整数 (读配置项 (配置目录, “Photofilter”, “高度”, ))
如果真 (x = -32000 y = -32000)
连续赋值 (0, x, y, x1, y1)

如果真 (x = -4 y = -4 x1 - 8 = 取屏幕宽度 () y1 - 8 = 取屏幕高度 ())
位置 = 3
返回 ()

如果真 (x1 ≠ 0 y1 ≠ 0)
移动 (x, y, x1, y1)
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F5键 )
子程序名返回值类型公开备 注
载入图片  
变量名类 型静态数组备 注
dz文本型  
文件名文本型  
文件名2文本型  
dz = 读配置项 (配置目录, “Photofilter”, “现行图片”, )
如果真 (dz = “”)
_选择照片_被选择 ()
返回 ()
如果真 (dz ≠ “”)
文件名 = dz
现行图片 = 文件名
如果真 (是否已创建 (窗口1))
窗口1.销毁 ()

载入 (窗口1, , )
窗口1.标题 = 取简短文件名 (文件名)
MDI窗口类.设置为子窗口 (窗口1.取窗口句柄 ())
MDI窗口类.最大化活动子窗口 ()
_启动窗口.获取焦点 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
窗口1.图片框1.图片 = 读入文件 (文件名)
列表框1.清空 ()
文件名2 = 寻找文件 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , )) + “\*.JPG”, )
总数 = 0
判断循环首 (文件名2 ≠ “”)
总数 = 总数 + 1
列表框1.加入项目 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , )) + 文件名2, )
' 输出调试文本 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , )) + 文件名2)
文件名2 = 寻找文件 (, )
判断循环尾 ()
窗口1.透明标签1.标题 = 取简短文件名 (文件名)
更新信息 ()

子程序名返回值类型公开备 注
_选择照片_被选择  
变量名类 型静态数组备 注
文件名文本型  
文件名2文本型  
如果真 (通用对话框1.打开 ())
文件名 = 通用对话框1.文件名
现行图片 = 文件名
' 输出调试文本 (文件名, 现行图片)
如果真 (是否已创建 (窗口1))
窗口1.销毁 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
载入 (窗口1, , )
窗口1.标题 = 取简短文件名 (文件名)
MDI窗口类.设置为子窗口 (窗口1.取窗口句柄 ())
MDI窗口类.最大化活动子窗口 ()
_启动窗口.获取焦点 ()
窗口1.图片框1.图片 = 读入文件 (文件名)
列表框1.清空 ()
文件名2 = 寻找文件 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , )) + “\*.JPG”, )
总数 = 0
判断循环首 (文件名2 ≠ “”)
总数 = 总数 + 1
列表框1.加入项目 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , )) + 文件名2, )
' 输出调试文本 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , )) + 文件名2)
文件名2 = 寻找文件 (, )
判断循环尾 ()
窗口1.透明标签1.标题 = 取简短文件名 (文件名)
更新信息 ()
_启动窗口.获取焦点 ()
子程序名返回值类型公开备 注
取现行位数整数型 
变量名类 型静态数组备 注
a整数型  
计次循环首 (列表框1.取项目数 (), a)
如果真 (列表框1.取项目文本 (a - 1) = 现行图片)
跳出循环 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
计次循环尾 ()
返回 (a)
子程序名返回值类型公开备 注
取简短文件名文本型 
参数名类 型参考可空数组备 注
文件名文本型   
变量名类 型静态数组备 注
text1文本型  
TEXT2文本型  
TEXT3文本型  
' 调试输出 (文件名)
text1 = 取文本右边 (文件名, 取文本长度 (文件名) - 倒找文本 (文件名, “\”, , ))
' 调试输出 (text1)
TEXT2 = 取文本左边 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , )), 取文本长度 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , ))) - 1)
' 调试输出 (TEXT2)
TEXT3 = 取文本右边 (TEXT2, 取文本长度 (TEXT2) - 倒找文本 (TEXT2, “\”, , ))
' 调试输出 (TEXT3)
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
返回 (“\” + TEXT3 + “\” + text1)
子程序名返回值类型公开备 注
__启动窗口_尺寸被改变  
MDI窗口类.MDI客户区移动 (0, 0, 取用户区宽度 (), 取用户区高度 ())
子程序名返回值类型公开备 注
_垂直平铺窗口_被选择  
MDI窗口类.垂直平铺窗口 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
子程序名返回值类型公开备 注
_水平平铺窗口_被选择  
MDI窗口类.水平平铺窗口 ()
子程序名返回值类型公开备 注
_最大化活动子窗口_被选择  
MDI窗口类.最大化活动子窗口 ()
子程序名返回值类型公开备 注
_最小化活动子窗口_被选择  
MDI窗口类.最小化活动子窗口 ()
子程序名返回值类型公开备 注
处理整数型 
参数名类 型参考可空数组备 注
hwnd整数型   
Msg整数型   
wp整数型   
lp整数型   
变量名类 型静态数组备 注
aMINMAXINFO  
判断 (Msg = 534)
CopyMemory1 (a, lp, 40)  ' 40为MINMAXINFO结构长度
. ' 如果真 (a.ptReserved.横向位置 < 0)
' a.ptReserved.横向位置 = 0
' a.ptMaxSize.横向位置 = 0 + 宽度
. ' 如果真 (a.ptReserved.纵向位置 < 0)
' a.ptReserved.纵向位置 = 0
' a.ptMaxSize.纵向位置 = 0 + 高度
. ' 如果真 (a.ptMaxSize.横向位置 > 取屏幕宽度 () - 0)
' a.ptReserved.横向位置 = 取屏幕宽度 () - 0 - 宽度
' a.ptMaxSize.横向位置 = 取屏幕宽度 () - 0
. ' 如果真 (a.ptMaxSize.纵向位置 > 取屏幕高度 () - 0)
' a.ptReserved.纵向位置 = 取屏幕高度 () - 0 - 高度
' a.ptMaxSize.纵向位置 = 取屏幕高度 () - 0
' CopyMemory (lp, a, 40)  ' 40为MINMAXINFO结构长度
判断 (Msg = #WM_GETMINMAXINFO )
CopyMemory1 (a, lp, 40)  ' 40为MINMAXINFO结构长度
a.ptMinTrackSize.横向位置 = 800  ' 最小X
a.ptMinTrackSize.纵向位置 = 600  ' 最小Y
a.ptMaxTrackSize.横向位置 = 取屏幕宽度 ()  ' 最大X
a.ptMaxTrackSize.纵向位置 = 取屏幕高度 ()  ' 最大Y
CopyMemory (lp, a, 40)  ' 40为MINMAXINFO结构长度

' 本源码来自易语言资源网([url]www.5A5X.com[/url])

返回 (CallWindowProcA (原窗口, hwnd, Msg, wp, lp))
子程序名返回值类型公开备 注
__启动窗口_可否被关闭逻辑型 
写配置项 (配置目录, “Photofilter”, “左边”, 到文本 (左边))
写配置项 (配置目录, “Photofilter”, “顶边”, 到文本 (顶边))
写配置项 (配置目录, “Photofilter”, “宽度”, 到文本 (宽度))
写配置项 (配置目录, “Photofilter”, “高度”, 到文本 (高度))
写配置项 (配置目录, “Photofilter”, “现行图片”, 到文本 (现行图片))
子程序名返回值类型公开备 注
__启动窗口_按下某键逻辑型 
参数名类 型参考可空数组备 注
键代码整数型   
功能键状态整数型   
如果真 (键代码 = #空格键 键代码 = #右光标键 )
_后一张照片_被选择 ()
如果真 (键代码 = #左光标键 )
_前一张照片_被选择 ()
如果真 (键代码 = #下光标键 )
_自定义路径_被选择 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
子程序名返回值类型公开备 注
_退出_被选择  
__启动窗口_可否被关闭 ()
结束 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
子程序名返回值类型公开备 注
__启动窗口_首次激活  
载入图片 ()
子程序名返回值类型公开备 注
_关于我们_被选择  
系统关于对话框 (取窗口句柄 (), “Photofilter”, “小草软件工作室 (C)2010 - 2015”, 0)
子程序名返回值类型公开备 注
_基本设置_被选择  
. ' 如果真 (是否已创建 (窗口3))
' 窗口3.销毁 ()
载入 (窗口3, _启动窗口, )
' MDI窗口类.设置为子窗口 (窗口3.取窗口句柄 ())
' MDI窗口类.最大化活动子窗口 ()
' _启动窗口.获取焦点 ()
' 窗口3.编辑框1.获取焦点 ()
子程序名返回值类型公开备 注
_标签1_反馈事件整数型 
参数名类 型参考可空数组备 注
参数一整数型   
参数二整数型   
__启动窗口_可否被关闭 ()
运行 (取运行目录 ()“\Restart.exe”, 假, )
' 本源码来自易语言资源网([url]www.5A5X.com[/url])



i支持库列表   支持库注释   
shellEx扩展功能支持库一
iext扩展界面支持库一




上一篇:易语言仿OFFICE2007颜色选择器源码
下一篇:易语言仿PS颜色框源码
回复

使用道具 举报

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19393
 楼主| 发表于 2017-11-28 14:01:07 | 显示全部楼层
  
窗口程序集名保 留  保 留备 注
窗口程序集2   
变量名类 型数组备 注
剪贴板操作类剪贴板操作类  

子程序名返回值类型公开备 注
_窗口1_创建完毕  
' --========  易语言资源网  ([url]www.5A5X.com[/url])  ======--
' 努力创建完善、持续更新的易语言学习例程源码资源站
' --================   [url]www.5A5X.com[/url]  ===========--
' --==================   易语言资源网注意事项  ================--
' * 易语言资源网为易语言官方站、易语言官方论坛提供辅助资源站;
' 本易语言资源网( [url]www.5A5X.com[/url])所有软件和资料均为软件作者提
' 供和网友推荐发布而来,其版权归该软件和程序源码的合法拥有者所
' 有,本站易语言资源网整理收集仅供易语言用户学习和易语言技术研
' 究探讨使用,不得用于任何商业用途。如果由于以上原因造成的版权
' 纠纷本站概不负责!
' * 本站资源未经许可,任何网站不得非法盗链及抄袭本站资源;如引用
' 页面,请注明来自易语言资源网,谢谢合作!
' --=====================   [url]www.5A5X.com[/url]  ================--
超级链接框1.置父窗口 (状态条1)
超级链接框2.置父窗口 (状态条1)
拖放对象1.注册拖放控件 (图片框1.取窗口句柄 ())
剪贴板操作类.初始化 (取窗口句柄 ())
子程序名返回值类型公开备 注
_窗口1_尺寸被改变  
图片框1.移动 (0, 0, 取用户区宽度 (), 取用户区高度 ())
' 透明标签1.移动 (取用户区宽度 () - 20 - 透明标签1.宽度, 取用户区高度 () - 8 - 透明标签1.高度, , )
透明标签1.移动 (0, 取用户区高度 () - 8 - 透明标签1.高度 - 状态条1.高度, 取用户区宽度 (), )
状态条1.置宽度 (0, 状态条1.宽度 - 状态条1.取宽度 (1))
状态条1.置宽度 (1, 120)
超级链接框1.移动 (状态条1.取宽度 (0) - 超级链接框1.宽度 - 10, 状态条1.取栏目顶边 (0) + 2, , )
超级链接框2.移动 (状态条1.取宽度 (0) - 超级链接框1.宽度 - 10 - 超级链接框2.宽度 - 10, 状态条1.取栏目顶边 (0) + 2, , )
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
子程序名返回值类型公开备 注
_图片框1_鼠标左键被按下逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
判断 (横向位置 < 取用户区宽度 () ÷ 2)
_前一张照片_被选择 ()
判断 (横向位置 > 取用户区宽度 () ÷ 2)
_后一张照片_被选择 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])

子程序名返回值类型公开备 注
_图片框1_鼠标右键被按下逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
如果 (读配置项 (配置目录, “Photofilter”, “自定义路径”, )“”)
自定义路径.标题 = “自定义路径”
自定义路径.标题 = 取简短文件名 (读配置项 (配置目录, “Photofilter”, “自定义路径”, ))
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
如果 (读配置项 (配置目录, “Photofilter”, “自定义路径”, )“”)
自定义路径.禁止 = 真
自定义路径.禁止 = 假

图片名称.标题 = 取文本右边 (现行图片, 取文本长度 (现行图片) - 倒找文本 (现行图片, “\”, , ))
弹出菜单 (菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())
子程序名返回值类型公开备 注
_删除照片_被选择  
如果真 (是否已创建 (窗口1))
如果真 (现行图片 ≠ “”)
如果真 (信息框 (“你确定要删除”#左引号 + 取简短文件名 (现行图片)#右引号“吗?”, 1, “删除照片”) = 0)
删除文件 (现行图片)
_后一张照片_被选择 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])


子程序名返回值类型公开备 注
_前一张照片_被选择  
变量名类 型静态数组备 注
n整数型  
文件名文本型  
如果真 (是否已创建 (窗口1))
' 调试输出 (现行图片)
' 调试输出 (列表框1.取项目数 ())
如果真 (_启动窗口.列表框1.取项目文本 (0) = 现行图片)
文件名 = _启动窗口.列表框1.取项目文本 (_启动窗口.列表框1.取项目数 () - 1)
' 调试输出 (文件名)
现行图片 = 文件名
窗口1.图片框1.图片 = 读入文件 (文件名)
窗口1.透明标签1.标题 = 取简短文件名 (文件名)
' 输出调试文本 (文件名)
状态条1.置文本 (0, “拍摄时间:” + 到文本 (取文件时间 (现行图片)))
窗口1.状态条1.置文本 (1, “第” + 到文本 (取现行位数 ()) + “张\共” + 到文本 (总数)“张”)
返回 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
计次循环首 (_启动窗口.列表框1.取项目数 (), n)
' 调试输出 (列表框1.取项目文本 (n + 1))
' 输出调试文本 (n)
如果真 (_启动窗口.列表框1.取项目文本 (n - 1) = 现行图片)
文件名 = _启动窗口.列表框1.取项目文本 (n - 2)
' 调试输出 (文件名)
现行图片 = 文件名
窗口1.图片框1.图片 = 读入文件 (文件名)
窗口1.透明标签1.标题 = 取简短文件名 (文件名)
输出调试文本 (文件名)
跳出循环 ()

计次循环尾 ()
更新信息 ()

子程序名返回值类型公开备 注
_后一张照片_被选择  
变量名类 型静态数组备 注
n整数型  
文件名文本型  
如果真 (是否已创建 (窗口1))
' 调试输出 (现行图片)
' 调试输出 (列表框1.取项目数 ())
如果真 (_启动窗口.列表框1.取项目文本 (_启动窗口.列表框1.取项目数 () - 1) = 现行图片)
文件名 = _启动窗口.列表框1.取项目文本 (0)
' 调试输出 (文件名)
现行图片 = 文件名
窗口1.图片框1.图片 = 读入文件 (文件名)
窗口1.透明标签1.标题 = 取简短文件名 (文件名)
' 输出调试文本 (文件名)
状态条1.置文本 (0, “拍摄时间:” + 到文本 (取文件时间 (现行图片)))
窗口1.状态条1.置文本 (1, “第” + 到文本 (取现行位数 ()) + “张\共” + 到文本 (总数)“张”)
返回 ()
计次循环首 (_启动窗口.列表框1.取项目数 (), n)
' 调试输出 (列表框1.取项目文本 (n + 1))
' 输出调试文本 (n)
如果真 (_启动窗口.列表框1.取项目文本 (n - 1) = 现行图片)
文件名 = _启动窗口.列表框1.取项目文本 (n)
' 调试输出 (文件名)
现行图片 = 文件名
窗口1.图片框1.图片 = 读入文件 (文件名)
窗口1.透明标签1.标题 = 取简短文件名 (文件名)
' 输出调试文本 (文件名)
跳出循环 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
计次循环尾 ()
更新信息 ()

子程序名返回值类型公开备 注
_超级链接框1_鼠标左键被按下逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
执行 (2, 取文本左边 (现行图片, 倒找文本 (现行图片, “\”, , )), , , )
. ' 如果真 (是否已创建 (窗口2))
' 窗口2.销毁 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
' 载入 (窗口2, , )
' 窗口2.标题 = 取文本左边 (现行图片, 倒找文本 (现行图片, “\”, , ))
' 窗口2.超文本浏览框1.地址 = 取文本左边 (现行图片, 倒找文本 (现行图片, “\”, , ))
' _启动窗口.MDI窗口类.设置为子窗口 (窗口2.取窗口句柄 ())
' _启动窗口.获取焦点 ()
子程序名返回值类型公开备 注
_超级链接框2_鼠标左键被按下逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
如果 (读配置项 (配置目录, “Photofilter”, “自定义路径”, )“”)
. ' 如果真 (是否已创建 (窗口4))
' 窗口4.销毁 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
' 载入 (窗口4, , )
' 窗口4.标题 = 读配置项 (配置目录, “Photofilter”, “自定义路径”, )
' 窗口4.超文本浏览框1.地址 = 读配置项 (配置目录, “Photofilter”, “自定义路径”, )
' _启动窗口.MDI窗口类.设置为子窗口 (窗口4.取窗口句柄 ())
' _启动窗口.获取焦点 ()
创建目录 (读配置项 (配置目录, “Photofilter”, “自定义路径”, ))
执行 (2, 读配置项 (配置目录, “Photofilter”, “自定义路径”, ), , , )
信息框 (“请在 ”#左引号“设置”#右引号“==>”#左引号“基本设置”#右引号“ 中设置复制自定义路径!”, #警告图标, “复制失败”)

子程序名返回值类型公开备 注
_拖放对象1_得到文件  
参数名类 型参考可空数组备 注
接收到的文件路径文本型   
变量名类 型静态数组备 注
text1文本型  
text2文本型  
文件名文本型  
文件名2文本型  
' 输出调试文本 (接收到的文件路径)
text1 = 取文本右边 (接收到的文件路径, 取文本长度 (接收到的文件路径) - 倒找文本 (接收到的文件路径, “\”, , ))
text2 = 到大写 (取文本右边 (text1, 取文本长度 (text1) - 倒找文本 (text1, “.”, , )))
输出调试文本 (text2)
如果真 (text2 = “JPG”)
文件名 = 接收到的文件路径
现行图片 = 文件名
如果真 (是否已创建 (窗口1))
窗口1.销毁 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
载入 (窗口1, , )
窗口1.标题 = 取简短文件名 (文件名)
_启动窗口.MDI窗口类.设置为子窗口 (窗口1.取窗口句柄 ())
_启动窗口.MDI窗口类.最大化活动子窗口 ()
_启动窗口.获取焦点 ()
窗口1.图片框1.图片 = 读入文件 (文件名)
_启动窗口.列表框1.清空 ()
文件名2 = 寻找文件 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , )) + “\*.JPG”, )
总数 = 0
判断循环首 (文件名2 ≠ “”)
总数 = 总数 + 1
_启动窗口.列表框1.加入项目 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , )) + 文件名2, )
输出调试文本 (取文本左边 (文件名, 倒找文本 (文件名, “\”, , )) + 文件名2)
文件名2 = 寻找文件 (, )
判断循环尾 ()
窗口1.透明标签1.标题 = 取简短文件名 (文件名)
更新信息 ()

子程序名返回值类型公开备 注
更新信息  
窗口1.状态条1.置文本 (0, “拍摄时间:” + 到文本 (取文件时间 (现行图片)))
窗口1.状态条1.置文本 (1, “第” + 到文本 (取现行位数 ()) + “张\共” + 到文本 (总数)“张”)
_启动窗口.通用对话框1.初始目录 = 取文本左边 (现行图片, 倒找文本 (现行图片, “\”, , ))
子程序名返回值类型公开备 注
_复制_被选择  
输出调试文本 (现行图片)
剪贴板操作类.置数据_文件 (现行图片)
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
子程序名返回值类型公开备 注
_系统桌面_被选择  
复制文件 (现行图片, 取特定目录 (3)“\” + 取文本右边 (现行图片, 取文本长度 (现行图片) - 倒找文本 (现行图片, “\”, , )))
_后一张照片_被选择 ()
子程序名返回值类型公开备 注
_自定义路径_被选择  
如果 (读配置项 (配置目录, “Photofilter”, “自定义路径”, )“”)
创建目录 (读配置项 (配置目录, “Photofilter”, “自定义路径”, ))
复制文件 (现行图片, 读配置项 (配置目录, “Photofilter”, “自定义路径”, )“\” + 取文本右边 (现行图片, 取文本长度 (现行图片) - 倒找文本 (现行图片, “\”, , )))
_后一张照片_被选择 ()
信息框 (“请在 ”#左引号“设置”#右引号“==>”#左引号“基本设置”#右引号“ 中设置复制自定义路径!”, #警告图标, “复制失败”)
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
子程序名返回值类型公开备 注
_图片名称_被选择  
执行 (4, 现行图片, , , )


i支持库列表   支持库注释   
edroptarget拖放支持库
iext扩展界面支持库一
shell操作系统界面功能支持库
回复

使用道具 举报

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19393
 楼主| 发表于 2017-11-28 14:01:13 | 显示全部楼层
  
窗口程序集名保 留  保 留备 注
窗口程序集4   
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
a文本型  
a = 浏览文件夹 (“选择照片自定义复制目录”, )
如果真 (a ≠ “”)
编辑框1.内容 = a
a = “”
' --========  易语言资源网  ([url]www.5A5X.com[/url])  ======--
' 努力创建完善、持续更新的易语言学习例程源码资源站
' --================   [url]www.5A5X.com[/url]  ===========--
' --==================   易语言资源网注意事项  ================--
' * 易语言资源网为易语言官方站、易语言官方论坛提供辅助资源站;
' 本易语言资源网( [url]www.5A5X.com[/url])所有软件和资料均为软件作者提
' 供和网友推荐发布而来,其版权归该软件和程序源码的合法拥有者所
' 有,本站易语言资源网整理收集仅供易语言用户学习和易语言技术研
' 究探讨使用,不得用于任何商业用途。如果由于以上原因造成的版权
' 纠纷本站概不负责!
' * 本站资源未经许可,任何网站不得非法盗链及抄袭本站资源;如引用
' 页面,请注明来自易语言资源网,谢谢合作!
' --=====================   [url]www.5A5X.com[/url]  ================--
子程序名返回值类型公开备 注
_按钮2_被单击  
写配置项 (配置目录, “Photofilter”, “自定义路径”, 编辑框1.内容)
销毁 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
子程序名返回值类型公开备 注
_窗口3_创建完毕  
编辑框1.内容 = 读配置项 (配置目录, “Photofilter”, “自定义路径”, )


i支持库列表   支持库注释   
shell操作系统界面功能支持库
回复

使用道具 举报

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19393
 楼主| 发表于 2017-11-28 14:01:20 | 显示全部楼层
  
DLL命令名返回值类型公开备 注
SetWindowLongA子程序指针 在窗口结构中为指定的窗口设置信息 指定数据的前一个值
DLL库文件名:
user32
在DLL库中对应命令名:
SetWindowLongA
参数名类 型传址数组备 注
hwnd整数型  欲为其取得信息的窗口的句柄
nIndex整数型  请参考GetWindowLong函数的nIndex参数的说明
dwNewLong子程序指针  由nIndex指定的窗口信息的新值;
DLL命令名返回值类型公开备 注
CallWindowProcA整数型 将消息传答窗口函数 
DLL库文件名:
user32
在DLL库中对应命令名:
CallWindowProcA
参数名类 型传址数组备 注
lpPrevWndFunc子程序指针  
hwnd整数型  
msg整数型  
wParam整数型  
lParam整数型  
DLL命令名返回值类型公开备 注
CopyMemory  
DLL库文件名:
kernel32
在DLL库中对应命令名:
RtlMoveMemory
参数名类 型传址数组备 注
pDest整数型  
pSrcMINMAXINFO  
ByteLen字节型  
DLL命令名返回值类型公开备 注
系统关于对话框 
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
ShellAboutA
参数名类 型传址数组备 注
窗口句柄整数型  
应用程序标题文本型  
其他信息文本型  
图标句柄整数型  
DLL命令名返回值类型公开备 注
CopyMemory1  
DLL库文件名:
kernel32
在DLL库中对应命令名:
RtlMoveMemory
参数名类 型传址数组备 注
pDestMINMAXINFO  
pSrc整数型  
ByteLen字节型  
DLL命令名返回值类型公开备 注
DLL命令1  
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名类 型传址数组备 注

回复

使用道具 举报

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19393
 楼主| 发表于 2017-11-28 14:01:33 | 显示全部楼层
  
窗口程序集名保 留  保 留备 注
窗口程序集1   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
终止进程 (“Photofilter.exe”)
运行 (取运行目录 ()“\Photofilter.exe”, 假, )
销毁 ()


i支持库列表   支持库注释   
eAPI应用接口支持库
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|易源码论坛 ( 123456  

GMT+8, 2018-1-20 01:43 , Processed in 0.119663 second(s), 10 queries , File On.

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表