迄今为止我认为最方便的文件自定义分类工具【花佬】

汉族

还是发图片

汉族

很多都可以缩减代码量  

  

子程序名	返回值类型	公开	备 注
拖放初始化

变量名	类 型	静态	数组	备 注
计次	整数型
j	整数型

单选框初始化 ()
计次循环首 (20, j)
编辑框 [j] ＝ 取标记组件 (j)
编辑框 [j].内容 ＝ 到文本 (j)
计次循环尾 ()
计次循环首 (取数组成员数 (文件拖放组), 计次)
文件拖放组 [计次].拖放对象_zc (编辑框 [计次].取窗口句柄 (), &文件1)
文件拖放组 [计次].拖放对象_zc (编辑框 [10 ＋ 计次].取窗口句柄 (), &文件1)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
单选框初始化

变量名	类 型	静态	数组	备 注
j	整数型

计次循环首 (10, j)
单选框 [j] ＝ 取标记组件 (29 ＋ j)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
读取单选框标题
参数名	类 型	参考	可空	数组	备 注
path	文本型

变量名	类 型	静态	数组	备 注
a	文本型
j	整数型

计次循环首 (10, j)
a ＝ 读配置项 (path, “单选标题”, “单选” ＋ 到文本 (j), )
判断 (a ＝ “”)
单选框 [j].标题 ＝ 到文本 (j)
' 初始化可能没有，要附加上
写配置项 (配置路径, “单选标题”, “单选” ＋ 到文本 (j), 到文本 (j))
单选框 [j].标题 ＝ a
处理事件 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 拖放初始化<br /> .局部变量 计次, 整数型<br /> .局部变量 j, 整数型<br /> <br /> 单选框初始化 ()<br /> .计次循环首 (20, j)<br />     编辑框 [j] ＝ 取标记组件 (j)<br />     编辑框 [j].内容 ＝ 到文本 (j)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (文件拖放组), 计次)<br />     文件拖放组 [计次].拖放对象_zc (编辑框 [计次].取窗口句柄 (), &文件1)<br />     文件拖放组 [计次].拖放对象_zc (编辑框 [10 ＋ 计次].取窗口句柄 (), &文件1)<br /> .计次循环尾 ()<br /> <br /> .子程序 单选框初始化<br /> .局部变量 j, 整数型<br /> <br /> .计次循环首 (10, j)<br />     单选框 [j] ＝ 取标记组件 (29 ＋ j)<br /> .计次循环尾 ()<br /> <br /> .子程序 读取单选框标题<br /> .参数 path, 文本型<br /> .局部变量 a, 文本型<br /> .局部变量 j, 整数型<br /> <br /> .计次循环首 (10, j)<br />     a ＝ 读配置项 (path, “单选标题”, “单选” ＋ 到文本 (j), )<br />     .判断开始 (a ＝ “”)<br />         单选框 [j].标题 ＝ 到文本 (j)<br />         ' 初始化可能没有，要附加上<br />         写配置项 (配置路径, “单选标题”, “单选” ＋ 到文本 (j), 到文本 (j))<br />     .默认<br />         单选框 [j].标题 ＝ a<br />     .判断结束<br />     处理事件 ()<br /> .计次循环尾 ()

汉族

改成了双参数方便 计次跑

  

窗口程序集名	保 留	保 留	备 注
文件拖放, , 公开
变量名	类 型	数组	备 注
集_窗口句柄	整数型
集_返回指针	整数型
集_挂接指针	子程序指针
sy

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁

拖放对象_撤销 ()

子程序名	返回值类型	公开	备 注
拖放对象_zc			将类命令声明到程序集，局部变量会失败
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
挂接拖放事件	子程序指针				创建一个取回文件名子程序.需要带参数;   参数1:文本型
索引

变量名	类 型	静态	数组	备 注
局_系统	文本型

