超级列表框颜色问题

自学者 · 发表于 2013-5-17 20:39:40

超级列表框怎么读取数据库颜色？

我在数据库设置推进颜色怎么样写代码可以在列表框中显示？

那我大神帮帮忙小弟感激不尽！
[e]
.版本 2
.支持库 iext

.子程序 _按钮_读取_被单击
.局部变量记录集句柄, 整数型
.局部变量计次1, 整数型
.局部变量文本判断1, 文本型
.局部变量文本判断2, 文本型

超级列表框1.全部删除 ()
超级列表框1.插入列 (0, “游戏名称”, 100, , , )
超级列表框1.插入列 (1, “开区时间”, 80, , , )
超级列表框1.插入列 (2, “游戏线路”, 70, , , )
超级列表框1.插入列 (3, “版本介绍”, 200, , , )
超级列表框1.插入列 (4, “游戏客服”, 80, , , )
超级列表框1.插入列 (5, “游戏网站”, 100, , , )
超级列表框1.插入列 (6, “登录器下载”, 100, , , )
记录集句柄＝外部数据库1.查询 (“select * from [Table_1]”)
外部数据库1.到首记录 (记录集句柄)
文本判断1 ＝到文本 (外部数据库1.读 (记录集句柄, “游戏名称”))
外部数据库1.到尾记录 (记录集句柄)
文本判断2 ＝到文本 (外部数据库1.读 (记录集句柄, “登录器下载”))
计次1 ＝ 0
外部数据库1.到首记录 (记录集句柄)
.如果 (文本判断1 ＝文本判断2)
编辑框1.可视＝真
超级列表框1.可视＝假
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “游戏名称”) ＋ #换行符)
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “开区时间”) ＋ #换行符)
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “游戏线路”) ＋ #换行符)
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “版本介绍”) ＋ #换行符)
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “游戏客服”) ＋ #换行符)
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “游戏网站”) ＋ #换行符)
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “登录器下载”) ＋ #换行符)
.否则
编辑框1.可视＝假
超级列表框1.可视＝真
.判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝假)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (计次1, 0, 到文本 (外部数据库1.读 (记录集句柄, “游戏名称”)))
超级列表框1.置标题 (计次1, 1, 外部数据库1.读 (记录集句柄, “开区时间”))
超级列表框1.置标题 (计次1, 2, 外部数据库1.读 (记录集句柄, “游戏线路”))
超级列表框1.置标题 (计次1, 3, 外部数据库1.读 (记录集句柄, “版本介绍”))
超级列表框1.置标题 (计次1, 4, 外部数据库1.读 (记录集句柄, “游戏客服”))
超级列表框1.置标题 (计次1, 5, 外部数据库1.读 (记录集句柄, “游戏网站”))
超级列表框1.置标题 (计次1, 6, 外部数据库1.读 (记录集句柄, “登录器下载”))
计次1 ＝计次1 ＋ 1
外部数据库1.到后一记录 (记录集句柄)
.判断循环尾 ()
.如果结束
外部数据库1.关闭记录集 (记录集句柄)

[/e]