Коротко: добавлена возможной обратной связи (обновление списка при изменении фильтра); обновление списка не при каждом нажатии клавиатуры, а по таймауту.
Небольшой демо-пример прилагается.

- SetContext(1C_context) - устанавливает контекст, в котором будет вызываться
коллбэк FilterValue_OnFilterChange(стрНовыйФильтр). Для получения COM-объекта
из контекста используестя следующая метода:
Если ПустоеЗначение(стрКонтекст_Объект) = 1 Тогда
     оСистема = СоздатьОбъект("Система");
     //!!! Сериализовать(Контекст) необходимо кэшировать, потому что при повторных сериализациях всё ломается !!!
     стрКонтекст_Объект = оСистема.Сериализовать(Контекст);
КонецЕсли;

WSH = createObject("MSScriptControl.ScriptControl");
WSH.language = "javascript";
//!!! Вот это самая главная фишка !!!
Объект = WSH.Eval("GetObject("""+стрКонтекст_Объект+""")");
     
svcsvc = CreateObject("svcsvc.Service");
svcsvc.SetContext(Объект);    //теперь будет работать коллбэк FilterValue_OnFilterChange()

- AddString(стр), RemoveAll()  - методы для заполнения списка значений, альтернатива
передачи списка одной большой строкой.

- KeyboardTimeout - таймаут, в миллисекундах, для обновления списка по фильтру.
По умолчанию равен 0, и список обновляестя при каждом изменении фильтра.

AddString(стр)

это круто

посмотри  http://vxplib.sourceforge.net/
Правда, там все окошки со стилем TOPMOST. Но зато есть исходники, можно под себя переделать.

Добрый день! Спасибо за доработку!

При использовании метода SelectInTree столкнулся с такой ситуацией:
1. Курсор не становится в начало дерева (ветки все при этом раскрыты) при создании формы.
2. При передаче параметра ByVal OnlyItems As boolean=True все равно отображается иконка Box у корневых ветвей и ее можно выбрать.
3. При передаче модификаторов в верхнем регистре нет никакой реакции метода.

Если найдется возможность исправить, то было бы удобнее.

Зато обнаружился и интересный момент: если при передаче корневой ветки в названии указывать "|e" и не переводить строку, то она будет раскрыта и помечена одновременно.

David1C писал(а) 16. Февраля 2023 :: 21:05:


Надо библиотеки VC поставить, без них система не регистрировала.
Положил в облако:
https://cloud.mail.ru/public/ag9s/PtU75rKqL