1,451
社区成员
发帖
与我相关
我的任务
分享如何自定义listbox中每条记录的字体(或背景色)显示颜色
我的程序需要实现如下功能:
.
.
.
listlog.AddItem msg
listlog.ListIndex = listlog.ListCount - 1
'judge errrate
If Mid(msg, 7, 1) = 0 Then 'errrate is serious
'display msg with red color
'这儿的代码如何写?
Call savelog
ElseIf Mid(msg, 7, 1) = 1 Then 'errrate is warning
'display msg with yellow color
'这儿的代码如何写?
Call savelog
End If
.
.
.
listlog.AddItem msg
listlog.ListIndex = listlog.ListCount - 1
'judge errrate
If Mid(msg, 7, 1) = 0 Then 'errrate is serious
'display msg with red color
'这儿的代码如何写?
Call savelog
ElseIf Mid(msg, 7, 1) = 1 Then 'errrate is warning
'display msg with yellow color
'这儿的代码如何写?
Call savelog
End If
...全文
请发表友善的回复…
发表回复
rainstormmaster 2003-12-04
- 打赏
- 举报
http://www.mvps.org/vbnet/index.html?code/subclass/combotabbedlist.htm
rainstormmaster 2003-12-04
- 打赏
- 举报
可从
http://www.vbaccelerator.com/home/VB/Code/Controls/Combo_and_List_Boxes/Owner_Draw_Combo_and_List_Box/VB6_Owner_Draw_Combo_List_Full_Source.asp
下载例子
简单点就用LISTVIEW吧
http://www.vbaccelerator.com/home/VB/Code/Controls/Combo_and_List_Boxes/Owner_Draw_Combo_and_List_Box/VB6_Owner_Draw_Combo_List_Full_Source.asp
下载例子
简单点就用LISTVIEW吧
northwolves 2003-12-04
- 打赏
- 举报
可以考虑用LISTVIEW代替LISTBOX，代码简单。
TechnoFantasy 2003-12-04
- 打赏
- 举报
ListBox本身不支持自定义颜色，你需要通过subclass来实现，参考：
http://www.vbaccelerator.com/home/VB/Code/Controls/Combo_and_List_Boxes/Owner_Draw_Combo_and_List_Box/article.asp
http://www.vbaccelerator.com/home/VB/Code/Controls/Combo_and_List_Boxes/Owner_Draw_Combo_and_List_Box/article.asp
