OpenOffice.info

es gibt nur einen StarDesktop, und der heißt ebenso ;)

Dem Formular übergeordnete Strukturen erhälst Du über die Property .Parent oder die Methode .getParent - die meisten Objekte haben beide Eigenschaften.
Am besten Du navigierst mit xray, da finde zumindest ich mich am leichtesten zurecht.

g

Sub Formular_allein
Dim oCw as Object, oStB As Object, oFrame As Object, oLayoutMng As Object
Dim i as Integer, iNr as Integer

'	xray starDesktop.getActiveFrame("FormClientes")
	
	oFrame = starDesktop.getActiveFrame()
	oCw = oFrame.getContainerWindow.AccessibleContext
	for i = 0 To oCw.getAccessibleChildCount() -1
	  iNr = oCw.getAccessibleChild(i).AccessibleContext.AccessibleRole
	  If iNr = com.sun.star.accessibility.AccessibleRole.STATUS_BAR Then
	  	oStB = oCw.getAccessibleChild(i)
	  	exit for
	  end If
	Next
	oLayoutMng = oFrame.LayoutManager
	oLayoutMng.Visible = False
	oStb.visible = False
	oFrame.title = "Aqui el titulo"

End Sub

Hallöche,

Ich habe diesen Code um die Menüleisten auszublenden.
[code]
Sub Formular_allein
Dim oCw as Object, oStB As Object, oFrame As Object, oLayoutMng As Object
Dim i as Integer, iNr as Integer

' xray starDesktop.getActiveFrame("FormClientes")

oFrame = starDesktop.getActiveFrame()
oCw = oFrame.getContainerWindow.AccessibleContext
for i = 0 To oCw.getAccessibleChildCount() -1
iNr = oCw.getAccessibleChild(i).AccessibleContext.AccessibleRole
If iNr = com.sun.star.accessibility.AccessibleRole.STATUS_BAR Then
oStB = oCw.getAccessibleChild(i)
exit for
end If
Next
oLayoutMng = oFrame.LayoutManager
oLayoutMng.Visible = False
oStb.visible = False
oFrame.title = "Aqui el titulo"

End Sub
[/code]
In Base ab Version 3 sind die Makros aber direkt im Base Container eingebettet und wenn ich diesen Code in einem Formular aufrufe blendet er die Menüleiste von Base aber nicht von meinem Formular aus. (Im angehängten Beispiel im Formular Clientes der "Formular ohne Menu" Knopf)

Wie komme ich an den starDesktop des Formulars ran???
Weiss das jemand???