易语言让超级列表框像表格那样轻松操作源码

让超级列表框像表格那样轻松操作

系统结构:滚动条事件,取老矩形,取得表项矩形区域,取表项坐标信息,取表项结构信息,GetDC,CreatePen,GetStockObject,SelectObject,DeleteObject,ReleaseDC,Rectangle,执行窗口程序,置窗口特征,

======窗口程序集1
| |
| |------ _编辑框1_失去焦点
| |
| |------ __启动窗口_创建完毕
| |
| |------ _编辑框1_放开某键
| |
| |------ 滚动条事件
| |
| |------ _超级列表框1_被双击
| |
| |------ _超级列表框1_鼠标左键被按下
| |
| |------ 取老矩形
| |
| |------ 取得表项矩形区域
| |
| |------ _编辑框1_获得焦点
| |
| |------ __启动窗口_将被销毁
| |
| |
======调用的Dll
| |
| |---[dll]------ 取表项坐标信息
| |
| |---[dll]------ 取表项结构信息
| |
| |---[dll]------ GetDC
| |
| |---[dll]------ CreatePen
| |
| |---[dll]------ GetStockObject
| |
| |---[dll]------ SelectObject
| |
| |---[dll]------ DeleteObject
| |
| |---[dll]------ ReleaseDC
| |
| |---[dll]------ Rectangle
| |
| |---[dll]------ 执行窗口程序
| |
| |---[dll]------ 置窗口特征

调用的DLL命令:

.DLL命令 取表项坐标信息, 整数型, "user32", "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 坐标

.DLL命令 取表项结构信息, 整数型, "user32", "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 表项结构信息

.DLL命令 GetDC, 整数型, , "GetDC"
.参数 设备句柄

.DLL命令 CreatePen, 整数型, , "CreatePen"
.参数 nPenStyle
.参数 nWidth
.参数 ncolor

.DLL命令 GetStockObject, 整数型, , "GetStockObject"
.参数 nIndex

.DLL命令 SelectObject, 整数型, , "SelectObject"
.参数 hdc
.参数 hObject

.DLL命令 DeleteObject, , , "DeleteObject"
.参数 hObject

.DLL命令 ReleaseDC, 整数型, , "ReleaseDC"
.参数 hwnd
.参数 hldc

.DLL命令 Rectangle, 整数型, , "Rectangle"
.参数 hdc
.参数 x
.参数 y
.参数 xx
.参数 xy

.DLL命令 执行窗口程序, 整数型, , "CallWindowProcA"
.参数 程序指针, 子程序指针
.参数 窗口句柄, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型

.DLL命令 置窗口特征, 子程序指针, , "SetWindowLongA"
.参数 窗口句柄, 整数型
.参数 要置的特征, 整数型
.参数 新特征, 子程序指针, , 仅易语言3.0支持