| Usuario |
listview colorido |
denisargentina
2 Mensaje(s)
|
| Enviado - 26/7/2004 |
| |
Hola mi pregunta es como hago para poner en un listview registros de distinto color minimo 6 colores, dependiendo del valor que tengan los registros.
Gracias :D
|
| |
|
fmarredo
486 Mensaje(s)
|
| Enviado - 27/7/2004 |
| |
Podés hacer algo así:
Dim itm As ListItem
Dim subitm As ListSubItem
Dim i As Integer
Dim lngColor As Long
ListView1.ColumnHeaders.Add , , "Cod"
ListView1.ColumnHeaders.Add , , "Desc"
For i = 1 To 50
Set itm = ListView1.ListItems.Add(, , CLng(Rnd * 12354))
itm.SubItems(1) = "Descr" & itm.Text
Select Case True
Case itm.Text Mod 6 = 0
lngColor = vbYellow
Case itm.Text Mod 5 = 0
lngColor = vbBlue
Case itm.Text Mod 4 = 0
lngColor = vbMagenta
Case itm.Text Mod 3 = 0
lngColor = vbGreen
Case itm.Text Mod 2 = 0
lngColor = vbBlack
Case Else
lngColor = vbRed
End Select
itm.ForeColor = lngColor
For Each subitm In itm.ListSubItems
subitm.ForeColor = lngColor
Next subitm
Next i
Esto llena la lista con 50 valores aleatorios y colorea cada registro de acuerdo a si el valor de la primera col es multiplo de 6, 5, 4, etc. |
| |
|
|
|
