RE:como selecciono en codigo varias lineas en list
Publicado por
jae (1 intervención) el 18/07/2003 00:44:06
Dim i As Integer
Dim ITEM As ListItem
For i = Cupo To 1 Step -1
'-> Cupo
Set ITEM = LV.ListItems.Add(, , i)
'-> Ingreso
ITEM.SubItems(1) = Ingreso * i
'-> Costo
ITEM.SubItems(2) = Round(CostoInd * i + (CostoGrup * Cupo))
'-> Utilidad
ITEM.SubItems(3) = Val(ITEM.SubItems(1)) - Val(ITEM.SubItems(2))
If Val(ITEM.SubItems(3)) > 0 Then
ITEM.Selected = True
ITEM.Bold = True
ITEM.ForeColor = &HC00000
ITEM.ListSubItems(1).Bold = True
ITEM.ListSubItems(1).ForeColor = &HC00000
ITEM.ListSubItems(2).Bold = True
ITEM.ListSubItems(2).ForeColor = &HC00000
ITEM.ListSubItems(3).Bold = True
ITEM.ListSubItems(3).ForeColor = &HC00000
Else
ITEM.Bold = True
ITEM.ForeColor = &HFF&
ITEM.ListSubItems(1).Bold = True
ITEM.ListSubItems(1).ForeColor = &HFF&
ITEM.ListSubItems(2).Bold = True
ITEM.ListSubItems(2).ForeColor = &HFF&
ITEM.ListSubItems(3).Bold = True
ITEM.ListSubItems(3).ForeColor = &HFF&
End If
Next