

ListView1.ListItems(1).Ghosted = True

Konst_One писал(а):
- Код: Выделить всё
 ListView1.ListItems(1).Ghosted = True


Konst_One писал(а):выделение элементов активно только при фокусе контрола



Private Sub EnableHighlighting(ByVal row As Integer, ByVal bHighLight As Boolean)
    CDLV.Refresh '(в оригинале тут ещё стоит =False)
    CDLV.ListItems.Item(row + 1).Selected = bHighLight
End Sub

Сейчас этот форум просматривают: AhrefsBot и гости: 6