集_窗口句柄 ＝ 窗口句柄
集_挂接指针 ＝ 挂接拖放事件
sy ＝ 索引
DragAcceptFiles (集_窗口句柄, 1)
集_返回指针 ＝ SetWindowLongA (集_窗口句柄, #GWL_WNDPROC, 类_取内部方法地址 (5))
局_系统 ＝ 系统_取系统版本 (, , , , , )
如果真 (取文本左边 (局_系统, 10) ≠ “Windows XP”)
ChangeWindowMessageFilter ( #WM_DROPFILES, #MSGFLT_ADD )
ChangeWindowMessageFilter ( #WM_COPYDATA, #MSGFLT_ADD )
ChangeWindowMessageFilter (73, #MSGFLT_ADD )

子程序名	返回值类型	公开	备 注
拖放对象_撤销

DragAcceptFiles (集_窗口句柄, 0)
SetWindowLongA (集_窗口句柄, -4, 集_返回指针)

子程序名	返回值类型	公开	备 注
拖放对象回调	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
uMsg	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
局_文件标题	文本型
局_标识	整数型
局_句柄	整数型
i	整数型

如果真 (uMsg ＝ 563)
局_文件标题 ＝ 取空白文本 (1000)
局_句柄 ＝ DragQueryFileA (wParam, -1, 局_文件标题, 1000)
变量循环首 (0, 局_句柄 － 1, 1, i)
DragQueryFileA (wParam, i, 局_文件标题, 1000)
局_标识 ＝ 到整数 (集_挂接指针)
' 置入代码 ({ 139, 117, 252, 139, 69, 240, 80, 86, 255, 208, 88 })
调用子程序 (局_标识, , , 局_文件标题, sy)
变量循环尾 ()
DragFinish (wParam)
返回 (0)
返回 (CallWindowProcA (集_返回指针, hWnd, uMsg, wParam, lParam))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 文件拖放, , 公开<br /> .程序集变量 集_窗口句柄, 整数型<br /> .程序集变量 集_返回指针, 整数型<br /> .程序集变量 集_挂接指针, 子程序指针<br /> .程序集变量 sy<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁<br /> <br /> 拖放对象_撤销 ()<br /> <br /> .子程序 拖放对象_zc, , 公开, 将类命令声明到程序集，局部变量会失败<br /> .参数 窗口句柄, 整数型<br /> .参数 挂接拖放事件, 子程序指针, , 创建一个取回文件名子程序.需要带参数;   参数1:文本型<br /> .参数 索引<br /> .局部变量 局_系统, 文本型<br /> <br /> 集_窗口句柄 ＝ 窗口句柄<br /> 集_挂接指针 ＝ 挂接拖放事件<br /> sy ＝ 索引<br /> DragAcceptFiles (集_窗口句柄, 1)<br /> 集_返回指针 ＝ SetWindowLongA (集_窗口句柄, #GWL_WNDPROC, 类_取内部方法地址 (5))<br /> <br /> 局_系统 ＝ 系统_取系统版本 (, , , , , )<br /> .如果真 (取文本左边 (局_系统, 10) ≠ “Windows XP”)<br />     ChangeWindowMessageFilter (#WM_DROPFILES, #MSGFLT_ADD)<br />     ChangeWindowMessageFilter (#WM_COPYDATA, #MSGFLT_ADD)<br />     ChangeWindowMessageFilter (73, #MSGFLT_ADD)<br /> .如果真结束<br /> <br /> <br /> .子程序 拖放对象_撤销, , 公开<br /> <br /> DragAcceptFiles (集_窗口句柄, 0)<br /> SetWindowLongA (集_窗口句柄, -4, 集_返回指针)<br /> <br /> .子程序 拖放对象回调, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 uMsg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 局_文件标题, 文本型<br /> .局部变量 局_标识, 整数型<br /> .局部变量 局_句柄, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (uMsg ＝ 563)<br />     局_文件标题 ＝ 取空白文本 (1000)<br />     局_句柄 ＝ DragQueryFileA (wParam, -1, 局_文件标题, 1000)<br />     .变量循环首 (0, 局_句柄 － 1, 1, i)<br />         DragQueryFileA (wParam, i, 局_文件标题, 1000)<br />         局_标识 ＝ 到整数 (集_挂接指针)<br />         ' 置入代码 ({ 139, 117, 252, 139, 69, 240, 80, 86, 255, 208, 88 })<br />         调用子程序 (局_标识, , , 局_文件标题, sy)<br />     .变量循环尾 ()<br />     DragFinish (wParam)<br />     返回 (0)<br /> .如果真结束<br /> 返回 (CallWindowProcA (集_返回指针, hWnd, uMsg, wParam, lParam))

风清云游

看看 支持一个

whdhhh

看看。。。。。。。。。。。。。。。。。。。。

花总

汉族 发表于 2021-7-23 18:46
代码可以用数组来定义这样可以最少缩短几十行代码且高效率一些

有些能简化，有些事件是简化不了的，组件的事件除非重构，能够复用，

汉族

代码可以用数组来定义这样可以最少缩短几十行代码且高效率一些

柴可

看看。。。。。。。。。。。。。。。。。。。。