OpenOffice.info

Du hast natürlich recht - ich hatte irgendwie Tomaten auf den Augen. oder aber einfach nicht weit genug nach unten gescrollt.

[quote="tomgom"]wie z.B die Symbolleiste "Standard", an- und auszuschalten. Ich habe aber die Lösung bei Schardingers "OOButler" gefunden[/quote]
Und was ist da anders dran, als im oben angesprochenen Thread http://de.openoffice.info/viewtopic.php?f=18&t=50153#p185182 ?

sub HideBars(optional n as integer) 'Symbolleisten ausblenden
	'Option aus: 1=Menü , 2=Statusleise. 4=Formsnavigationbar 
    dim lmgr as object, i as integer, o as object
    
    oDoc = ThisComponent
    if oDoc.CurrentController.isFormDesignMode() then exit sub
    lmgr = oDoc.CurrentController.Frame.LayoutManager
    if ismissing(n) then n=0
         
    if n and &H01 then lmgr.hideElement("private:resource/menubar/menubar") 'Menü  
	if n and &H02 then lmgr.hideElement("private:resource/statusbar/statusbar") 
	if n and &H04 then lmgr.hideElement("private:resource/toolbar/formsnavigationbar")
	lmgr.hideElement("private:resource/toolbar/standardbar")
	lmgr.hideElement("private:resource/toolbar/formdesign")
	lmgr.hideElement("private:resource/toolbar/formcontrols")
end sub 

Ich meinte damit, einzelne Symbolleisten, wie z.B die Symbolleiste "Standard", an- und auszuschalten. Ich habe aber die Lösung bei Schardingers "OOButler" gefunden:

[code]sub HideBars(optional n as integer) 'Symbolleisten ausblenden
'Option aus: 1=Menü , 2=Statusleise. 4=Formsnavigationbar
dim lmgr as object, i as integer, o as object

oDoc = ThisComponent
if oDoc.CurrentController.isFormDesignMode() then exit sub
lmgr = oDoc.CurrentController.Frame.LayoutManager
if ismissing(n) then n=0

if n and &H01 then lmgr.hideElement("private:resource/menubar/menubar") 'Menü
if n and &H02 then lmgr.hideElement("private:resource/statusbar/statusbar")
if n and &H04 then lmgr.hideElement("private:resource/toolbar/formsnavigationbar")
lmgr.hideElement("private:resource/toolbar/standardbar")
lmgr.hideElement("private:resource/toolbar/formdesign")
lmgr.hideElement("private:resource/toolbar/formcontrols")
end sub
[/code]

Man/frau muß nur die englischen Bezeichnungen der einzelnen Symbolleisten kennen, dann klappt´s so, wie ich mir vorstellte.

[quote="tomgom"]Gibt es aber auch eine Möglichkeit, einezele Symbolleisten zu oder wegzuschalten ?[/quote]

Wie im angesprochenen Thread http://de.openoffice.info/viewtopic.php?f=18&t=50153 gezeigt... oder, was meinst Du?

Hallo komma4,

danke für die Hilfe, vor allem mit der detailierteren Lösung (Posting "Welches Objectmodell für Base") kann ich gut leben. Gibt es aber auch eine Möglichkeit, einezele Symbolleisten zu oder wegzuschalten ?

sub hideAll()
ThisComponent.CurrentController.Frame.LayoutManager.setVisible(False)
end sub

Probiere es mit folgender Zeile...


[code]sub hideAll()
ThisComponent.CurrentController.Frame.LayoutManager.setVisible(False)
end sub[/code]

Hallo allesamt,

wie kann ich per Makro die im Formular vorangewählten Symbolleisten ausschalten ?

Ich möchte für eine Datenbank diverse Eingabeformulare erstellen, bei denen alle Symbolleisten ausgeschaltet sind.