Seite 1 von 1
Fenster aktivieren/umschalten
Verfasst: Sa, 20.12.2008 13:22
von 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
Re: Fenster aktivieren/umschalten
Verfasst: Sa, 20.12.2008 14:39
von turtle47
Hallo Sarotti,
wenn du nach "FileN = FileNameoutofPath(datei)" eine Msgbox setzt dann wirst Du fesstellen das diese immer leer bleibt.
Also es kommt nichts an!
Du musst am Anfang Deines Code folgende Library aufrufen:
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
Re: Fenster aktivieren/umschalten
Verfasst: Sa, 20.12.2008 17:04
von 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
Re: Fenster aktivieren/umschalten
Verfasst: Di, 23.12.2008 14:32
von 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.
Re: Fenster aktivieren/umschalten
Verfasst: Mi, 24.12.2008 10:42
von komma4
steffn hat geschrieben: 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).
Re: Fenster aktivieren/umschalten
Verfasst: Do, 25.12.2008 01:04
von 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