超级列表框设置背景图片

超级列表框设置背景图片

.版本 2

.子程序 置超级列表框背景图片, 整数型, 公开
.参数 超级列表框句柄, 整数型
.参数 图片路径, 文本型
.参数 横坐标, 整数型, 可空
.参数 纵坐标, 整数型, 可空
.参数 图片显示方式, 整数型, 可空, 0为通常，非0为平铺。
.参数 不透明, 逻辑型, 可空, 默认为“假”，即在文字后面仍可看到图片。
.局部变量 临时, LVBKIMAGE
.局部变量 ret, 整数型

.判断开始 (图片显示方式 ＝ 0)
    临时.ulFlags ＝ #LVBKIF_SOURCE_URL
.默认
    临时.ulFlags ＝ 位或 (#LVBKIF_STYLE_TILE, #LVBKIF_SOURCE_URL)
.判断结束
临时.hbm ＝ 0
临时.pszImage ＝ 图片路径
临时.cchImageMax ＝ 取文本长度 (临时.pszImage) ＋ 1
临时.xOffsetPercent ＝ 横坐标
临时.yOffsetPercent ＝ 纵坐标
ret ＝ SendMessageA_LVBKIMAGE (超级列表框句柄, #LVM_SETBKIMAGE, 0, 临时)
.如果真 (不透明 ＝ 假)
    SendMessageA (超级列表框句柄, #LVM_SETTEXTBKCOLOR, 0, #CLR_NONE)
.如果真结束
返回 (ret)

@易语言资源网站