设置超级列表框背景图片模块

.如果真 (是否为空 (平铺))
平铺 ＝ 真
.如果真结束
.如果 (是否为空 (图片) 或 取文本长度 (图片) ≤ 0)
背景图片.应用 ＝ 0
.否则
超级列表框.发送信息 (4134, 0, -1) ' 让文本背景透明
背景图片.应用 ＝ 位或 (2, 选择 (平铺, 16, 0))
背景图片.图片 ＝ 图片 ' 图片路径
背景图片.横向百分比 ＝ 0
背景图片.纵向百分比 ＝ 100 ' 左边与顶边偏移百分比，如果上面用平铺的话就没什么意义了
.子程序 设置背景, , 公开, 为超级列表框指定地址的图片
.参数 超级列表框, 超级列表框, , 要添加背景的超级列表框
.参数 图片, 文本型, 可空, 要添加的背景图片，为空时清除背景
.参数 平铺, 逻辑型, 可空, 是否平铺，为空则为真
易语言设置超级列表框背景图片模块例子。