Menüleisten in Base Formularen ausblenden

[vueloman]

Hallöche,

Ich habe diesen Code um die Menüleisten auszublenden.

Code: Alles auswählen

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

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???

[gogo]

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