1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. Rosna

    Rosna Well-Known Member

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

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

    Код:
    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
    И получаю соотвественно ошибку тайп мисмач %)
    Помогите пожалуйста!!! Туплю с утра :)
     
  2. nvyush

    nvyush Well-Known Member
    Lotus team

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

    Rosna Well-Known Member

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

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