模块名称：高仿QQ列表模块 模块作者：(彬)泪闯天涯 模块版本：1.45 模块 MD5：4943e65c1b5023974f2d1779a5e095a6 模块大小：159.58 KB 版权声明： 模块描述：原创：近在眼前 改进：(彬)泪闯天涯 【使用说明】 1.本模块为免费产品，大家可以任意使用，使用后如果在软件的“关于”等处显示一下“本软件使用彗星网络的仿QQ列表”，那我会更感激的。 2.既然是免费产品，我也未做过多测试，不排除存在BUG的可能性，发现BUG请通过论坛跟贴或论坛里公布的QQ群提交给我，我会尽量在下个版本修正。 3.本人工作比较忙，另外任何人都没义务为谁写免费的东西，我也不能保证持续更新。 4.本模块主要就是模仿QQ，不好太多扩展，毕竟有些东西不是很好模块化，而且每个人的需求都是不一样的。 5.每个方法、参数的使用，尽量多看演示例程以及相关备注。 【更新记录】 ●1.4 [20091212]----------------------- 01.增加方法 对象.添加业务图标(看大家都必须需要这个，特意加上了) 02.增加方法 对象.置分组颜色风格 03.增加方法 对象.置项目颜色风格 04.增加方法 对象.置业务图标颜色风格 05.增加方法 对象.置列表类型_无图标(可以用在某些非聊天工具上) 06.增加方法 对象.置项目数据 07.增加方法 对象.选中指定项目 08.增加方法 对象.按索引取项目句柄 09.创建时加参数：列表背景颜色 10.在小图标、无图标加参数：选中时显示大图标 11.添加分组时，可设置分组文本颜色 12.修正一个GDI对象未释放的问题(感谢画画龙提示) 13.修正排序时的BUG 14.修正调整尺寸时的BUG ●1.3 [20091130]----------------------- 1.增加方法 对象.置列表类型_大图标、对象.置列表类型_小图标 2.修改方法 对象.创建 增加一个列表类型的参数 ●1.2 [20091129]----------------------- 1.添加方法 项目闪烁、取消闪烁 2.添加方法 排序_按在线状态 ●1.1 [20091126]----------------------- 1.加入鼠标右键相关事件 2.修改方法 添加分组 添加一个参数，设置初始扩展状态 3.添加方法 扩展分组、收缩分组 4.添加方法 扩展全部分组、收缩全部分组 5.添加方法 项目状态_上线 上线时可以设置闪烁 6.添加方法 项目状态_离线 7.修改2个例程，增加新特性的展示 ●1.0 [20091121]----------------------- 经过多个测试版EXE，发布第一个模块版本 引用支持库： 系统核心支持库 5.0|krnln|d09f2340818511d396f6aaf844c7e325 特殊功能支持库 3.0|spec|A512548E76954B6E92C21055517615B0 ------------------------------ .子程序 从图标取头像图片, 整数型, , 返回图片句柄，在用在添加项目的“QQ项目数据.头像图片句柄”。失败返回0 .参数 图标字节集, 字节集, , ICO图标文件的字节集 .参数 图标索引, 整数型, 可空 , 从0开始，默认为0 .参数 图片背景色, 整数型, 可空 , 默认为白色 .子程序 从文件取头像图片, 整数型, , 返回图片句柄，在用在添加项目的“QQ项目数据.头像图片句柄”。失败返回0 .参数 文件路径, 文本型, , 可以是图片文件(bmp、jpg、gif)、图标文件(ICO)或者包含图标的EXE、DLL文件 .参数 图片背景色, 整数型, 可空 , 默认为白色 .数据类型 DRAWITEMSTRUCT, 公开, .成员 CtlType, 整数型, , , 控件类型 .成员 CtlID, 整数型, , , 控件ID .成员 itemID, 整数型, , , 项目ID .成员 itemAction, 整数型, , , .成员 itemState, 整数型, , , .成员 hwndItem, 整数型, , , .成员 hdc, 整数型, , , .成员 rcItem, , , , 可能为 RECT 结构。 .成员 itemData, 整数型, , , .数据类型 QQ项目数据, 公开, .成员 项目句柄, 整数型, , , .成员 分组句柄, 整数型, , , .成员 头像图片数据, 字节集, , , .成员 头像图片句柄, 整数型, , , .成员 QQ名称, 文本型, , , .成员 QQ号码, 文本型, , , .成员 名称颜色, 整数型, , , .成员 是否在线, 逻辑型, , , .成员 个性签名, 文本型, , , .成员 备注信息, 文本型, , , .成员 项目数值, 整数型, , , .程序集 QQ列表模仿类, , 公开 .子程序 按QQ号码查找项目, 整数型, , 操作成功返回项目句柄，操作失败返回0 .参数 QQ号码, 文本型, , .子程序 按QQ名称查找项目, 整数型, , 操作成功返回项目句柄，操作失败返回0 .参数 QQ名称, 文本型, , .子程序 按备注信息查找项目, 整数型, , 操作成功返回项目句柄，操作失败返回0 .参数 备注信息, 文本型, , .子程序 按索引取项目句柄, 整数型, , 按列表当前显示的索引取项目句柄(或分组句柄)，操作失败返回0 .参数 项目索引, 整数型, , 从0开始的项目索引，包括分组。不包括折叠起来的项目。0为第一个项目、1为第二个项目... .子程序 保存列表到文件, , , .参数 文件名, 文本型, , .子程序 插入分组, 整数型, , 操作成功返回分组句柄，操作失败返回0 .参数 分组句柄, 整数型, , 在这个分组的前面插入，如果句柄为0或句柄错误，将在最前面插入 .参数 分组标题, 文本型, , .参数 是否扩展, 逻辑型, 可空 , 是否扩展分组，默认为假 .参数 分组标题颜色, 整数型, 可空 , 默认为黑色 .参数 分组数值, 整数型, 可空 , 一个整数型的参数，存放一些自定义的内容 .参数 分组备注信息, 文本型, 可空 , 一个整数型的参数，存放一些自定义的内容 .子程序 查找分组, 整数型, , 操作成功返回分组句柄，操作失败返回0 .参数 分组标题, 文本型, , .子程序 创建, 逻辑型, , .参数 父窗口句柄, 整数型, , 放置列表框的容器，列表框会自动跟随父窗口放大缩小 .参数 边框样式, 整数型, 可空 , 0无边框，1凹入式，2单线边框式 .参数 列表类型, 整数型, 可空 , 0大图标，1小图标，2无图标，默认为0 .参数 选中时显示大图标, 逻辑型, 可空 , 列表类型为大图标时无效.默认为假 .参数 列表背景颜色, 整数型, 可空 , 默认为白色 .子程序 扩展分组, 逻辑型, , .参数 分组句柄, 整数型, , .子程序 扩展全部分组, , , .子程序 排序_按在线状态, , , 按在线状态对所有项目进行排序，在线的在前面 .子程序 清空项目, 逻辑型, , .参数 分组句柄, 整数型, 可空 , 删除该分组下的所有项目，如果为空，删除所有项目 .子程序 取窗口句柄, 整数型, , 英文名称：GetHWnd，取出本窗口或窗口组件的窗口句柄（即HWND）。本命令为高级对象成员命令。 .子程序 取分组备注信息, 文本型, , .参数 分组句柄, 整数型, , .子程序 取分组标题, 文本型, , .参数 分组句柄, 整数型, , .子程序 取分组数值, 整数型, , .参数 分组句柄, 整数型, , .子程序 取项目备注信息, 文本型, , .参数 项目句柄, 整数型, , .子程序 取项目数据, 逻辑型, , .参数 项目句柄, 整数型, , 项目句柄，不能为空 .参数 项目数据, QQ项目数据, 参考 , 返回项目数据 .参数 业务图标数组, 整数型, 参考 可空 数组, 返回业务图标数组 .参数 取头像图片数据, 逻辑型, 可空 , 是否要取出“项目数据.头像图片数据” .子程序 取项目数值, 整数型, , .参数 项目句柄, 整数型, , .子程序 取消闪烁, , , .参数 项目句柄, 整数型, , .子程序 取选中项目数据, 逻辑型, , .参数 项目数据, QQ项目数据, 参考 , .参数 业务图标数组, 整数型, 参考 可空 数组, .子程序 删除分组, 逻辑型, , .参数 分组句柄, 整数型, 可空 , 删除分组及分组下的所有项目，如果为空，删除所有分组和项目 .子程序 删除项目, 逻辑型, , .参数 项目句柄, 整数型, , .子程序 设置事件, , , 所有事件有3个整数型参数 .参数 项目被单击, 子程序指针, 可空 , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .参数 项目被双击, 子程序指针, 可空 , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .参数 项目右键按下, 子程序指针, 可空 , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .参数 项目鼠标移入, 子程序指针, 可空 , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .参数 项目鼠标移出, 子程序指针, 可空 , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .参数 分组被单击, 子程序指针, 可空 , 有3个整数型参数，参数1为分组句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .参数 分组被双击, 子程序指针, 可空 , 有3个整数型参数，参数1为分组句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .参数 分组右键按下, 子程序指针, 可空 , 有3个整数型参数，参数1为分组句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .参数 业务图标被单击, 子程序指针, 可空 , 有3个整数型参数，参数1为项目句柄，参数2图标序号，参数3为0 .参数 空白区域右键按下, 子程序指针, 可空 , 有3个整数型参数，参数1为0，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 设置事件_分组被单击, , , .参数 事件子程序, 子程序指针, , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 设置事件_分组被双击, , , .参数 事件子程序, 子程序指针, , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 设置事件_分组右键按下, , , .参数 事件子程序, 子程序指针, , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 设置事件_空白区域右键按下, , , .参数 事件子程序, 子程序指针, , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 设置事件_项目被单击, , , .参数 事件子程序, 子程序指针, , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 设置事件_项目被双击, , , .参数 事件子程序, 子程序指针, , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 设置事件_项目鼠标移出, , , .参数 事件子程序, 子程序指针, , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 设置事件_项目鼠标移入, , , .参数 事件子程序, 子程序指针, , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 设置事件_项目右键按下, , , .参数 事件子程序, 子程序指针, , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 设置事件_业务图标被单击, , , .参数 事件子程序, 子程序指针, , 有3个整数型参数，参数1为项目句柄，参数2为鼠标横向位置，参数3为鼠标纵向位置 .子程序 是否已创建, 逻辑型, , .子程序 收缩分组, 逻辑型, , .参数 分组句柄, 整数型, , .子程序 收缩全部分组, , , .子程序 刷新显示, , , .子程序 添加分组, 整数型, , 操作成功返回分组句柄，操作失败返回0 .参数 分组标题, 文本型, , .参数 是否扩展, 逻辑型, 可空 , 是否扩展分组，默认为假 .参数 分组标题颜色, 整数型, 可空 , 默认为黑色 .参数 分组数值, 整数型, 可空 , 一个整数型的参数，存放一些自定义的内容 .参数 分组备注信息, 文本型, 可空 , 一个整数型的参数，存放一些自定义的内容 .子程序 添加项目, 逻辑型, , .参数 项目数据, QQ项目数据, , .参数 业务图标, 整数型, 可空 数组, 整数型数组，从1开始的业务图标索引，“添加业务图标”时返回的索引 .子程序 添加业务图标, 整数型, , 必须在创建之后，添加项目之前操作，成功返回从1开始的图标索引，失败返回0 .参数 图片数据, 字节集, , 应该是16x16大小的位图图片 .参数 透明颜色, 整数型, 可空 , 默认为#品红 .子程序 项目闪烁, , , .参数 项目句柄, 整数型, , .子程序 项目状态_离线, 逻辑型, , .参数 项目句柄, 整数型, , .子程序 项目状态_上线, 逻辑型, , .参数 项目句柄, 整数型, , .参数 闪烁延时, 整数型, 可空 , 项目闪烁的延时时间，单位豪秒，默认为0，不闪烁 .子程序 选中指定项目, 逻辑型, , 选中指定的项目或分组，如果该项目不存在或已经被折叠，返回假。 .参数 项目句柄, 整数型, , .子程序 置分组标题, , , .参数 分组句柄, 整数型, , .参数 分组标题, 文本型, , .参数 分组标题颜色, 整数型, 可空 , .子程序 置分组标题颜色, , , .参数 分组句柄, 整数型, , .参数 分组标题颜色, 整数型, , .子程序 置分组数值, , , .参数 分组句柄, 整数型, , .参数 分组数值, 整数型, , .子程序 置分组颜色风格, , , 可自定义分组的风格、颜色，参数全部为空设置为默认的仿QQ2009样式 .参数 风格_分组边框类型, 整数型, 可空 , 0为圆角，1为直角，默认为0 .参数 颜色_普通分组边框, 整数型, 可空 , 一般不设置，默认为白色 .参数 颜色_普通分组背景, 整数型, 可空 , 一般不设置，默认为白色 .参数 颜色_热点分组边框, 整数型, 可空 , 鼠标经过时的热点颜色 .参数 颜色_热点分组背景, 整数型, 可空 , 鼠标经过时的热点颜色 .参数 颜色_选中分组边框, 整数型, 可空 , 点击选中后的颜色 .参数 颜色_选中分组背景, 整数型, 可空 , 点击选中后的颜色 .子程序 置列表类型_大图标, , , .子程序 置列表类型_无图标, , , .参数 选中时显示大图标, 逻辑型, 可空 , 列表类型为大图标时无效.默认为假 .子程序 置列表类型_小图标, , , .参数 选中时显示大图标, 逻辑型, 可空 , 列表类型为大图标时无效.默认为假 .子程序 置项目数据, , , .参数 项目数据, QQ项目数据, 参考 , .参数 业务图标数组, 整数型, 参考 可空 数组, .子程序 置项目数值, , , .参数 项目句柄, 整数型, , .参数 项目数值, 整数型, , .子程序 置项目颜色风格, , , 可自定义项目的风格、颜色，参数全部为空设置为默认的仿QQ2009样式 .参数 风格_项目边框类型, 整数型, 可空 , 0为圆角，1为直角，默认为0 .参数 颜色_普通项目边框, 整数型, 可空 , 一般不设置，默认为白色 .参数 颜色_普通项目背景, 整数型, 可空 , 一般不设置，默认为白色，建议和整个列表的背景一致 .参数 颜色_热点项目边框, 整数型, 可空 , 鼠标经过时的热点颜色 .参数 颜色_热点项目背景, 整数型, 可空 , 鼠标经过时的热点颜色 .参数 颜色_选中项目边框, 整数型, 可空 , 点击选中后的颜色 .参数 颜色_选中项目背景, 整数型, 可空 , 点击选中后的颜色 .参数 颜色_头像边框颜色, 整数型, 可空 , QQ头像边框处的颜色 .参数 颜色_个性签名颜色, 整数型, 可空 , 个性签名，也就是大图标时第2行文本的颜色,默认为#深灰 .子程序 置业务图标颜色风格, , , 可自定义业务图标的颜色风格，参数全部为空设置为默认的仿QQ2009样式 .参数 颜色_业务图标背景, 整数型, 可空 , 设置-1为无背景 .参数 颜色_业务图标边框, 整数型, 可空 , 设置-1为无边框 .DLL命令 CopyMemory_DRAWITEMSTRUCT, , "kernel32", "RtlMoveMemory", 公开, .参数 Destination, DRAWITEMSTRUCT, 传址 , Any型,根据需要可以设置成不同的类型 .参数 Source, 整数型, , Any型,根据需要可以设置成不同的类型 .参数 Length, 整数型, ,