von tomgom » Fr, 09.09.2011 08:45
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: Alles auswählen
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
Man/frau muß nur die englischen Bezeichnungen der einzelnen Symbolleisten kennen, dann klappt´s so, wie ich mir vorstellte.
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.