纯源码设置超级列表框背景透明

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 sy, 整数型
.局部变量 i, 整数型

.计次循环首 (100, i)
    sy ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (sy, 0, “12431243asfasdffasdf”)
    超级列表框1.置标题 (sy, 1, “asdfasdfdsaf”)
.计次循环尾 ()

.子程序 __启动窗口_首次激活

透明超级列表框 (超级列表框1)

.子程序 透明超级列表框, , 公开
.参数 超级列表框, 超级列表框
.局部变量 底图, 字节集
.局部变量 参数, IParam
.局部变量 临时文件, 文本型

超级列表框.可视 ＝ 假
处理事件 ()
底图 ＝ 快照 (超级列表框.取窗口句柄 (), , )  ' 也可以自定义图片
超级列表框.发送信息 (4134, 0, -1)
参数.a ＝ 位或 (2, 16)
临时文件 ＝ 取临时文件名 ()
写到文件 (临时文件, 底图)
参数.c ＝ 临时文件
参数.e ＝ 0
参数.f ＝ 100
SendMessageA (超级列表框.取窗口句柄 (), 4164, 0, 参数)
超级列表框.可视 ＝ 真

@chencunb