要在Listbox中的每一条显示不同的颜色，怎么作？

Question

头疼！！
谢谢！！

Answer 1

listbox不可以，你去找别的控件吧。

Answer 2

comboBox可不可以实现每一行不同的颜色。

Answer 3

combobox不可能实现不同的颜色的

Answer 4

msflexgrid怎么弄啊？看不懂耶。

Answer 5

其实就是拿msflexgrid模拟出一个combo，当点击combo的小裤衩的时候，显示msflexgrid，它事先绑定数据，点击某行就将该行数据填写到combo中。

Answer 6

自己用 PictureBox、Label（数组）、VScrollBar 和字符串数组变量拼装一个 List。再加上一个 Text 就是 Combo。

Answer 7

用MSFLEXGRID可以实现行列问题，如点击一行其颜色不同如下：Private Sub Recordgrid_Click()
 Recordgrid.Visible = False
    With Recordgrid
        Dim kRow, kCol As Integer
        kRow = .Row
        kCol = .Col
        .Redraw = False
        Dim i As Integer, j As Integer
        For i = 1 To 19
            For j = 1 To 8
                .Row = i
                .Col = j
                .CellBackColor = RGB(255, 255, 255)
            Next j
        Next i
        .Row = kRow
        For i = 1 To 8
            .Col = i
            .CellBackColor = RGB(140, 180, 255)
        Next
        .Redraw = True
    End With
    Recordgrid.Visible = True
End Sub

Answer 8

请问MSFLEXGRID列宽和行宽的属性是什么？

Answer 9

hfgData.Clear
    hfgData.Rows = 2
    hfgData.Cols = 3
    hfgData.ColWidth(0) = 500
    hfgData.TextMatrix(0, 1) = "name"
    hfgData.ColWidth(1) = 5000
    hfgData.TextMatrix(0, 2) = "content"
    hfgData.ColWidth(2) = 1000我用的是mshflexgrid，不知道msflexgrid里面有没有。

Answer 10

listbox不行，你还listview吧首先在窗口中添加一个ListView控件，方法：菜单－>工程－>部件－>Microsoft Window Common Control 6.0 （后面为版本号）。再添加一个Picture控件，改名为picGreenbar。　　实现的代码如下：Option ExplicitPrivate Sub Form_Load()
Dim i As Integer
Dim iFontHeight As Long
Dim iBarHeight As Integer
Dim j As Integer
Dim itmX As ListItem
Dim ColHead As ColumnHeader
ListView1.ColumnHeaders.Add , , "This is Just a Simple Example"
ListView1.ColumnHeaders(1).Width = 3000'添加一些实验数据
For j = 1 To 33
Set itmX = ListView1.ListItems.Add()
itmX.Text = "This is item number " & CStr(j)
Next jMe.ScaleMode = vbTwips
picGreenbar.ScaleMode = vbTwips
picGreenbar.BorderStyle = vbBSNone
picGreenbar.AutoRedraw = True
picGreenbar.Visible = False
picGreenbar.Font = ListView1.Font
iFontHeight = picGreenbar.TextHeight("b") + Screen.TwipsPerPixelY
iBarHeight = (iFontHeight * 1)
picGreenbar.Width = ListView1.Width
'======
picGreenbar.Height = iBarHeight * 2
picGreenbar.ScaleMode = vbUser
picGreenbar.ScaleHeight = 2
picGreenbar.ScaleWidth = 1
'draw the actual bars
picGreenbar.Line (0, 0)-(1, 1), vbWhite, BF
picGreenbar.Line (0, 1)-(1, 2), RGB(227, 241, 226), BF
'======
ListView1.PictureAlignment = lvwTile
ListView1.Picture = picGreenbar.Image
End Sub
　　代码量不多，不过很实用。

Answer 11

这个创意很不错，就像csdn论坛上那样，帖子一道亮一道暗，很好看的

Answer 12

能否作到listbox中满足条件的text用红色来表示啊
这个问题我晕了几天了！