• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы Rosna
  • Дата начала
R

Rosna

Подскажите, как передать массив из функции.

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

Код:
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

И получаю соотвественно ошибку тайп мисмач %)
Помогите пожалуйста!!! Туплю с утра :)
 
N

nvyush

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
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!