• Paranoid - курс по анонимности и безопасности в сети от команды codeby. Защита персональных данных, анонимность в сети интернет, настройка виртуальных машин, безопасная передача данных, анти форензика и еще много всего полезного. Подробнее ...

Закрытие Открытого Дока По Таймеру

azzza

Well-known member
26.04.2011
65
0
#1
Подскажите как реализовать закрытие открытого дока по таймеру.
Делаю таймер в Postopen запускаю, есть Handle для таймера, но вот как
сделать само закрытие внутри Handle.

<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">" делаю так ..."</div></div><div class="sp-body"><div class="sp-content">в Declaration
Dim openTimer As NotesTimer

в Postopen
здесь имеем source
Set openTimer = New NotesTimer(10)
On Event Alarm From openTimer Call timermsg

Sub timermsg(Source As NotesTimer)
...
End Sub
 

nvyush

Lotus team
22.04.2009
2 317
0
#2
Попробуйте
в Declaration
Public meUIDoc As NotesUIDocument

в PostOpen
Set meUIDoc = Source

в timermsg
meUIDoc.Close

За квадраты Малевича не отвечаю :please: .

Добавлено
Где-то на форуме проскакивала информация, что создание нескольких NotesTimer может завалить Lotus. В Вашей реализации таймеров предполагается по числу открытых документов, что чревато непредсказуемыми последствиями. Также на форуме кем-то предлагалось использовать javascript'овые таймеры, это вроде рабочий вариант. Поищите.
 

morpheus

скриптописец
07.08.2006
3 915
1
#3
azzza
а можно полюбопытствовать - зачем?

з.ы. я бы сделал через диалоговое окно + жаваскрипт самозакрытия
 

nvyush

Lotus team
22.04.2009
2 317
0
#4
azzza
Попробуйте
в Declaration
Код:
Public meUIDoc As NotesUIDocument
в PostOpen
Код:
Set meUIDoc = Source
в JS Header
Код:
function runCloseWindow()
{
window.document.forms[0].btnClose.click();
}
в onLoad (JavaScript)
Код:
window.setTimeout("runCloseWindow();", 5000);
на форме скрытая кнопка с <HTML> Name = btnClose и кодом
Код:
Sub Click(Source As Button)
meUIDoc.Close
End Sub