易语言超级列表增强模块源码 [db:版本]

易语言超级列表增强模块源码

系统结构:初始化,WinProc,设置组件,插入表项,删除表项,置按钮标题,置进度条位置,取按钮标题,取进度条位置,发送消息_,设置窗口信息,设置父窗口,呼叫窗口函数地址_,窗口顶置,寻找子窗口_,窗口置顶_,取滚动条参数_,取滚动条当前位置_,取滚动条运动范围_,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======超级列表框增强
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 初始化
| |
| |------ WinProc
| |
| |------ 设置组件
| |
| |------ 插入表项
| |
| |------ 删除表项
| |
| |------ 置按钮标题
| |
| |------ 置进度条位置
| |
| |------ 取按钮标题
| |
| |------ 取进度条位置
| |
| |
======调用的Dll
| |
| |---[dll]------ 发送消息_
| |
| |---[dll]------ 设置窗口信息
| |
| |---[dll]------ 设置父窗口
| |
| |---[dll]------ 呼叫窗口函数地址_
| |
| |---[dll]------ 窗口顶置
| |
| |---[dll]------ 寻找子窗口_
| |
| |---[dll]------ 窗口置顶_
| |
| |---[dll]------ 取滚动条参数_
| |
| |---[dll]------ 取滚动条当前位置_
| |
| |---[dll]------ 取滚动条运动范围_

调用的DLL命令:

.DLL命令 发送消息_, 整数型, "user32.dll", "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 窗口区域, 传址

.DLL命令 设置窗口信息, 整数型, "user32.dll", "SetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.参数 dwNewLong, 整数型

.DLL命令 设置父窗口, 整数型, , "SetParent"
.参数 d, 整数型
.参数 ds, 整数型

.DLL命令 呼叫窗口函数地址_, 整数型, "user32.dll", "CallWindowProcA"
.参数 前一窗口函数地址, 整数型
.参数 窗口句柄, 整数型
.参数 消息值, 整数型
.参数 附加参数1, 整数型
.参数 附加参数2, 整数型

.DLL命令 窗口顶置, 整数型, , "BringWindowToTop"
.参数 hwnd, 整数型

.DLL命令 寻找子窗口_, 整数型, "user32", "FindWindowExA", , 在窗口列表中寻找与指定条件相符的第一个子窗口 找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
.参数 窗口句柄1, 整数型, , 在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
.参数 窗口句柄2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索
.参数 欲搜索的类名1, 文本型, , 欲搜索的类名。“”表示忽略
.参数 欲搜索的类名2, 整数型, , 欲搜索的类名。“”表示忽略;

.DLL命令 窗口置顶_, 整数型, "user32.dll", "BringWindowToTop"
.参数 窗口句柄, 整数型, , hwnd,欲带至顶部的那个窗口的句柄

.DLL命令 取滚动条参数_, 整数型, "comctl32", "FlatSB_GetScrollInfo", , 该函数找到滚动条的参数
.参数 hWnd, 整数型
.参数 n, 整数型
.参数 lpScrollInfo, 滚动信息, 传址, SCROLLINFO结构

.DLL命令 取滚动条当前位置_, 整数型, "user32", "GetScrollPos", , 该函数获取指定滚动条中滚动按钮的当前位置
.参数 hwnd, 整数型
.参数 nBar, 整数型

.DLL命令 取滚动条运动范围_, 整数型, "user32", "GetScrollRange", , 返回滑块运动范围
.参数 hwnd, 整数型
.参数 nBar, 整数型
.参数 lpMinPos, 整数型
.参数 lpMaxPos, 整数型