易语言选择夹操作类源码 [db:版本]

选择夹操作类

系统结构:取类名,删除子夹,插入子夹,取子夹数目,取子夹标题,取子夹数值,置子夹标题,置子夹数值,选择子夹,取现行子夹,删除全部子夹,TCM_DESELECTALL,取图片组句柄,TCM_GETROWCOUNT,置入图片组,置子夹图片,置子夹栏尺寸,置子夹栏宽度,方法1,GetClassName,SendMessage,取数据地址,取数据地址1,UpdateWindow,GetParent,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======选择夹控制类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ _初始化类
| |
| |------ 取类名
| |
| |------ 删除子夹
| |
| |------ 插入子夹
| |
| |------ 取子夹数目
| |
| |------ 取子夹标题
| |
| |------ 取子夹数值
| |
| |------ 置子夹标题
| |
| |------ 置子夹数值
| |
| |------ 选择子夹
| |
| |------ 取现行子夹
| |
| |------ 删除全部子夹
| |
| |------ TCM_DESELECTALL
| |
| |------ 取图片组句柄
| |
| |------ TCM_GETROWCOUNT
| |
| |------ 置入图片组
| |
| |------ 置子夹图片
| |
| |------ 置子夹栏尺寸
| |
| |------ 置子夹栏宽度
| |
| |------ 方法1
| |
| |
======窗口程序集1
| |
| |------ _窗口1_创建完毕
| |
| |------ _按钮1_被单击
| |
| |------ _按钮2_被单击
| |
| |------ _选择夹1_被单击
| |
| |------ _按钮3_被单击
| |
| |
======调用的Dll
| |
| |---[dll]------ GetClassName
| |
| |---[dll]------ SendMessage
| |
| |---[dll]------ 取数据地址
| |
| |---[dll]------ 取数据地址1
| |
| |---[dll]------ UpdateWindow
| |
| |---[dll]------ GetParent

调用的DLL命令:

.DLL命令 GetClassName, 整数型, "user32.dll", "GetClassNameA"
.参数 hwnd, 整数型
.参数 lpClassName, 文本型
.参数 nMaxCount, 整数型

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型, , 类型为通用型，请在调试时调整其类型

.DLL命令 取数据地址, 整数型, "kernel32.dll", "lstrcpyn"
.参数 目标, TCITEM, 传址
.参数 源, TCITEM, 传址
.参数 长度, 整数型

.DLL命令 取数据地址1, 整数型, "kernel32.dll", "lstrcpyn"
.参数 目标, RECT, 传址
.参数 源, RECT, 传址
.参数 长度, 整数型

.DLL命令 UpdateWindow, 整数型, "user32.dll", "UpdateWindow"
.参数 hwnd, 整数型

.DLL命令 GetParent, 整数型, "user32.dll", "GetParent"
.参数 窗口句柄, 整数型