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

Тема в разделе "Lotus - Программирование", создана пользователем Rosna, 12 дек 2011.

  1. Rosna

    Rosna Well-Known Member

    Регистрация:
    12 ноя 2003
    Сообщения:
    48
    Симпатии:
    0
    Подскажите, как передать массив из функции.

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

    Код (Text):
    Property Get Embedded As Variant

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

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

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    Rosna
    Попробуйте так:
    Код (LotusScript):
    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
     
  3. Rosna

    Rosna Well-Known Member

    Регистрация:
    12 ноя 2003
    Сообщения:
    48
    Симпатии:
    0
    nvy, спасибо!!! Заработало! =)
     
Загрузка...

Поделиться этой страницей