Проблема такая: мне необходимо создать древовидный список, в котором более 50000 элементов, как это сделать, если в стандартном компоненте от микрософт индекс описывает знакопеременный интежер??

Эм, неслабое деревце, во-первых зачем такое количество, во-вторых, скорее всего придётся делать новый контрол...

Попробуй породить от стандартного новый объект с Index As Long

Spawn™Production®
эх ты какой...зачем ...по работе надо (справочник надо сварганить)
Akina
дело в том, что при добавлении нового эелемента в дерево в определенный момент программа вылетает с ошибкой времени исполнения Index Out Of Bounds, в дебаге видно, что в конце концов индекс становится отрицательным, т.е. сам контрол не поддерживает больше 32767, если что-то можно сделать - объясни поподробнее..

Ну ясен пень...
Переходи на VB.Net - там TreeNodeCollection.Count тоже Integer, но там integer 32-битный

Вот хоть убейте, но я не понимаю зачем необходима загружать ВЕСЬ справочник в дерево!
50000 элементов - это же весь день уйдет на поиск нужного элемента! Как-то это не user friendly!

Naghual
ничего подобного, поиск происходит за несколько секунд, а загрузка всего српавочника - секунд 10 (используя компонент ListView)

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

Naghual
пользователю должно предлагаться иерархическое представление денных, сам он вручную ничего не должен искать, хотя и может, поиск осуществляется программно, с помощью фильтра с определенными условиями.
Повторяю: это справочник, т.е. все данные должны быть загружены в дерево, чтобы человек мог и сам по нему полазать и поискать фильтром.

А почему не сделать это дерево динамическим?
Да еще и только с одной открытой ветвью?
Это что-же за данные там такие?

Короче, Naqhual правильно сказал. Если нет возможности перейти на .НЕТ, то обработай события Expand и Collapce. Открылся и Свернулся соответственно.
Оба события получают в качестве параметра Node, т.е. ты легко можешь узнать, какая ветка открылась командой:
Node.Key
И подгрузить соответствующую ветку. А если боишься, что злой юзверь откроет ВСЕ ветки, то просто при событии Expande для одной основной ветки, делай Collapce всем остальным.

Kergan
из-за недостатка одного контрола переходить не .net нелогично.
Лучше посоветуйте кто знает альтернативный контрол...

Вот тебе vbAccelerator TreeView Control.
В нем индекс описан как Long.

Naghual
спасибо за ссылку...мне бы подошел VB6_MultiColumn_Tree с вышеупомянутого сайта, только не могу разобраться с его работой, предлагаемый на сайте екзампл не работает

А почему не работает?
У меня работает. В чем проблема то?

Naghual
пример и скомпиленный экзэшник выдают ошибку времени исполнения 91

А ты установил все необходимые библиотеки?

Naghual
я бы с удовольствием, но он же не говорит, что нет какой-то библиотеки, а просто run time error

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

Naghual

Цитата

Там есть специальный раздел - требуемые компоненты!

да не уже ли!

Цитата

Не хочеш ты видимо сам ничего делать...

спасибо большое за помощь, очень порадовал и поднял настроение
З.Ы. сорри за оффтоп, а тему, если мы пришли к решению проблемы, можно и закрыть

Цитата

да не уже ли!

Ага. Точно говорю!
Вот страница загрузки этого контрола.

Рефференс выделен (да, конечно, я его по памяти не так назвал).



Присоединённый файл ( Кол-во скачиваний: 6 )
 vbAcceleratorDownloadPage.jpg 44,81 Kb

Naghual
оффтоп конечно, но объясню мою политику:
при даунлоуде я конечно же видел, что есть референсы, но посчитал более логичным сначала скачать пример, запустить и добиться ошибки во время загрузки проекта (типа missing...), однако же вместо этого я получил просто ошибку времени исполнения и в исходнике и в экзешнике. Далее я скачал этот гребаный ssubtmr6.dll, положил в папку с примером, зарегистрировал - не получил никакого положительного результата, ну это ж не дело!!
З.Ы. А рубить с плеча и "обижать" словами не хорошо, все-таки, не с незарегистрированным или новичком общаешься ;)

Ок. Тогда давай попробуем разобратся с твоей проблемой.
Как я понял ты работаеш с компонентой Multi-Column TreeView Control.
В какой строке и какой процедуры ты получаеш ошибку 91?

Код

Private Sub setUpColumns() Dim cCol As cCTreeViewColumn    With tvwColumns       With .Columns          .Item(1).Width = 128          Set cCol = .Add("TRACK", "Track")          Set cCol = .Add("LENGTH", "Length")          Set cCol = .Add("SIZE", "Size")       End With    End With End Sub

ошибка возникает в строке .Item(1).Width = 128

Странно. У меня твой код работает отлично и без ошибок.
Давай наверное пообщаемся через Аську и попробуем разобратся в твоей проблеме в реальном режиме.

Naghual
ладна, пока попробую сам поколдовать, если ничего не получится - будем общаться онлайн...

А попробуй перекомпилировать сам ОСХ.
Тут возможен прикол с локализацией ОС.

да блин.. гора оффтопа.
итак.
говоришь у тебя мой ник вылезает=)
практически все эл-ты с вбакселератора требуют этого ssubtmr6.dll - как-то так. советую скачать его вместе с исходниками.
затем: какой текст ошибки?
попробуй убрать сию строку и запустить прогу. мож заработает.
попробуй разобраться в коде, можт поймёшь, в чём ошибка

большей кривизны я еще не видел положил ssubtmr6.dll в систем32, зарегистрировал и ошибку Object Variable or With block variable not set по всему коду как рукой сняло...всем спасибо за помощь...

да...