易语言CF皮肤列表框模块源码 [db:版本]

易语言CF皮肤列表框模块源码

系统结构:取高位,取低位,选择列表框_取项目数,选择列表框_清空,动态执行子程序,取文本指针,消息处理_窗口,消息处理_列表框,点是否在矩形内,点是否在按钮内,点是否在主标题内,点是否在图片内,点是否在投票内,添加绝对圆角矩形,取项目数,画列表项,初始化,加入项目,取表项信息,挂接事件_列表内按钮被单击,挂接事件_列表内主标题被单击,挂接事件_列表内投票被单击,清空表项,删除表项,取列表框句柄,更新进度条,API_复制绘制信息,TrackMouseEvent,SendMessage_RECT,SendMessage,CreateSolidBrush,FillRect,lstrcpyn_文本,GetClientRect,PtInRect,设当前指针_,载入鼠标指针_,取当前指针句柄_,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======Help
| |
| |------ 取高位
| |
| |------ 取低位
| |
| |------ 选择列表框_取项目数
| |
| |------ _列表框_取现行选中项
| |
| |------ 选择列表框_清空
| |
| |------ 动态执行子程序
| |
| |------ 取文本指针
| |
| |------ _插入项目
| |
| |
======CF皮肤
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 消息处理_窗口
| |
| |------ 消息处理_列表框
| |
| |------ 点是否在矩形内
| |
| |------ 点是否在按钮内
| |
| |------ 点是否在主标题内
| |
| |------ 点是否在图片内
| |
| |------ 点是否在投票内
| |
| |------ 添加绝对圆角矩形
| |
| |------ 取项目数
| |
| |------ 画列表项
| |
| |------ _列表框_左键按下
| |
| |------ _列表框_鼠标移动
| |
| |------ _列表框_左键弹起
| |
| |------ 初始化
| |
| |------ 加入项目
| |
| |------ 取表项信息
| |
| |------ 挂接事件_列表内按钮被单击
| |
| |------ 挂接事件_列表内主标题被单击
| |
| |------ 挂接事件_列表内投票被单击
| |
| |------ 清空表项
| |
| |------ 删除表项
| |
| |------ 取列表框句柄
| |
| |------ 更新进度条
| |
| |
======调用的Dll
| |
| |---[dll]------ API_复制绘制信息
| |
| |---[dll]------ TrackMouseEvent
| |
| |---[dll]------ SendMessage_RECT
| |
| |---[dll]------ SendMessage
| |
| |---[dll]------ CreateSolidBrush
| |
| |---[dll]------ FillRect
| |
| |---[dll]------ lstrcpyn_文本
| |
| |---[dll]------ GetClientRect
| |
| |---[dll]------ PtInRect
| |
| |---[dll]------ 设当前指针_
| |
| |---[dll]------ 载入鼠标指针_
| |
| |---[dll]------ 取当前指针句柄_

调用的DLL命令:

.DLL命令 API_复制绘制信息, 整数型, "kernel32.dll", "RtlMoveMemory"
.参数 lpvDest, 绘制信息
.参数 lpvSource, 整数型
.参数 cbCopy, 整数型

.DLL命令 TrackMouseEvent, 整数型, "user32.dll", "TrackMouseEvent"
.参数 lpEventTrack, 鼠标动作结构

.DLL命令 SendMessage_RECT, 整数型, "user32.dll", "SendMessageA"
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wp, 整数型
.参数 lp, Rect, 传址

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA"
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wp, 整数型
.参数 lp, 整数型

.DLL命令 CreateSolidBrush, 整数型, "gdi32.dll", "CreateSolidBrush"
.参数 颜色值, 整数型

.DLL命令 FillRect, 整数型, "user32.dll", "FillRect"
.参数 设备场景, 整数型
.参数 填充区域, Rect
.参数 刷子句柄, 整数型

.DLL命令 lstrcpyn_文本, 整数型, "kernel32", "lstrcpynA", , 取内存变量地址
.参数 lpString1, 文本型, 传址, 传址
.参数 lpString2, 文本型, 传址
.参数 iMaxLength, 整数型

.DLL命令 GetClientRect, 整数型, "user32", "GetClientRect", , 返回指定窗口客户区矩形的大小 非零表示成功，零表示失败。会设置GetLastError
.参数 hwnd, 整数型, , 欲计算大小的目标窗口
.参数 lpRect, 窗口矩形, , RECT，指定一个矩形，用客户区域的大小载入（以像素为单位）;

.DLL命令 PtInRect, 整数型, "user32.dll", "PtInRect"
.参数 rect, Rect
.参数 point, Point

.DLL命令 设当前指针_, 整数型, "user32.dll", "SetCursor"
.参数 指针句柄, 整数型

.DLL命令 载入鼠标指针_, 整数型, "user32.dll", "LoadCursorA", , 从指定的模块或应用程序实例中载入一个鼠标指针
.参数 实例句柄, 整数型, , hInstance,参见相关帮助
.参数 鼠标指针标识, 整数型, , lpCursorName,参见相关帮助

.DLL命令 取当前指针句柄_, 整数型, "user32", "GetCursor"