易语言设置超级列表框行间距模块源码

系统结构:设置超级列表框行间距,取祖宗句柄,WndProc,句柄是否存在,取位置,SendMessage,SendMessageWINDOWPOS,SetWindowLong,CallWindowProc,GetWindowLong,GetAncestor,

======EC
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======自定义函数
           |  |
           |  |------ 设置超级列表框行间距
           |  |
           |  |------ 取祖宗句柄
           |  |
           |  |------ WndProc
           |  |
           |  |------ 句柄是否存在
           |  |
           |  |------ 取位置
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SendMessageWINDOWPOS
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   GetAncestor

调用的DLL命令:

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SendMessageWINDOWPOS, 整数型, "user32", "SendMessageA"
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, WINDOWPOS

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型

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