UDT в коллекции

[fanat1234]

Уважаемые господа!

Вопрос следующий:
Создаю собственный класс. В классе одним из свойств задаю коллекцию. В соседнем модуле объявлен UDT. Проблема в том, что при попытка добавления в коллекцию элемента UDT выдается сообщение типа: Only public user defined types defined in public object modules can be used as parameters or return types for public procedures of class modules or as fields of public user defined types

Уже все перепробовал. Помогите!

[Diamock]

Только UDT объявленные в модуле, как Public, могут использоваться в качестве параметров или возвращаемого значения для Public процедур модуля класса или как поля Public UDT.

[fanat1234]

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

Public Type FuckingType
    FirstFuck As Long
    SecondFuck As Long
End Type
Public ColOfFucks As New Collection

Public Sub LetsFuck()
Dim HeIs As FuckingType

HeIs.FirstFuck = "20"
HeIs.SecondFuck = "30"

ColOfFucks.Add HeIs

End Sub

Вот этот код выдает ошибку. Скажите что не так?

[Viper]

Вот этот код выдает ошибку. Скажите что не так?

Если код находится в классе смотри первый ответ в этой теме.

[Хакер]

Скажите что не так?

Использовать тип можно только в том случае, если его типоописание попадёт в TLB. Необходимым условием для этого является то, что UDT публично, и класс тоже публичен.

Если хочется использовать UDT, но специфика проекта не позволяет поиметь публичный класс (например Standard EXE в VB6 не позволяет создать такой, уверен, что в VBA похожая ситуация), то проблема решается всего лишь изготовлением собственной внешней TLB-шки с описанием нужного UDT.

[fanat1234]

Скажите что не так?

Использовать тип можно только в том случае, если его типоописание попадёт в TLB. Необходимым условием для этого является то, что UDT публично, и класс тоже публичен.

Если хочется использовать UDT, но специфика проекта не позволяет поиметь публичный класс (например Standard EXE в VB6 не позволяет создать такой, уверен, что в VBA похожая ситуация), то проблема решается всего лишь изготовлением собственной внешней TLB-шки с описанием нужного UDT.

Где почитать про изготовление TLB(TypeLibrary)? Поправьте, если неправильно расшифровал...

[fanat1234]

Если код находится в классе смотри первый ответ в этой теме.

Представленный код находится в модуле...

[Хакер]

Где почитать про изготовление TLB(TypeLibrary)?

http://ru.wikipedia.org/wiki/Type_library

[alibek]

А есть ли необходимость в UDT?
Классы со свойствами более гибки.

[Хакер]

С классами со свойствами можно нарваться на дырявую абстракцию, заключающуюся в том, что свойство выглядит как член-поле UDT, но ведёт себя совершенно иначе, например, при передачи его ByRef оно, в отличие от поля UDT, не изменит своё значение, если внутри функции была такая попытка.

[alibek]

Так надо передавать не свойство byref, а ссылку на объект.

[Хакер]

Так надо передавать не свойство byref, а ссылку на объект.

Могут быть функции с уже зафиксированным прототипами, нотация которых или давно устоялась в проекте, или вообще не может быть изменена. И тут дело в том, что при переходе от такого UDT:

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

Type Vector
    x as Double
    y as Double
    z as Double
End Type

к такому классу:

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

Public x as Double
Public y as Double
Public z as Double

всё поменяется, хотя это совсем не очевидно.

[fanat1234]

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