Создание нескольких копий модуля

[GSerg]

Сабж!
Представим, что у нас есть OCX. В оном определён 1 юзерконтрол.ctl и 1 модуль. В этом случае сей модуль является общим для всех экземпляров юзерконтрола, сколько бы их ни было.
Спрашивается, каким образом сделать так, чтобы каждый экземпляр заимел свой собственный, если можно так выразится, модуль? Фишка в том, что в модуле находится callback, и для каждого экземпляра он должен быть свой. В отличие от сабклассинга, где можно по хвнд однозначно понять, чьё сообщение, тут не передаётся никаких опознавательных параметров.

[Fedorfx]

А если поменть модуль на класс.
В этом случае AdressOff будет указывать на процедуру именно этого класса.
Хотя это ИМХО - сам не пробывал.

[GSerg]

Если бы всё было так просто.
AddressOf работает только с модулями.

[Fedorfx]

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

[Ducis]

Наверное надо создавать проект ActiveX DLL в нем форму с нужным контролом и писать св-ва и методы через которые на этот контрол воздействовать. Компилировать DLL-ку и подключать к своему проекту.

[Taras2]

Сабж!
...
Спрашивается, каким образом сделать так, чтобы каждый экземпляр заимел свой собственный, если можно так выразится, модуль? Фишка в том, что в модуле находится callback, и для каждого экземпляра он должен быть свой.

Т. е. из модуля вызывается Callback, который вызывает процедуру в этом модуле.
Тогда в модуле необходимо исключить свойства, оставивь только методы. Вызвав callback, другой объект вызвать повторно callback не сможет, до тех пор, пока не отработает первый (поток один).

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

Если селекция необходима (мало-ли) тогда вызывай метод в котором callback с каким нибудь параметром ("MyObjectName" as String), по которому и отследиш, откуда вызван метод.

[GSerg]

Нет, не так. Callback вызывает винда. Менять его формат я не могу.

Короче.
В принципе, можно запретить создание более одного инстанса юзерконтрола, тогда проблема отпадает. Просто хотелось узнать, мож есть какой извращённый способ. Неизвращённых нет, знаю. Так что, видимо, фиг с ним, одного инстанса вполне достаточно.
Или есть идеи?

[Taras2]

Нет, не так. Callback вызывает винда. Менять его формат я не могу.

Я неверно неправильно выразился. Ты вызываеш инициатора Callback (скажем EnumWindow()), а винда, в лице EnumWindow(), вызывает Callback.

Короче.
В принципе, можно запретить создание более одного инстанса юзерконтрола, тогда проблема отпадает. Просто хотелось узнать, мож есть какой извращённый способ. Неизвращённых нет, знаю. Так что, видимо, фиг с ним, одного инстанса вполне достаточно.
Или есть идеи?

В принципе самое главное, знать почему разрешено создавать Callback только в модуле? (Я не знаю )
Как один из извращённых способов, могу предложить создать контрол в контроле. Т.е. во внутреннем контроле находиться модуль, причём один. Внешний контрол клонирует внутренние.

[GSerg]

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

[Taras2]

Это ограничение языка.

Это понятно, но с чем оно связяно, может с динамическим и постоянно меняющимся распределением памяти под методы объекта, или ещё что-то?

[GSerg]

Не знаю, но это и не важно, поскольку нет способа это обойти.

[Taras2]

Не знаю, но это и не важно, поскольку нет способа это обойти.

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

[GSerg]

Этот источник я знал изначально.
Дай мне способ получить указатель на функцию класса, и ты решишь проблему (раз) и избавишь весь мир от огромного гемора (два).

[Dmitriy2003]

2 Taras2. Люди написавшие VB не реализовали ету фичу...
------------------------------------------------------------------------------
На мой взгляд это даже теоретичекски не возможно для такого языка как VB. (за простоту и удобство надо платить... ну кое чем покрайней мере, а может-быть это даже и не планировалось никогда ведь работа с указателями из VB невозможна (напрямую))...