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

azzza · 13.12.2011

Подскажите как реализовать закрытие открытого дока по таймеру.
Делаю таймер в 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 · 13.12.2011

Попробуйте
в Declaration
Public meUIDoc As NotesUIDocument

в PostOpen
Set meUIDoc = Source

в timermsg
meUIDoc.Close

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

lease: .

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

morpheus · 13.12.2011

azzza
а можно полюбопытствовать - зачем?

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

nvyush · 13.12.2011

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

Все сервисы Codeby

Поиск

Поиск

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

azzza

nvyush

morpheus

nvyush