Öffnen der Hilfe-Datenbank per LS verliert Fokus

[ata]

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:

Code

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 

[klaussal]

Wenn man das mit einer Schaltfläche in einer Maske macht, dann geht das.

Als Aktion =  geht auch.

Wo machst Du das ?

[ata]

Als Aktion =  geht auch.

... Maskenaktion => eben nicht => Client 7.02

Toni

[klaussal]

.. hier schon = 7.02 

[ata]

... hast du den Code von mir genommen?

Toni

[klaussal]

... ergänzt um : dim session......

Code

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

[ata]

... upps - die NotesSession ist in meinem Original natürlich schon dabei - ich dachte ich hätte alles erwischt - das wird wohl eine heißere Nuss...

Toni

[koehlerbv]

Toni, ist Deine Hilfe-Datenbank noch als solche deklariert (Kategorie für Datenbank-Katalog) und bei Klaus vielleicht nicht?

Bernhard

[klaussal]

Das ist doch die originale Hilfe-DB (Typ Standard).
Ich habe hier nix geändert, sondern nur das Script von Toni in eine Aktion gepackt.

[koehlerbv]

Und wird Deine Hilfe-DB bei normalen Öffnen noch in ein eigenes Windows-Fenster gepackt?

Bernhard

[klaussal]

Ja.

[ata]

... bei normalem Öffnen klappt alles wie gewollt - nur bei der Maskenaktion nicht. Auch beim Aufruf der Hilfe aus dem Designer geht alles normal...

Ich werde noch verschiedene Sachen testen - bei mir sind mehrere Clients drauf - mal schaun was die Registry als letzten genommen hat - eventuell liegt es auch daran...

Toni