CheckBox в TreeView из Common Controls 5.0

[ger_kar]

Как можно сделать и можно ли вообще CheckBox в TreeView из состава Microsoft Windows Common Controls 5.0? Речь именно о 5 версии. Раньше в 6 делал без проблем, но как оказалось нужное свойство в Microsoft Windows Common Controls 5.0 напрочь отсутствует, а 6 версия не поддерживает стили XP. По форуму и в интернете искал, но ничего вразумительного по этой теме не нашел.

[pronto]

Конечно можно! Это делается установкой специального стиля:

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

   ' установка стиля в TreeView для отображения CheckBox'ов

   Dim TreeStyle&

   ' получить уже установленный стиль
   TreeStyle& = GetWindowLong(TreeView_HWND, GWL_STYLE)

   ' добавление стиля
   TreeStyle& = TreeStyle& Or TVS_CHECKBOXES

   ' установка нового стиля
   SetWindowLong ByVal TreeView_HWND, ByVal GWL_STYLE, ByVal TreeStyle&

P.S. Тема, конечно же, не нова...

[Sam777e]

' установка нового стиля
SetWindowLong ByVal TreeView_HWND, ByVal GWL_STYLE, ByVal TreeStyle&

Вероятно, случайно не стерто ?

SetWindowLong ByVal TreeView_HWND, ByVal GWL_STYLE, ByVal TreeStyle&


С уважением

[ger_kar]

Спасибо за подсказку.

P.S. Тема, конечно же, не нова...

В процессе поиска информации я на эту тему натыкался, но она немного не о том .

[pronto]

Вторая половина той темы о том, как получать/управлять состояние/м чекбокса.

[bon818]

ЕСТЬ-ЖЕ НОРМАЛЬНЫЕ TreeView ControlЫ
ВОТ НАПРИМЕР
http://www.Planet-Source-Code.com/vb/sc ... 7&lngWId=1

[ger_kar]

Спасибо, попробую .

[ark]

Если картинки в TreeView не критичны, то можно использовать их, особенно если надо TreeState чекбоксы - на голом API это слишком геморрно.

TV_Images.zip

(2.45 Кб) Скачиваний: 105

Кстати, там в ссылке искали hItem из ноды.
(c) Brad Martinez, 1999:

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

Private Function hItemFromNode(nod As Node) As Long
   CopyMemory hItemFromNode, ByVal (ObjPtr(nod) + 68), 4&
End Function

[ger_kar]

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

[Хакер]

Дичайший блек-кодинг.

[ark]

Ну дык работает жеж. Уже 13 лет.
Брэд расковырял как память вокруг VB Node объекта (причем и 5-го и 6-го осх), так и вокруг hItem. И на 68 оффсете ВСЕГДА hItem. Чего ж тут дикого? Или MS седьмой осх выпустит?

[Хакер]

Или MS седьмой осх выпустит?

Запросто. За последние 14 лет с момента выхода VB6 она выпускала и новые версии Common Controls и новые версии msvbvm60.dll.

Что характерно — не какие-то там мелочи исправляли, а меняли формат внутренних структур, вклинивая в них новые поля (не в конец структур, что особо приятно).

[ark]

Вот за это их люблю до зубовного скрежета. Причем меняют они не только формат внутренних структур, но и вполне себе документированные вещи. В 64 разрядной винде, например, GetSystemDirectory для VB (32 разрядное приложение жеж) по честному даёт строку Windiws%\System32. Но любая подстановка этой строки хоть в Dir, хоть в API-шные вызовы втихую меняется на c:\Windows\SysWOW64! Теперь во все старые проги надо добавлять алиас SystemNative.
В comctrl.dll, в пятой, кажись, версии, поменяли офсет lParam от hItem c 28 на 16 (передвинули вперёд).
Но, что касается осх - это вряд-ли (последняя версия осх 2004 г.). А если dll поменяют - то и осх весь загнётся.

[ger_kar]

Или MS седьмой осх выпустит?

Так даже если и выпустит он же по идее не заменит собой предыдущий, а просто будет сосуществовать с ранними версиями, как сосуществуют 5 и 6 версии, поэтому ничего страшного не произойдет я думаю. Ну а с новым контролом может и такой кодинг не понадобится.
И кстати этот казалось бы блек-кодинг тем не менее куда как более понятен, чем обходной вариант с кучей кода. На этот код бросил только взгляд и сразу понятно, что происходит.

[Хакер]

Нет, они выпустят новую версию 6-го с тем же CLSID-ом. Иначе какой смысл выпускать.

[ark]

новую версию 6-го с тем же CLSID-ом

Ага, ADO уже выпустили. В SP1для семёрки все IID'ы для всех интерфейсов поменяли.
Кстати, насчет black_coding - VarPtr и GetMem4 - это тоже dirty hack?

[Хакер]

Кстати, насчет black_coding - VarPtr и GetMem4 - это тоже dirty hack?

По-моему каждому человеку на земле очевидно, что нет.

[ark]

Мне - не очевидно. Где msdn'овская документация (неофициальные статьи не предлагать)? Что мешает в следующей версии msvbvm поменять GetMem4 на GetMemoryLong а VarPtr обратно на VARSEG?

[Хакер]

ark, у меня впечатление, что ты троллишь. Но если не троллишь, то у тебя безнадёжно кривое восприятия мира. Я не хочу участвовать в его исправлении.

[ark]

Как хочешь. Как говорил Эйнштейн, всё в этом мире (и кривизна в т.ч.) - относительно.