Menüleisten in Base Formularen ausblenden
Verfasst: Di, 08.11.2011 08:51
Hallöche,
Ich habe diesen Code um die Menüleisten auszublenden.
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???
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
Wie komme ich an den starDesktop des Formulars ran???
Weiss das jemand???
