Сообщество Чайников

Вопрос

Как узнать количество Item'ов в ListView, которые могут быть видны при его текущих размерах? В принципе, большая точность ненужна, Но хотелось бы красивый способ.

Ответ

Private Declare Function SendMessage Lib «user32» Alias «SendMessageA»
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long

Private Const LVM_FIRST As Long = &H1000
Private Const LVM_GETCOUNTPERPAGE As Long = (LVM_FIRST + 40)

Private Function GetListviewVisibleCount() As Long
   
GetListviewVisibleCount = SendMessage(ListView1.hwnd, _
     LVM_GETCOUNTPERPAGE, _
     0&, _
     ByVal 0&)

Аваков Дмитрий Александрович