title image


Smiley Re: die Möglichkeit gibt es nur über haarsträubende Konstrukte...
Hab mich mal mit einer ähnlichen Anforderung geplagt. Wie Tode schon erwähnt hat, geht das mit der NotesTimer-Klasse ... allerdings eigentlich ganz einfach - kopiere mal nachfolgenden Code in die Globals (Options) Deiner Maske:



Dim NTime As Integer

Dim NTimer As NotesTimer



Sub NTimerHandler(Source As NotesTimer)

nTime = nTime + 1

Print nTime

If nTime=15 Then

Msgbox "Aktualisiere Fenster ...",64,"NotesTimer-Klasse nutzen"

Dim ws As New NotesUIWorkspace

Call ws.reloadWindow()

nTime=0

End If

End Sub



Und diesen hier ins PostOpen der Maske:



Sub Postopen(Source As Notesuidocument)

Set nTimer = New NotesTimer(1)

nTime = 0

On Event Alarm From nTimer Call nTimerHandler

End Sub



... et voilà - das Fenster wird alle 15sec aktualisiert :)

jo@chim
IBM Certified Advanced Application Developer - Lotus Notes and Domino 7


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: