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 и гости: 180