Пользовательский тип в свойствах класса.

[GKosh]

Не хочет, злодей, компилировать!
Тип объявлен:
Public Type TypeName
в обыкновенном модуле и используется в классе того же проекта в качестве свойства (Private переменная as TypeName со всеми вытекающими в процедурах Get и Let).
При компиляции выдаёт ошибку:
" Only public defined types defined in public object modules can be used as parameters or return types for public procedures of ckass modules."

Ну что мне с ним делать! Подскажите пожалуйста.

[GSerg]

Ага, ещё один наступивший на эти грабельки
Придётся создавать ActiveX DLL, в этой библе создавать класс (неважно как назвать), в этом классе описать Public Type ... End Type, библу скомпилировать и к проекту через референсы подключить! Только тогда вся эта шняга будет считаться PUBLIC

[GKosh]

Ничего себе!
А простая DLL подойдёт?

[skiperski]

...и используется в классе того же проекта...

Придётся создавать ActiveX DLL...

Не надо ничего создавать.

для ActiveX EXE:
объявить тип как Public в классе проекта.

для Standart EXE:
объявить тип как Private в классе проекта, а все Public свойства/процедуры/функции переделать в Friend.

[GSerg]

Так-так-так... Осень-осень интересно...

Создаём класс. Пишем в нём private type. Создаём friend functon as mytype. При попытке вызова из другого класса огребаем, ибо там этот тип не опререлён. В вызывающем классе описываем этот тип заново, и тоже private. Теперь friend из первого класса вызывается.
Прикол в том, что в вызывающем классе можно описать тип по-другому, но с тем же именем, со свеми вытекающими багами.
Но способ всё равно инересный

[skiperski]

для Standart EXE:
объявить тип как Private в классе проекта, а все Public свойства/процедуры/функции переделать в Friend.

Поправка:
объявить тип как Public в простом модуле, а все Public свойства/процедуры/функции класса переделать в Friend.