Пытаюсь запустить хелповый примерчик по NotesTimer - не хочет работать таймер. 
Кто работал с таймерами подскажите можно ли их заставить работать в DialogBox? Есть ли еще способы запускать выполнение какой-либо функции через определенное время?
Что делаю:
В форме в Глобал пишу:
В Postopen формы:
Добавляю функцию в Глобал:
На форму кидаю кнопку:
Вызываю форму:
Причем если вызвать форму так, то таймер нормально работает:
Кто работал с таймерами подскажите можно ли их заставить работать в DialogBox? Есть ли еще способы запускать выполнение какой-либо функции через определенное время?
Что делаю:
В форме в Глобал пишу:
Код:
%INCLUDE "lsconst.lss"
Dim elapsedTime As Integer
Dim elapsedTimer As NotesTimerВ Postopen формы:
Код:
Sub Postopen(Source As Notesuidocument)
Set elapsedTimer = New NotesTimer(1, "Elapsed time since opening document")
elapsedTime = 0
Msgbox "Сделали!"
On Event Alarm From elapsedTimer Call elapsedTimerHandler
elapsedTimer.Enabled = True
End SubДобавляю функцию в Глобал:
Код:
Sub elapsedTimerHandler(Source As NotesTimer)
elapsedTime = elapsedTime + 1
End SubНа форму кидаю кнопку:
Код:
Sub Click(Source As Button)
If elapsedTimer.Enabled Then
If Messagebox _
("Do you want to disable the timer?", _
MB_YESNO + MB_ICONQUESTION, _
"Elapsed timer is enabled") = IDYES Then
elapsedTimer.Enabled = False
End If
Else
If Messagebox _
("Do you want to enable the timer?", _
MB_YESNO + MB_ICONQUESTION, _
"Elapsed timer is disabled") = IDYES Then
elapsedTimer.Enabled = True
End If
End If
End SubВызываю форму:
Код:
Set dlgDoc = Db.CreateDocument
Call WS.DialogBox( "SearchDlg" , True, True, True, True, True, False, "Search", dlgDoc)Причем если вызвать форму так, то таймер нормально работает:
Код:
dlgDoc.form = "SearchDlg"
Call WS.EditDocument( True, dlgDoc )