Hallo,
ich möchte in der Designer-Hilfe nach einem bestimmten Begriff suchen und diese dann bei dem gefundenen Begriff öffnen. Dazu verwende ich LS:
Dim ws As New NotesUIWorkspace
Dim dbHelp As NotesDatabase
Dim docHelp As NotesDocument
Dim viewHelp As NotesView
Dim sTerm As String
Set dbHelp = session.GetDatabase( "" , "help\help7_designer.nsf" )
Set viewHelp = dbHelp.GetView( "FIND" )
If sTerm = "" Then sTerm = "ContentsIntro"
Set docHelp = viewHelp.GetDocumentByKey( sTerm , False )
If not docHelp Is Nothing Then
Call ws.OpenDatabase( "" , "help\help7_designer.nsf" , "FIND" , sTerm , True )
End If
Das Dokument wird in der Hilfe-Datenbank gefunden, die Hilfe-Datenbank geht in einem eigenen Fenster auf, verschwindet aber wieder im Hintergrund. Erst mit Alt+TAB kann ich dann die Hilfe-Datenbank nutzen - blöd...
Ich habe schon alle möglichen Parameter ausprobiert - leider ohne Erfolg - kennt da jemand einen Workaround, wie man den Fokus hält, der kurzzeitig da zu sein scheint?
Toni :-:
... ergänzt um : dim session......
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim dbHelp As NotesDatabase
Dim docHelp As NotesDocument
Dim viewHelp As NotesView
Dim sTerm As String
Dim session As New NotesSession
Set dbHelp = session.GetDatabase( "" , "help\help7_designer.nsf" )
Set viewHelp = dbHelp.GetView( "FIND" )
If sTerm = "" Then sTerm = "Constants"
Set docHelp = viewHelp.GetDocumentByKey( sTerm , False )
If Not docHelp Is Nothing Then
Call ws.OpenDatabase( "" , "help\help7_designer.nsf" , "FIND" , sTerm , True )
End If
End Sub