[gelöst] Ausschalten der Symbolleisten per Makro

[tomgom]

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.

[komma4]

Probiere es mit folgender Zeile...

Code: Alles auswählen

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

[tomgom]

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 ?

[komma4]

Gibt es aber auch eine Möglichkeit, einezele Symbolleisten zu oder wegzuschalten ?

Wie im angesprochenen Thread viewtopic.php?f=18&t=50153 gezeigt... oder, was meinst Du?

[tomgom]

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.

[komma4]

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

Und was ist da anders dran, als im oben angesprochenen Thread viewtopic.php?f=18&t=50153#p185182 ?

[tomgom]

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