易语言演示超级列表框的组功能源码

系统结构:A2W,超级列表操作增强_启用组功能,超级列表操作增强_添加项目_指定组,超级列表操作增强_插入组W,超级列表操作增强_插入组,超级列表操作增强_取组数量,MultiByteToWideChar,SendMessage_,

======窗口程序集_启动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ A2W
           |  |
           |  |------ 超级列表操作增强_启用组功能
           |  |
           |  |------ 超级列表操作增强_添加项目_指定组
           |  |
           |  |------ 超级列表操作增强_插入组W
           |  |
           |  |------ 超级列表操作增强_插入组
           |  |
           |  |------ 超级列表操作增强_取组数量
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _SM_LVGROUP
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   SendMessage_
           |  |
           |  |---[dll]------   _SM_LVITEM

调用的DLL命令:

.DLL命令 _SM_LVGROUP, 整数型, "user32.dll", "SendMessageA", , 来自EVA 发消息LVGROUP
    .参数 hwnd, 整数型, , 窗口句柄
    .参数 wMsg, 整数型, , 消息值
    .参数 wParam, 整数型
    .参数 lParam, LVGROUP, , 结构类型

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 SendMessage_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, 整数型, , 具体取决于消息;

.DLL命令 _SM_LVITEM, 整数型, "user32.dll", "SendMessageA", , 来自EVA 发消息LVITEM
    .参数 hwnd, 整数型, , 窗口句柄
    .参数 wMsg, 整数型, , 消息值
    .参数 wParam, 整数型
    .参数 lParam, LVITEM, , 结构类型