易语言软件下载列表框模块源码 [db:版本]

易语言软件下载列表框模块

系统结构:消息处理_窗口,消息处理_列表框,画列表项,点是否在取消按钮内,点是否在状态按钮内,点是否在矩形内,点是否在按钮内,初始化,加入项目,取表项信息,挂接事件_列表内按钮被单击,挂接事件_取消下载按钮被单击,挂接事件_状态按钮被单击,清空表项,取列表框句柄,更新进度条,取高位,取低位,选择列表框_取项目数,选择列表框_清空,动态执行子程序,取文本指针,API_复制绘制信息,TrackMouseEvent,SendMessage_RECT,SendMessage,CreateSolidBrush,FillRect,lstrcpyn_文本,GetClientRect,PtInRect,开始暂停,取消下载,消息框,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======软件下载列表框
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 消息处理_窗口
| |
| |------ 消息处理_列表框
| |
| |------ 画列表项
| |
| |------ 点是否在取消按钮内
| |
| |------ 点是否在状态按钮内
| |
| |------ 点是否在矩形内
| |
| |------ 点是否在按钮内
| |
| |------ _列表框_左键按下
| |
| |------ _列表框_鼠标移动
| |
| |------ _列表框_左键弹起
| |
| |------ 初始化
| |
| |------ 加入项目
| |
| |------ 取表项信息
| |
| |------ 挂接事件_列表内按钮被单击
| |
| |------ 挂接事件_取消下载按钮被单击
| |
| |------ 挂接事件_状态按钮被单击
| |
| |------ 清空表项
| |
| |------ 取列表框句柄
| |
| |------ 更新进度条
| |
| |
======程序集2
| |
| |------ 取高位
| |
| |------ 取低位
| |
| |------ 选择列表框_取项目数
| |
| |------ _列表框_取现行选中项
| |
| |------ 选择列表框_清空
| |
| |------ 动态执行子程序
| |
| |------ 取文本指针
| |
| |------ _插入项目
| |
| |
======调用的Dll
| |
| |---[dll]------ API_复制绘制信息
| |
| |---[dll]------ TrackMouseEvent
| |
| |---[dll]------ SendMessage_RECT
| |
| |---[dll]------ SendMessage
| |
| |---[dll]------ CreateSolidBrush
| |
| |---[dll]------ FillRect
| |
| |---[dll]------ lstrcpyn_文本
| |
| |---[dll]------ GetClientRect
| |
| |---[dll]------ PtInRect
======窗口程序集1
| |
| |------ __启动窗口_创建完毕
| |
| |------ 开始暂停
| |
| |------ 取消下载
| |
| |------ 消息框
| |
| |------ _时钟1_周期事件

调用的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