Fenster aktivieren/umschalten

[sarotti]

Hallo ihr,

heute habe ich wieder einmal keine Idee und die Recherche im Forum hat mich zu Dannenhöfer (http://www.dannenhoefer.de/faqstarbasic ... terwaehlen) geführt. Leider auch hier ohne Erfolg.

Es geht um Folgendes:

Ich möchte zwischen mehreren geöffneten Fenstern hin- und herwechseln können. D.h. es wird geprüft, ob das gesuchte Dokument geöffnet ist und dann zu diesem gewechselt. Im Prinzip nicht besonders schwer, die Fenster zu identifizieren. Aber wie wird das gewünschte Fenster aktiviert, d.h. aktiv in den Vordergrund geschaltet?

Hier erst mal mein Code (...bis zu diesem Problem):

Code: Alles auswählen

sub FensterWechseln

  GesuchteDatei="HauptformularDB.odt"
  Dim oDesktop As Object, oDocs As Object 
  Dim oDoc As Object, oComponents As Object
  
  oComponents = StarDesktop.getComponents()
  oDocs = oComponents.createEnumeration()
  
  DO WHILE oDocs.hasMoreElements()
    ON ERROR resume next
    oDoc = oDocs.nextElement()
    datei=odoc.geturl()
    FileN=FileNameoutofPath(datei)
    
    if FileN=GesuchteDatei then 
	    myFenster=oDoc
	    EXIT DO
    end if
  LOOP

REM **** diese Möglichkeiten habe ich alle erfolglos probiert....
'starDesktop.isTop(myFenster)=true
'starDesktop.isActive(myFenster)=true
'StarDesktop.setActiveFrame(myFenster)
'StarDesktop.currentComponent=myFenster

end sub

... wer hat hier einen Ansatz für mich?

Danke

Gruss
sarotti

[turtle47]

Hallo Sarotti,

wenn du nach "FileN = FileNameoutofPath(datei)" eine Msgbox setzt dann wirst Du fesstellen das diese immer leer bleibt.

Code: Alles auswählen

FileN = FileNameoutofPath(datei)
	msgbox FileN

Also es kommt nichts an!

Du musst am Anfang Deines Code folgende Library aufrufen:

Code: Alles auswählen

GlobalScope.BasicLibraries.LoadLibrary("Tools")

Das Fenster zu Deinem Dokument bekommst Du mit:

Code: Alles auswählen

oDoc.CurrentController.Frame.getContainerWindow().setFocus

Hier der komplette Code:

Code: Alles auswählen

sub FensterWechseln
	GlobalScope.BasicLibraries.LoadLibrary("Tools")
	GesuchteDatei = "HauptformularDB.odt"
	Dim oDesktop As Object, oDocs As Object
	Dim oDoc As Object, oComponents As Object
	oComponents = StarDesktop.getComponents()
	oDocs = oComponents.createEnumeration()
	DO WHILE oDocs.hasMoreElements()
	ON ERROR resume next
	oDoc = oDocs.nextElement()
	datei= odoc.geturl()
	FileN = FileNameoutofPath(datei)
    if FileN = GesuchteDatei then
    oDoc.CurrentController.Frame.getContainerWindow().setFocus
       EXIT DO
    end if
  LOOP
end sub

Hilft das weiter?

Jürgen

[sarotti]

Hallo Jürgen,

ja, du hast absolut recht... die Bibliothek sollte man schon vorher aufrufen für die Funktion "FileNameoutofPath" (hatte ich in der vorherigen Versuchsversion gemacht ... )

Aber die eigentliche Hilfe war Dein Hinweis mit ...

Code: Alles auswählen

oDoc.CurrentController.Frame.getContainerWindow().setFocus

Vielen Dank, fuktioniert einwandfrei!!!

....das war genau das was ich gesucht hatte

Gruss
sarotti

[steffn]

Hallo Ihr,

ich möchte gerne, dass das Fenster einer anderen Datei.odt in den Vordergrund springt. Ich habe habe die Datei durch Basic öffnen lassen, kann 'setactivesheet' und 'select', schaffe es aber leider nicht, dass mir das auch gezeigt wird, wenn sich das Fenster im Hintergrund befindet. Alle '.setfocus'-Versuche aktivieren das Fenster der Datei, in der der Code läuft.
Ich schätze, dass zwischen den Klammern hinter 'getcontainerwindow' ein guter Platz für ein Objekt ist, oder vielleicht 'currentcontroller' oder 'frame' geändert werden kann. Die Suche im Forum nach "setfocus" und nach "vordergrund" hat mir leider nichts offensichtlich brauchbares gezeigt.

[komma4]

einer anderen Datei.odt in den Vordergrund springt. Ich habe habe die Datei durch Basic öffnen lassen, kann 'setactivesheet' und 'select'

Datei.odt <> setActiveSheet
(jetzt mal unabhängig davon, dass OOo sich [zumindest unter Linux] nicht nach Dateiendungen richtet, sondern die zu öffnende Komponente aus dem Code der Datei selbst bestimmt)


Egal: wenn Du das Objekt der Datei beim Öffnen hast, dann verwende es (anstelle von oDoc) in der Codezeile von Jürgen.

Code: Alles auswählen

oDoc.CurrentController.Frame.getContainerWindow().setFocus()

Wenn das nicht funktioniert, dann musst Du Deinen Code mit XRay genauer untersuchen: eine Ferndiagnose ist mit einem Satz "aktivieren das Fenster der Datei, in der der Code läuft" nicht möglich... (da musst Du schon den ganzen Code posten, damit wir die fehlerhafte Stelle sehen können).

[steffn]

na Gott sei dank habe ich den Code nicht gepostet!
peinlichen Fehler eingebaut
tja, copy-and-paste will geübt sein

dass ich mehr als einen ganzen Tag pausiert habe, war bestimmt ganz gut

danke, dass Du noch mal explizit geschrieben hast, dass das Ding genau so und nicht anders funktioniert