如何自定义listbox每条记录的字体颜色？求救：（

Question

我的监控前台需要根据日记记录的错误级别分颜色显示的：
0-红色
1-黄色
2-黑色if mid(msg,7,1)=0 then    ‘判断错误级别的
  listlog.additem msg
  listlog.listindex=listlob.listcount-1
elseif 
.....end if这里显示字体的颜色怎么写呢：）

Answer 1

在up一下下！！！
我的case就差这一点点了：（（（

Answer 2

listview控件常规下不能显示不同颜色,除非用api

Answer 3

前景色可以变化listview1.listitems(i).forecolor=vbred

Answer 4

前景色可以变化listview1.listitems(i).forecolor=vbred

Answer 5

在up
高手，救命啊！
这个问题就这么困难吗？在问个问题：
我定义了消息记录为：
 Dim Buffermsg As String * 1024   'got message现在我想把Buffermsg 中的有效字符串取出来，用trim实现不了，怎么做呢？

Answer 6

listview控件常规下不能显示不同颜色,除非用api
又不是背景色，用什么api：一个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

Answer 7

left（Buffermsg，调用Buffermsg的函数的返回值）

Answer 8

left（Buffermsg，调用Buffermsg的函数的返回值）

Answer 9

这样用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

Answer 10

第二个问题怎么解决呢？
如何提取有效字符串在定长的字符串里，可能我描述的不是很清楚了比如msg为500－－》  “”，但是真正有效的字符只是－－－》“123”
我如果把123提取出来，用rtrim是不可以的
这里的有效字符串是不确定的
怎么做呢？

Answer 11

看我上面的回复了吗，用left函数

Answer 12

看我上面的回复了吗，用left函数

Answer 13

left（Buffermsg，调用Buffermsg的函数的返回值）
我没有明白你的意思
我的Buffermsg是这样得来
MQGET gHcon, gHobj, md, gmo, buflen, Buffermsg, messlen, CompCode, Reason
从mq－queue里读取的，mqget的返回值吗？

Answer 14

还要用上面listview的例子我还是没有看出来效果

Answer 15

我的Buffermsg是这样得来
MQGET gHcon, gHobj, md, gmo, buflen, Buffermsg, messlen, CompCode, Reason
从mq－queue里读取的，mqget的返回值吗？应该是这里显示字体的颜色怎么写呢上面listview的例子我还是没有看出来效果，只要是改文字的颜色应该没有问题
你调试了吗？