BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Zugriff auf nicht aktiviertes Fenster

Alles zur Programmierung im OpenOffice.org
Antworten
dinner4one
Beiträge: 11
Registriert: Sa 18. Jul 2020, 11:59

Zugriff auf nicht aktiviertes Fenster

Beitrag von dinner4one » Di 28. Jun 2022, 19:35

Hallo,

ich möchte ein nicht aktiviertes Fenster steuern. Wie spreche ich das über ein Makro an?
Hab schon mal was versucht...

Code: Alles auswählen

sub Main
	dim oComps, oDocs, oDoc as object 
	dim titel(4,1) as string
	oComps = StarDesktop.getComponents()
  	oDocs = oComps.createEnumeration()
  	for i = 0 to 4
  		if not oDocs.hasMoreElements() then
  			exit for 
  		endif
    	oDoc = oDocs.nextElement()
    	titel(i,0) = oDoc.Title
    	titel(i,1) = oDoc.CurrentController.Title
  	next
end sub
Leider wird nur das zuletzt aktivierte Fenster, um immer StarBasic aufgeführt.
Wie muss ich das richtig machen wenn ich auf jedes Fenster zugreifen möchte um z.B. Toolbars auszublenden.
Das 2. Fenster, dass mit dem Menü "Fenster -> Neues Fenster" erzeugt wurde, wird auf einem externen Monitor gezeigt und ein Rumfummeln in Menüs ist nicht erwünscht.
Danke...
Dateianhänge
getComponents.png
getComponents.png (495.82 KiB) 5413 mal betrachtet

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: Zugriff auf nicht aktiviertes Fenster

Beitrag von mikele » Di 28. Jun 2022, 21:46

Hallo,
mit "Neues Fenster" erzeugst du so zu sagen ein gekoppeltes Fenster und kein neues Dokument.
Diese erscheinen als verschiedene Controller desselben Dokuments, durch die du dich arbeiten kannst:

Code: Alles auswählen

sub Main
  	oDoc = ThisComponent
  	oCtrls= oDoc.Controllers
  	do while oCtrls.hasMoreElements()
    	oCtrl = oCtrls.nextElement()
    	msgbox oCtrl.Title
  	loop
end sub
Gruß,
mikele

dinner4one
Beiträge: 11
Registriert: Sa 18. Jul 2020, 11:59

Re: Zugriff auf nicht aktiviertes Fenster

Beitrag von dinner4one » Di 28. Jun 2022, 23:38

Danke mikele,

das bringt mich weiter!

Gruß

Antworten