Получение списка свойств объекта

[zHackLeX]

Вообще-то для этого есть TlbInf32, но по заявлению какого-то
программиста из команды vb6
"Нельзя получить свойства объекта, созданного в непубличном модуле.
В частности, нельзя получить список свойств/методов формы элемента ActiveX.

Отсюда два способа решения.
1) Получения списка свойств на более низком уровне.
Как такое можно провернуть?


2) Создание ПУБЛИЧНОГО МОДУЛЯ ФОРМЫ в ОСХ.
Все формы классифицируются как Private Object Module.
Вопрос в том, как переделать форму в Public Object Module.

Тогда первый вопрос снимается сам собой. Опять же, только частично, потому что я планирую получать список свойств/методов не только для формы ОСХа, но и для его родителя, или любого другого объекта, ссылка на который помещена в переменную, хранящуюся в Control'e.

[ANDLL]

2)ни как! Ну если сильно важно, то вообще-то можно передавать ссылку на форму в другую программу, используя объявление as Object.
1) Про IDispatch слыхали? Так у него есть такая функция GetInfo или как-то так...

[zHackLeX]

Про IDispatch мы слыхали О-очень мало.
Про функцию GetInfo... Какую, простите?


2) Жаль.
ЖАЛЬ!!!

А насчёт диспатча - мне что, объявлять общую переменную как IDispatch?

[ANDLL]

А насчёт диспатча - мне что, объявлять общую переменную как IDispatch?

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

Dim A as IDispatch


Нет BASIC Вы не провидете

Тебе поможет это:

http://bbs.vbstreets.ru/viewtopic.php?t=9313

[zHackLeX]

Не помогло.



Object does not support this action.

[ANDLL]

Что именно за action? Где ты такую ошибку надыбал???

[zHackLeX]

Пошаговая инструкция к получению вышеозначенной ошибки:

1) Создаём ОСХ
2) Создаём форму в ОСХ,
3) Создаём публичную переменную kOB As Object
4) Присваиваем Set kOB = New Form1
5) КОМПИЛИРУЕМ ОСХ. (В некомпилированном ошибки нет)
6) Создаём ЕХЕ.
7) Подключаем UserControl1 (Это, типа, наш контрол с ссылкой на форму)
В ЕХЕ:
Пытаемся с помощью TLBINF32 получить список методов и свойств объекта UserControl1.kOB, на чём благополучно обламываемся с указанным мной выше сообщением.
Я использовал и ClassInfoFromObject, и InterfaceInfoFromObject - один... ... один бит.
Без разницы, то есть.