Список названий рисунков

Тема в разделе "Lotus - Программирование", создана пользователем Darker, 9 мар 2010.

  1. Darker

    Darker Гость

    Доброго времени суток! Как получить список всех shared рисунков базы?

    Добавлено: Неужели только через NotesNoteCollection?
     
  2. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    Darker
    а чем вас этот метод не устраивает?
    можно еще в виде их всех засветить
     
  3. amigolinx

    amigolinx Гость

    Ну почему же, DXL-экспорт тоже впечатляет (с последующим чтением по тегу "imageresource name=") ;)
     
  4. Darker

    Darker Гость

    Ок, спасибо, решил сделать так
    Код (Text):
    Dim s As New NotesSession
    Dim n As NotesNoteCollection
    Dim e As NotesDocument
    Set n=s.CurrentDatabase.CreateNoteCollection(False)
    n.SelectImageResources=True
    n.BuildCollection
    nid=n.GetFirstNoteId
    For i=1 To n.Count
    Set e=s.CurrentDatabase.GetDocumentByID(nid)
    Redim Preserve images(i-1) As String
    images(i-1)=e.GetItemValue("$ImageNames")(0)
    nid=n.GetNextNoteId(nid)
    Next
    Dim ws As New NotesUIWorkspace
    r=ws.Prompt(4,"Рисунок","Выберите рисунок",images(0),images)
    If r="" Then End
    Call s.SetEnvironmentVar("Pic",r)
    ws.ReloadWindow
     
Загрузка...
Похожие Темы - Список названий рисунков
  1. gx6060
    Ответов:
    2
    Просмотров:
    427
  2. gx6060
    Ответов:
    6
    Просмотров:
    567
  3. Shandrik
    Ответов:
    6
    Просмотров:
    809
  4. anna
    Ответов:
    8
    Просмотров:
    813
  5. erhe
    Ответов:
    10
    Просмотров:
    791

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