Мышка в Lotus

  • Автор темы Unique
  • Дата начала
Статус
Закрыто для дальнейших ответов.
V

Vagor.ini

#3
про что писать, про обработку кликов мыши на виде или как...
 
U

Unique

#4
мне интересны такие моменты как. 1)хватаю мышкой документ Drag Drop определить что за документ куда переместил откуда( например из 2 представлений )P.S Я только месяц в Lotuse если можно то отвечать как для чайника - подробно
 

Andre

Well-known member
29.07.2004
109
0
#5
Гм, ну для начала посмотреть раздел хелпа 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 не доводилось. Потому о них умолчу
 

Andre

Well-known member
29.07.2004
109
0
#6
<!--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

Итого получим еще и откуда документы переместили
 
U

Unique

#7
Ты откуда куда перемещаеш Andre? из представление в папку понятно ,но я хочу в представлении перемещать документы( или в форме между 2-мя представление ) ,а там событие указанное тобой никак
 

Andre

Well-known member
29.07.2004
109
0
#8
А с чего ты взял, что документы можно перемещать в представлении или между 2-мя embedded view???
За исключением calendarview, для этого типа представлений возможно перемещение документа внутри view.

Все остальное imho уже из области шаманских танцев с бубном.
 
U

Unique

#9
Значить буду шаманить . Andre спасибо за помощь , теперь я могу сказать начальству, что не всё так просто в этой жизни.
 
G

Guest_igor

#10
помогите плиз каккой софтиной можно сделать отчет в лотусовой базе :)
 
Статус
Закрыто для дальнейших ответов.