超级列表框字体颜色问题
用官方超级列表框例程改的
设置了两处颜色，选择非本行，颜色不会变，选择本行 颜色就会被改成黑色。请问下大家这应该怎么解决
修改的
------------------------------------------------------------------------------------------------------------------------------
<火山程序 类型 = "通常" 版本 = 1 />
方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
如果 (来源对象 == 按钮3)
{
列表框2.置标题 (0, 0, "按钮3")
}
如果 (来源对象 == 按钮2)
{
挂接事件 (列表框2, 6)
列表框2.置标题 (1, 2, "挂接")
}
如果 (来源对象 == 按钮1)
{
挂接事件 (列表框2, 5)
列表框2.置标题 (1, 1, "你发")
}
返回 (0)
}
方法 超级列表框_即将绘制 <接收事件 类型 = 整数 注释 = "在超级列表框即将绘制某项目之前被发送,用户可以修改所提供参数中的"
注释 = "\"文本颜色\"和\"背景颜色\"成员值以修改在绘制时所实际使用的颜色值.">
参数 来源对象 <类型 = 超级列表框 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
参数 绘制参数 <类型 = 超级列表框绘制参数 注释 = "用户可以修改本参数中的\"文本颜色\"和\"背景颜色\"成员值以修改在绘制" 注释 = "时所实际使用的颜色值."
注释 = "注意: 如果修改了本参数中的\"文本颜色\"和\"背景颜色\"成员值,将会对" 注释 = "当前表项的当前列及其后所有列均造成影响.">
{
如果 (标记值 == 5)
{
绘制参数.文本颜色 = 颜色类.红色
}
否则 (标记值 == 6)
{
绘制参数.文本颜色 = 颜色类.绿色
}
否则 (标记值 == 0)
{
绘制参数.文本颜色 = 颜色类.黑色
}
取消事件挂接 (列表框2)
返回 (0)
}
页:
[1]