1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программирован. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление
  2. Чат codeby в telegram перезагрузка. Обсуждаем вопросы информационной безопасности и методы защиты информации, программирование. Задавайте свои вопросы и комментируйте чужие. Подробнее ...

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

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

Тема в разделе "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, спасибо!!! Заработало! =)
     
Загрузка...

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