Как Передать Массив Из Функции? =)

Rosna

Well-known member
12.11.2003
47
0
#1
Подскажите, как передать массив из функции.

Пишу такое (в классе):

Код:
Property Get Embedded As Variant

Dim EmbeddedObjects As New NotesRichTextItem(meDoc, FN_PRESENTATION)
Set Embedded = EmbeddedObjects.EmbeddedObjects

End Property ' Get Embedded
Вызываю потом так:
Код:
Forall o In form.Embedded
Messagebox( o.Name )
Print o.Name
End Forall
И получаю соотвественно ошибку тайп мисмач %)
Помогите пожалуйста!!! Туплю с утра :)
 

nvyush

Lotus team
22.04.2009
2 317
0
#2
Rosna
Попробуйте так:
Код:
Property Get Embedded As Variant

Dim rtitem As NotesRichTextItem
Set rtitem = meDoc.GetFirstItem(FN_PRESENTATION)
If rtitem Is Nothing Then Exit Property
Embedded = rtitem.EmbeddedObjects

End Property ' Get Embedded