Domino 9 und frühere Versionen > ND6: Entwicklung

User soll die Startansicht selbst festlegen!

<< < (2/2)

SaSaWu:
Wird Zeit, dass das Wochenende kommt! Sorry...

Axel:
Ich habe so was schon öfters implementiert. Dazu verwende ich Userprofile, die ich mit der Klasse UserProfile verwalte.  Siehe hier -> Klasse für Userprofile

Das Öffnen der eingestellten Startansicht erfolgt dann im PostOpen-Event des DatenbankScriptes.

...
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim uidb As NotesUIDatabase
   Dim cProfile As UserProfil
   Dim strView As String      


   Set uidb = workspace.CurrentDatabase
   
   'Neue Instanz der Klasse UserProfil anlegen
   Set cProfile = New UserProfil(session.CommonUserName)
   
   'Startansicht auslesen
   strView = cProfile.GetUserProfileEntry("xProfilStartansicht")
   If strView <> "" Then
      Call workspace.SetTargetFrame("NotesView")
      Call uidb.OpenView(strView)
   End If  'If strView <> "" Then
   
   Delete cProfile
...

Axel

Navigation

[0] Themen-Index

[*] Vorherige Sete