| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.3.23 Fensterwaehlen
function fensterwaehlen(dateiname as string) as object Mit dieser Funktion kann gezielt ein geöffnetes Fenster als doc-Object aufgerufen werden. Voraussetzung ist, dass der Name bekannt ist. Ist das Fenster nicht vorhanden wird das Aktuelle übergeben. function fensterwaehlen(dateiname as string) as object GlobalScope.BasicLibraries.LoadLibrary("Tools") Dim oDesktop As Object, oDocs As Object Dim oDoc As Object, oComponents As Object gefunden=false oComponents = StarDesktop.getComponents() oDocs = oComponents.createEnumeration() Do While oDocs.hasMoreElements() oDoc = oDocs.nextElement() On Error Goto Weiter datei=odoc.geturl() FileN=FileNameoutofPath(datei) if FileN=dateiname then fensterwaehlen=odoc gefunden=true end if weiter: Loop if gefunden=false then fensterwaehlen=stardesktop.currentcomponent end Function |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009