Fokus setzen nach Dialogfeldaufruf

Mykoleus · 16. August 2007

Moin,

Folgendes "Setup":

Ich habe eine Datenbank die eine Ansicht enthält.
In dieser Ansicht sind Dokumente.
Soweit nichts Aussergewöhnliches

Im Postopen der Dokumente wird folgendes Script ausgeführt:

Code

Sub Postopen(Source As Notesuidocument)	If source.isnewdoc Then Exit Sub		Dim ws As New notesuiworkspace		Dim Maske As String	Maske = source.fieldgettext("Dokument")	source.editmode=True	Call ws.Dialogbox(Maske, True,True,True, False,False,False, "Neues Dokument: "+source.fieldgettext("Titel"),source.document , True, True) End Sub

Im geöffneten Dialog werden einige Daten abgefragt. Aus diesen wird beim Click auf eine OK - Schaltfläche folgendes Script ausgeführt, das ein Worddokument mit den Daten füllt und anzeigt:

Code

Dim s As New notessession
	Dim doc As notesdocument
	Dim item As Variant
	Dim ws As New notesuiworkspace
	Dim ui As notesuidocument
	Dim WordObjekt As Variant
	Dim realObject As Variant	
	Set ui=ws.currentdocument
	Set doc=ui.document
	Dim Word As Variant
	Dim Worddoc As Variant
	Set Word=createObject("Word.Application")
	Word.application.visible=True	
	Set   Worddoc = Word.Application.Documents.add (ui.fieldgettext("Vorlage"))
	With Worddoc

		.Bookmarks("Nachname").Range.Text=ui.fieldgettext("Nachname")
		.Bookmarks("Vorname").Range.Text=ui.fieldgettext("Vorname")
...	


End With
	Call ui.close

Alles anzeigen

Funktioniert bisher wunderbar. Ein kleiner Schönheitsfehler, der hoffentlich irgendwie behoben werden kann ist, das nach Schliessen des Dialogfelds der Fokus auf Notes stehen bleibt, ich würde aber gerne nach Schliessen des Dialogfelds direkt das Worddokument anzeigen lassen.

Geht das und wie?

Diali · 16. August 2007

vielleicht hilft Dir dieses VBA-Script, welches über die Windows-API ein Excel-Fenster in den Vordergrund holt.

Gruß
Dirk

Code

Option Explicit


Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)


Private Enum Parameter
    HWND_TOPMOST = -1
    HWND_NOTOPMOST = -2
    SWP_NOSIZE = &H1
    SWP_NOMOVE = &H2
    SWP_NOACTIVATE = &H10
End Enum


Public Sub test()
    Dim hWnd As Long
    hWnd = FindWindow("xlMain", vbNullString)
    Application.Wait Time + TimeSerial(0, 0, 5) 'nach dem testen entfernen
    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE
    SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    MsgBox "Hallo da bin ich", 64, "Information"
End Sub

Alles anzeigen

Mykoleus · 16. August 2007

Ich hab das Problem nun ganz anders gelöst:

Code

...
 Dim Word As Variant
    Dim Worddoc As Variant
    Set Word=createObject("Word.Application")
    Word.application.visible=False '<--erst auf false    
    Set   Worddoc = Word.Application.Documents.add (ui.fieldgettext("Vorlage"))
    With Worddoc

        .Bookmarks("Nachname").Range.Text=ui.fieldgettext("Nachname")
        .Bookmarks("Vorname").Range.Text=ui.fieldgettext("Vorname")
...    


End With
    Call ui.close
Word.application.visible=true '<-- hier auf true, da das Dialogfeld dann schon geschlossen ist wird nicht zum Schliessen der Fokus umgesetzt, sondern der Fokus bleibt auf Word stehen.

Alles anzeigen

Ich lasse erst das Ersetzungsscript durchlaufen und zeige nach schliessen des Dialogs dann das Worddokument an. Hat den Vorteil das man das Ersetzen an sich nicht sieht und da das Dialogfeld beim visible=true setzen schon zu ist muss das Script auch nicht zum Schliessen des uidocs zurück nach Notes. Somit ist am Ende des Scripts der Fokus weiterhin auf Word.

Diali: Danke trotzdem, vllt kann ich das WinAPI-Teil ja mal für was anderes brauchen.

Fokus setzen nach Dialogfeldaufruf

Teilen

Benutzer online in diesem Thema