Добавление в ListView и автоскроллинг

[Antonariy]

В LV пятой версии в режиме lvwReport неспеша (1-2 раза в секунду) добавляютcя новые записи. Захотелось сделать так, чтобы записи добвлялись в начало по мере поступления. Надумал добавить невидимое поле, писать в него значения таймера и сортировать по убыванию. Записи добавляются в начало, однако сам список скроллируется в конец, к первой добавленной записи. Плюс непристойно мерцает. Можно ли это победить?

[Хакер]

В LV пятой версии в режиме lvwReport неспеша (1-2 раза в секунду) добавляютcя новые записи.

Что есть LV пятой версии? Обёртка из comctl32.ocx что-ли?

Захотелось сделать так, чтобы записи добвлялись в начало по мере поступления. Надумал добавить невидимое поле, писать в него значения таймера и сортировать по убыванию.

А зачем? Ради нужного порядка отображения?

[Antonariy]

Обёртка из comctl32.ocx что-ли?

Да.

А зачем? Ради нужного порядка отображения?

Странный вопрос. Разве то, что я написал, можно понять как-то иначе?

[Хакер]

Для этого не надо создавать никаких невидимых полей с автосортировкой.

Достаточно делать так:

Dim e As ListItem
Set e = ListView1.ListItems.Add(1, , CStr(Rnd))
DoEvents
e.EnsureVisible

А избавляться от мигания - эксперементальным путём. У меня есть мысли, но озвучивать я их не буду, потому как могу ошибаться.

[Antonariy]

EnsureVisible пробовал, не помогает. Только моргает еще непристойнее. Если пройтись пошагово, то он таки делает видимым добавленный элемент, но в режиме непрерывного выполнения почему-то все равно скроллится в конец.

У меня есть мысли, но озвучивать я их не буду, потому как могу ошибаться.

Все равно буду рад услышать. Потому как у меня вообще никаких.

[Хакер]

1) Ты DoEvents между добавлением и EnsureVisible делаешь?

2) LockWindowUpdate. Или сабклассинг внутреннего LV с обламыванеим "лишних" сообщений. Но мне эти способы как-то совсем не нравятся.

[tyomitch]

2) LockWindowUpdate. Или сабклассинг внутреннего LV с обламыванеим "лишних" сообщений. Но мне эти способы как-то совсем не нравятся.

WM_SETREDRAW нравится?

А LockWindowUpdate вообще совсем не для этого.

[kibernetics]

я тоже с этим мерцанием намучался, экспериментировал, и в итоге выставил так:

Код: Выделить всё

LvwName.Visible = False
LvwName.ListItems.Clear
...
LvwName.Add...
...
LvwName.Refresh
LvwName.Visible = True

[Antonariy]

Хакер
1) Сделал, помогло. Однако теперь любуюсь неспешным скроллингом туда-обратно
Добавление происходит при событии от винсока, не думал, что понадобится дополнительное время на раздумья.

tyomitch
Попробую.

kibernetics
Мерцание всего ListView что-то не возбуждает

[Antonariy]

tyomitch
А что с ним делать? Пробовал игнорировать, но эффекта нет.

[Хакер]

Antonariy
Его надо слать, а не игнорировать.

[Antonariy]

В какой момент слать? У меня сейчас:

Код: Выделить всё

With ListView1.ListItems.Add
    ля-ля-тополя
    DoEvents
    .EnsureVisible
End With

[Хакер]

Antonariy
Слать два раза. Первый раз выключать перерисовку (до добавления), второй раз Включать её (до или после EnsureVisible - определи экспериментально)

[Me!]

SendMessage hListView, WM_SETREDRAW, 0, 0 - выключить обновление
SendMessage hListView, WM_SETREDRAW, 1, 0 - включить

выключаешь перед очисткой списка, включаешь после завершения добавления

[Хакер]

Me!
Ты забыл ещё расписать как получить hListView.

[Me!]

Ну, если просите:
hListView = ListView1.hWnd

[Хакер]

ListView1.hWnd - это обёртка ListViewWndClass. А нам нужен SysListView32

[Antonariy]

Удалось частично победить таким способом:

Код: Выделить всё


        DoEvents
        .EnsureVisible
        SendMessage ListView1.hwnd, WM_SETREDRAW, 1, 0


Private Function LVProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case uMsg
        Case WM_CLOSE
            SetWindowLong hw, GWL_WNDPROC, lpListViewProc
        Case WM_SETREDRAW
            If wParam = 1 And lParam = 0 Then Exit Function
            'WM_SETREDRAW и так шлется, в первый раз 0 при Add, второй раз 1 при DoEvents
            'Вот этот второй раз и нужно проигнорировать.
            'При SendMessage lParam приходит равным 1307854
    End Select
    LVProc = CallWindowProc(lpListViewProc, hw, uMsg, wParam, lParam)
End Function

А частично потому, что пока скроллбар не сократится до размера в половину видимого списка, гуляние оного вверх-вниз продолжается. Можно даже уменьшить размер листвью - при сокращении скроллбара все непристойности тут же прекращаются.
Что бы это значило?

[Antonariy]

Еще это как-то связано с выделенным элементом. Когда он сползает за пределы видимой части списка, начинаются тормоза с перерисовкой, но после какого-то момента вдруг прекращаются. Если выделить видимый элемент, то тоже прекращаются, пока выделение вновь не уползет.

[Me!]

по-моему, проще написать ListView контрол самому с нуля на апишках, чем изучать все глюки враппера.

гуглением находил подобный пример контрола - работает отлично, поддерживает все возможности ListView из MSCOMCTL и работает не в пример быстрее!

[tyomitch]

это на vbaccelerator что ли?

[Me!]

нет, тот мне не понравился.
нашёл разработку какого-то индивидуума

[kibernetics]

Me!
так может на всеобщее обозрение чудо-контрол?

[Antonariy]

+1

[Me!]

дык запросто, вот оригинал контрола:

ЗЫ: Antonariy, а в чём смысл твоего последнего поста? так и я смогу сообщения понабивать себе!

[Хакер]

Это такой инкремент счётчика желающих также как и kibernetics вглянуть на контрол.

Настоящие программисты правда пишут "++"

[Me!]

извиняюсь за оффтоп, но AFAIK "+1" ставят как знак того, что высказывание того, кому ставят этот +, заслуживает инкрементирования рейтинга на форуме. здесь он, имхо, не к месту...
но это всего лишь имхо

[kibernetics]

надо отметить контрол добротный

[Antonariy]

Это такой инкремент счётчика желающих также как и kibernetics вглянуть на контрол.

+1

извиняюсь за оффтоп, но AFAIK "+1" ставят как знак того, что высказывание того, кому ставят этот +, заслуживает инкрементирования рейтинга на форуме. здесь он, имхо, не к месту...

-1

[Me!]

Antonariy
я снова тебя не понял...

кстати: в том контроле нет некоторых фич, присутствующих в ListView из MSCOMCTL, например LV.SelectedItem (получение номера выделенного item'а.), но я думаю добавление оного не составит затруднений.

Примечательно в этом контроле то, что корректно обрабатывает получение/потерю фокуса при нажатии Tab, в отличии от контрола на vbaccelerator