Как сделать у класса "сложное" свойство?

У меня есть класс CMessage, представляющий собой элемент коллекции CMessages. Коллекция - это набор неких почтовых сообщений, а экземпляр класса CMessage - это собственно почтовое сообщение. У данного класса есть куча свойств ('From', 'Subject', 'MessageBody' и т.д. и т.п.). Теперь понадобилось описАть в классе MIME-параметры сообщения. Создал для этих целей следующие строковые свойства:
- ContentType
- ContentSubType
- ContentBoundary
- ContentCharset
- ContentTransferEncoding
и так далее...

Потом подумал: ведь было бы 'круче' (в смысле, что удобнее) создать ОДНО свойство 'Content', и все эти 'Type', 'Boundary', 'Charset' описАть уже как 'суб-свойства'. Ну типа как свойство 'Font', имеющееся почти у каждого VB-контрола:
- Text1.Font.Charset = 204
- Text1.Font.Bold = True
- Text1.Font.Name = 'Tahoma'
(и так далее).

Однако, бэйсик не позволяет использовать user defined types в качестве параметров или return types у процедур и функций, объявленных как Public. Значит, объявить это своё свойство 'Content' с типом, указывающим на свой Type, я не смогу.

Свойству 'Font' хорошо: оно объявлено как 'StdFont' - это вам не user defined type )

Что делать? объявлять Content As ContentClass, где ContentClass - тоже некий класс (со свойствами 'Type', 'SubType' и проч.)? или ещё как?

А разве функции назначения свойств обязательно должны быть public?

А как задать свойство извне, если оно не Public?????????

0

1. объявлять Content As ContentClass - ДА.

2. Еще должно получиться так:
- сделать тлб и там прописать твой UDT
- подключить тлб к проекту
- прописать паблик свойство с этим UDT

0

А чем мы обычно делаем TLB?
:-))
в смысле - софт...

Блокнотом и MIDL.EXE
подсветка в Вижуал С++.

0

MIDL.EXE? - ах, ну само собой разумеется! и как я мог забыть?!
:-)))))))))))

Ну а если без шуток - я вообще не знал, как делать библиотеки типов.
Спасибо большое!