Hi,
man kann ein View-Refresh automatisieren, habe aber nicht probiert, ob das auch in einer
embedded view geht. Dazu in der View folgendes:
Declarations
Dim elapsedTime As Integer
Dim elapsedTimer As NotesTimer
Sub Postopen(Source As Notesuiview)
Set elapsedTimer = New NotesTimer(1, "Elapsed time since opening view")
elapsedTime = 0
On Event Alarm From elapsedTimer Call elapsedTimerHandler
End Sub
Sub elapsedTimerHandler(Source As NotesTimer)
elapsedTime = elapsedTime + 1
Dim etime As Integer
Dim minutes As Integer
etime = elapsedTime
If etime < 60 Then
Print Cstr(etime) & " second(s) elapsed time since opening view"
Else
minutes = 0
Do While etime > 59
minutes = minutes + 1
etime = etime - 60
Loop
Print Cstr(minutes) & " minute(s), " & Cstr(etime) & " second(s) elapsed time since opening view"
End If
If Fraction(etime / 5) = 0 Then 'Der Wert (hier 5) bestimmt die Häufigkeit der Aktualisierung in Sekunden
Dim oWS As New NotesUIWorkspace
oWS.ViewRefresh
Print "View refreshed"
End If
End Sub
Aktuell habe ich eine ähnliche Anforderung. In einem großen Projekt wird ein sog. Leitstand eingerichtet, der mit Beamern ausgerüstet ständig aktualisiert bestimmte Notes-Ansichten sehen muss, ohne dass jemand ständig F9 drückt. Da ich aber in den betroffenen Anwendungen selbst nicht entwickeln darf, habe ich o.g. Code so umgebaut, dass er auch "von außen" funktioniert - mit jeder beliebiegen Ansicht, die anschließend im Vordergrund geöffnet ist :)
Edit: Obiger Code stammt ursprünglich nicht von mir, habe aber leider keine Quellenangabe mehr :(
PostEdit: Ha, das Beispiel befindet sich ja in der Designer-Hilfe, bezieht sich dort nur auf ein Dokument ;)