|
|
Postada em 20/08/2008 17:20 hs
assim tambem fica legal pra zebrar o item, mas nao os subitens, e troca so o forecolor entende If i Mod 2 = 0 Then
itmX.ForeColor = vbRed
Else
itmX.ForeColor = vbBlue
End If
|
|
|
|
|
|
|
|
Postada em 20/08/2008 17:20 hs
For i = 1 To 10
Set itmX = ListView1.ListItems.Add()
itmX.Text = "ListItem " & i
itmX.SubItems(1) = "Subitem 1"
itmX.SubItems(2) = "Subitem 2"
If i Mod 2 = 0 Then
itmX.ForeColor = vbRed
Else
itmX.ForeColor = vbBlue
End If
Next i |
|
|
|
Alex Xavier
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 04/01/2010 16:27 hs
Rapaz, este código não faz o que seu tópico sugere. Está copiando de algum outro fórum?
|
|
|
|
teste
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/12/2010 12:47 hs
dfdffd
|
|
|
|
