Как получить ссылку на контрол зная его хэндл?

[ger_kar]

Есть некий контейнер с контролами, например самый обычный Frame. Контролы, которые на нем лежат, должны подключаться к источнику данных (через свойство DataSource). Можно конечно написать десяток строк кода для подключения к источнику данных, а можно это процесс автоматизировать. Для этого достаточно перебрать в цикле все контролы расположенные на контейнере и для всех найденных контролов, кроме лейблов, произвести подключение к источнику данных. И тут возникает вопрос, а как эти контролы то перечислить? Перечислить то конечно можно, но все способы жутко не оптимальны. Например, можно было бы перечислять все контролы на форме и у каждого делать проверку на принадлежность к нужному контейнеру, но это куча лишней не кому не нужной работы, так как контролов на форме достаточно много, а подключать нужно лишь небольшую часть. Можно поступить по другому, искать не контролы, а окна им принадлежащие. Найти все дочерние окна данного окна - контейнера можно быстро просто и оптимально, но тут встает вопрос, как превратить эти хендлы в объектные ссылки на сами контролы. То что превратить можно это я неоднократно читал в постах Хакера, но как это сделать для меня пока тайна. И даже с какой стороны начать копать я пока не представляю, поэтому и обращаюсь за помощью.

[Sam777e]

Excel, VBA

Controls.png (77.82 Кб) Просмотров: 2678

[ger_kar]

Все это конечно хорошо, вот только для VB6 это не прокатывает...

[Qwertiy]

Excel, VBA

Интересно, это так всегда было, или VBA развивается так?
Кстати, есть подозрение, что можно сразу использовать Frame1.Controls, а не Me.Controls("Frame1").Conrols.

[ger_kar]

Интересно, это так всегда было, или VBA развивается так?

Ну тут дело не в самом VBA или VB6, а только в компонентах, которые в используются. И тут то и проявляется вся разница. Например VB6 поддерживает массивы контролов, и на одну форму можно положить несколько контролов с одинаковым именем, но разными индексами и даже сделать для них общий обработчик событий, а в VBA такое уже не прокатывает, что порой бывает просто жутко неудобно. Ну и других отличий тоже достаточно, просто привел пример самого наболевшего.

Кстати, есть подозрение, что можно сразу использовать Frame1.Controls, а не Me.Controls("Frame1").Conrols.

Да, так оно и есть, потому, что контрол Frame из состава UserForm, входящего в VBA реализует свойство Controls, которое к тому же еще является и свойством по умолчанию, а у VB6'шного Frame такого свойства нет, поэтому такая метода не прокатывает.

[alibek]

Например, можно было бы перечислять все контролы на форме и у каждого делать проверку на принадлежность к нужному контейнеру, но это куча лишней не кому не нужной работы, так как контролов на форме достаточно много, а подключать нужно лишь небольшую часть.

Даже если их тысяча, время на их перебор будет незначительным на фоне остальной работы.
Впрочем правильнее будет при запуске программы создать коллекцию из элементов управления и обходить коллекцию.
Следующая степень — написать класс-контроллер, в который добавляются элементы управления (при старте) и который будет управлять контролируемыми элементами, примерно так:

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

Public ctl as FormControls
...
Set ctl = New FormControls
ctl.AddControl txtField1, lblField1
...
ctl.Enable = False 'batch disable
Set ctl.DataSource = Data1 'batch binding
ctl.Reset 'batch clear


Можно поступить по другому, искать не контролы, а окна им принадлежащие.

Без хардкода это не сделать, необходимости в этом нет.

[alibek]

Интересно, это так всегда было, или VBA развивается так?

Подключи к проекту VB компонент UserForms, и будут такие же формы с такими же методами, как в VBA.

Да, так оно и есть, потому, что контрол Frame из состава UserForm, входящего в VBA реализует свойство Controls, которое к тому же еще является и свойством по умолчанию, а у VB6'шного Frame такого свойства нет, поэтому такая метода не прокатывает.

У всех визуальных элементов управления VB есть свойство Container.

[The trick]

Можно через Set/GetProp устанавливать/получать адрес объекта. Потом через Get/Putmem, __vbaObjSet(AddRef) получать сам объект.

[ger_kar]

Впрочем правильнее будет при запуске программы создать коллекцию из элементов управления и обходить коллекцию.Следующая степень — написать класс-контроллер, в который добавляются элементы управления (при старте) и который будет управлять контролируемыми элементами, примерно так:

Спасибо за идею, тогда уж можно сразу наверное сделать UserControl - контейнер. Хотя даже не знаю, возможно ли делать UserControl'ы контейнеры, надо посмотреть, ни разу такого не делал

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

Ну такой подход точно идет в разрез с принципом лени.

Можно через Set/GetProp устанавливать/получать адрес объекта. Потом через Get/Putmem, __vbaObjSet(AddRef) получать сам объект.

Не понял момента. Это к чему относится? Если например известен адрес объекта, который по сути будет адресом (ссылкой) на интерфейс этого объекта, то какой еще объект нужно получать через Get/Putmem?

[ger_kar]

У всех визуальных элементов управления VB есть свойство Container.

Ну это же свойство никак не заменяет свойства Controls. Через это свойство можно только получить ссылку на объект-контейнер, на котором лежит контрол.

[The trick]

Не понял момента. Это к чему относится? Если например известен адрес объекта, который по сути будет адресом (ссылкой) на интерфейс этого объекта, то какой еще объект нужно получать через Get/Putmem?

1. Относится к названию темы
2. Получить объект (контрол)
Перебираешь все дочерние фрейма через EnumChildWindows, получаешь хендлы дочерних окон. При каждой итерации получаешь (GetProp) адрес объекта(контрола), и используешь его, тем самым переводя хендлы окон в объектные ссылки на сами контролы (все как ты писал в первом посте).