if mid(msg,7,1)=0 then ‘判断错误级别的
listlog.additem msg
listlog.listindex=listlob.listcount-1
elseif
.....
end if
这里显示字体的颜色怎么写呢:)
...全文
18818打赏收藏
如何自定义listbox每条记录的字体颜色?求救:(
我的监控前台需要根据日记记录的错误级别分颜色显示的: 0-红色 1-黄色 2-黑色 if mid(msg,7,1)=0 then ‘判断错误级别的 listlog.additem msg listlog.listindex=listlob.listcount-1 elseif ..... end if 这里显示字体的颜色怎么写呢:)
一个listview的例子(工程—部件,选择:Microsoft Windows Common Controls 6.0,然后在窗体上画一个listview):
Private Sub Form_Load()
Dim item As ListItem
Dim i As Long, j As Long
Me.ListView1.View = lvwReport
Me.ListView1.ColumnHeaders.Add , , "test"
Me.ListView1.HideColumnHeaders = True
For i = 1 To 100
Set item = Me.ListView1.ListItems.Add(, , "line" + CStr(i))
j = i Mod 3
Select Case j
Case 0
item.ForeColor = vbGreen
Case 1
item.ForeColor = vbBlue
Case 2
item.ForeColor = vbBlack
End Select
Next
End Sub
这样用listview :
Private Sub Command1_Click()
Randomize
Dim msg(1 To 10) As String
For i = 1 To 10
msg(i) = Int(Rnd * 3) & "123456"
Next
MsgBox Join(msg, vbCrLf)
ListView1.ColumnHeaders.Add , , ""
For i = 1 To 10
ListView1.ListItems.Add , , msg(i)
ListView1.ListItems(i).ForeColor = Choose(Val(Left(msg(i), 1)) + 1, vbRed, vbYellow, vbBlack)
Next
ListView1.View = 2
End Sub