-
Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
- Статус
мне интересны такие моменты как. 1)хватаю мышкой документ Drag Drop определить что за документ куда переместил откуда( например из 2 представлений )P.S Я только месяц в Lotuse если можно то отвечать как для чайника - подробно
Гм, ну для начала посмотреть раздел хелпа QueryDragDrop event класса NotesUIDataBase
Синтаксис
QueryDragDrop(Source As Notesuidatabase, EntryName, Continue As Variant)
EntryName - содержит конечный пункт назначения перетаскиваемого документа, документов - итого получаем "куда переместил"
Все остальное - обрабатывается внутри события QueryDragDrop
далее смотрим хелп по классу NotesUIDataBase - ищем свойство Documents
Синтаксис
Set notesDocumentCollection = notesUIDatabase.Documents
Возвращает коллекцию перетаскиваемых (выделенных) документов
Для выбора документов из коллекции смотреть в хелпе
GetFirstDocument
GetNextDocument
Итого - получаем "что за документ(ы)"
А вот "переместил откуда" сложнее. 5-й клиент (5.0.8) выдает результат, но вешается мертво.
Может на поздних версиях клиента и получится.
Пытался получить следующим образом
Определял NotesUIWorkspace
получал NotesUIView из NotesUIWorkspace
вызывал свойство - NotesUIView.ViewName Результат получал, но затем висяк
код например вот такой
Dim ws As New NotesUIWorkspace
Dim uiView As NotesUIView
Set uiView = ws.CurrentView
If Not uiView Is Nothing Then Print uiView.ViewName
Если используешь calendarview - то там есть QueryDragDrop и PostDragDrop для конкретного вида. Использовать drag&drop в calendarView не доводилось. Потому о них умолчу
Синтаксис
QueryDragDrop(Source As Notesuidatabase, EntryName, Continue As Variant)
EntryName - содержит конечный пункт назначения перетаскиваемого документа, документов - итого получаем "куда переместил"
Все остальное - обрабатывается внутри события QueryDragDrop
далее смотрим хелп по классу NotesUIDataBase - ищем свойство Documents
Синтаксис
Set notesDocumentCollection = notesUIDatabase.Documents
Возвращает коллекцию перетаскиваемых (выделенных) документов
Для выбора документов из коллекции смотреть в хелпе
GetFirstDocument
GetNextDocument
Итого - получаем "что за документ(ы)"
А вот "переместил откуда" сложнее. 5-й клиент (5.0.8) выдает результат, но вешается мертво.
Может на поздних версиях клиента и получится.
Пытался получить следующим образом
Определял NotesUIWorkspace
получал NotesUIView из NotesUIWorkspace
вызывал свойство - NotesUIView.ViewName Результат получал, но затем висяк
код например вот такой
Dim ws As New NotesUIWorkspace
Dim uiView As NotesUIView
Set uiView = ws.CurrentView
If Not uiView Is Nothing Then Print uiView.ViewName
Если используешь calendarview - то там есть QueryDragDrop и PostDragDrop для конкретного вида. Использовать drag&drop в calendarView не доводилось. Потому о них умолчу
<!--QuoteBegin-Andre+15:12:2004, 18:44 -->
<span class="vbquote">(Andre @ 15:12:2004, 18:44 )</span><!--QuoteEBegin-->А вот "переместил откуда" сложнее. 5-й клиент (5.0.8) выдает результат, но вешается мертво.
Может на поздних версиях клиента и получится.
Пытался получить следующим образом
Определял NotesUIWorkspace
получал NotesUIView из NotesUIWorkspace
вызывал свойство - NotesUIView.ViewName Результат получал, но затем висяк
код например вот такой
Dim ws As New NotesUIWorkspace
Dim uiView As NotesUIView
Set uiView = ws.CurrentView
If Not uiView Is Nothing Then Print uiView.ViewName[/quote]
Однако исправлюсь.
Код работает. Таки конец рабочего дня - малость затупил
Dim ws As New NotesUIWorkspace
Dim uiView As NotesUIView
Set uiView = ws.CurrentView
If Not uiView Is Nothing Then Print uiView.ViewName
Итого получим еще и откуда документы переместили
<span class="vbquote">(Andre @ 15:12:2004, 18:44 )</span><!--QuoteEBegin-->А вот "переместил откуда" сложнее. 5-й клиент (5.0.8) выдает результат, но вешается мертво.
Может на поздних версиях клиента и получится.
Пытался получить следующим образом
Определял NotesUIWorkspace
получал NotesUIView из NotesUIWorkspace
вызывал свойство - NotesUIView.ViewName Результат получал, но затем висяк
код например вот такой
Dim ws As New NotesUIWorkspace
Dim uiView As NotesUIView
Set uiView = ws.CurrentView
If Not uiView Is Nothing Then Print uiView.ViewName[/quote]
Однако исправлюсь.
Код работает. Таки конец рабочего дня - малость затупил
Dim ws As New NotesUIWorkspace
Dim uiView As NotesUIView
Set uiView = ws.CurrentView
If Not uiView Is Nothing Then Print uiView.ViewName
Итого получим еще и откуда документы переместили
Ты откуда куда перемещаеш Andre? из представление в папку понятно ,но я хочу в представлении перемещать документы( или в форме между 2-мя представление ) ,а там событие указанное тобой никак
А с чего ты взял, что документы можно перемещать в представлении или между 2-мя embedded view???
За исключением calendarview, для этого типа представлений возможно перемещение документа внутри view.
Все остальное imho уже из области шаманских танцев с бубном.
За исключением calendarview, для этого типа представлений возможно перемещение документа внутри view.
Все остальное imho уже из области шаманских танцев с бубном.
Значить буду шаманить . Andre спасибо за помощь , теперь я могу сказать начальству, что не всё так просто в этой жизни.
- Статус
Обучение наступательной кибербезопасности в игровой форме. Начать игру!