1. Акция на весь декабрь! Получай оплату х2 за уникальные статьи, объемом от 200 слов, если в заголовке темы и теле статьи присутствует слово Python
    Скрыть объявление

Lotus Можно Ли Кодом Узнать Закрыта Секция Или Открыта На Форме?

Тема в разделе "Lotus - Программирование", создана пользователем StarikStarik2705, 18 мар 2013.

  1. StarikStarik2705

    StarikStarik2705 Well-Known Member

    Регистрация:
    8 фев 2012
    Сообщения:
    103
    Симпатии:
    0
    есть форма и я хочу выполнить код какой то с условием что секция открыта, или закрыта, к примеру ws.currentDocument.gotoField("1dfgdfg") обращаюсь к полю в секции, если секция закрыта этот код выдаст ошибку что я немогу добраться до поля. Есть ли возможность узнать закрыта или открыта секция?
     
  2. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.051
    Симпатии:
    146
    NotesRichTextSection class
    Properties: IsExpanded
     
  3. StarikStarik2705

    StarikStarik2705 Well-Known Member

    Регистрация:
    8 фев 2012
    Сообщения:
    103
    Симпатии:
    0
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase
    Dim dc As NotesDocumentCollection
    Set dc = db.UnprocessedDocuments
    Dim doc As NotesDocument
    Set doc = dc.GetFirstDocument
    Dim rti As NotesRichTextItem
    Set rti = doc.GetFirstItem("Body")
    Dim rtnav As NotesRichTextNavigator
    Set rtnav = rti.CreateNavigator
    If Not rtnav.FindFirstElement(RTELEM_TYPE_SECTION) Then
    Messagebox "Body item does not contain a section,",, _
    "Error"
    Exit Sub
    End If
    Dim rts As NotesRichTextSection
    Do
    Set rts = rtnav.GetElement
    If rts.IsExpanded Then
    Messagebox "Section is expanded",, rts.Title
    Else
    Messagebox "Section is not expanded",, rts.Title
    End If
    Loop While rtnav.FindNextElement

    Нет нет нет, эта штука найдёт секцию внутри Рич поля, а в моём случае я просто на форме секцию сделал, и хочу узнать закрыта она или нет
     
  4. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.051
    Симпатии:
    146
    Хм.. вот оно как...
    Если с ходу, без сильных раздумий: в UI - обрабатывать ошибку GotoField, которую ты получаешь, ее номер 4407.
    Можно ли такое сделать в BackEnd...
    Думаю без RTF со встроенной секцией никак.
    Смотрел через scanEz, секция как отдельный объект не отображается.
    Да и через XML не поможет, вот: 'qwe2' - внутри секции
    Так что...
     
Загрузка...

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