TypeLib Information

[zHackLeX]

У меня в ОСХ'е есть окно, которое, понятное дело, идентифицируется как private object module, и приватная же объектная переменная, эту форму содержащая.
Имеется также ПУБЛИЧНАЯ переменная (As Object), содержащая ссылку на этот объект (то есть, такая же, как и приватная, но - As Object)

Внимание, вопрос.
В библиотеке TLBINF32.dll есть функция InterfaceInfoFromObject.
Почему я не могу получить ни одного члена коллекции Members, когда ОСХ скомпилирован и подключен к внешнему ЕХЕшнику?
Он пишет, что Object does not support this action.
Обращение:

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


    Dim mem as MemberInfo
    Dim TInfo as InterfaceInfo
    Set TInfo = InterfaceInfoFromObject(MyOCX1.Form1ref)
    For Each mem in TInfo 'Вот здесь ошибка
        List1.Additem mem.Name
    Next



Можно ли получить информацию обо ВСЕХ методах и свойствах ДАННОГО ОБЪЕКТА, имея только ссылку на него в объектной переменной?

[Vi]

Может
Set TInfo = InterfaceInfoFromObject(MyOCX1.Object.Form1ref)

[zHackLeX]

Так ясно.
А если картина такая:

Форма приватная в ОСХ
-------------------------------
ОСХ-элемент |- Метод GetFormMethods,
-------------------------------
возвращающий (в теории) список всех методов.
В самом методе GetFormMethods есть объявление:

_________________________________________________

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

Private Dialog1 as Form1
Public Function GetFormMethods() as Variant
    Dim mem as MemberInfo
    Dim TInfo as InterfaceInfo
    Set TInfo = InterfaceInfoFromObject(Dialog1)
    .....


_________________________________________________

А любое обращение к коллекции members ведёт к сбою с ошибкой.

[zHackLeX]

Да, и почему в НЕСКОМПИЛИРОВАННОЙ ВЕРСИИ ВСЕ РАБОТАЕТ??

То есть, в группе проектов, куда входит ОСХ всё тип-топ,
а компилированный осх не прёт?

Как быть?