Hallo Robert,
ich habe bei mir folgende Lösung gefunden: damit die Symbolleisten des
angesprochenen Formulars und nicht die des übergeordneten Menüs
(*.odb-Datei) ausgeblendet werden.
Man muss das Formular (Formularname hier bei mir in meiner Datenbank
"pPerson") explizit ansprechen (dann braucht man auch keine
wait-Kommandos mehr).
Also:
oForm = thisComponent.Parent.FormDocuments
oDoc = oForm.getByName("pPerson").open
Der gesamte Makro in meiner Datenbank
Grüße
Gerhard
SUB Symbolleisten_Ausblenden_pPerson
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oDoc AS OBJECT
oForm = thisComponent.Parent.FormDocuments
oDoc = oForm.getByName("pPerson").open
DIM oFrame AS OBJECT
DIM oWin AS OBJECT
DIM oLayoutMng AS OBJECT
DIM aElemente()
DIM i AS INTEGER
'oFrame = StarDesktop.getCurrentFrame() <- müsste wohl auch
funktionieren, dieses Kommando ist im Handbuch aufgeführt.
oFrame = Thiscomponent.currentcontroller.frame '<- dieses habe ich verwendet
ThisComponent.CurrentController.Frame.Title = "Person"
ThisComponent.CurrentController.ViewSettings.ZoomValue =
Bildschirmgroesse_GL
oWin = oFrame.getContainerWindow()
oWin.IsMaximized = true
oLayoutMng = oFrame.LayoutManager
aElemente = oLayoutMng.getElements()
FOR i = LBound(aElemente) TO UBound(aElemente)
IF aElemente(i).ResourceURL =
"private:resource/toolbar/formsnavigationbar" THEN
ELSE
oLayoutMng.hideElement(aElemente(i).ResourceURL)
END IF
NEXT
END SUB
Am 30.06.19 um 19:28 schrieb Robert Großkopf:
Hallo Gerhard,
ich habe das jetzt auch einmal getestet. Selbst bei einer
MySQL/MariaDB-Datenbank, zu der die Verbindung bereits besteht, wird
statt der Symbolleisten und des Menüs im Formular das Menü und die
Symbolleisten des übergeordneten Dokumentes (*.odb-Datei) ausgeblendet.
Teste ich noch einmal etwas mehr.
Gruß
Robert
--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
Context
Privacy Policy |
Impressum (Legal Info) |
Copyright information: Unless otherwise specified, all text and images
on this website are licensed under the
Creative Commons Attribution-Share Alike 3.0 License.
This does not include the source code of LibreOffice, which is
licensed under the Mozilla Public License (
MPLv2).
"LibreOffice" and "The Document Foundation" are
registered trademarks of their corresponding registered owners or are
in actual use as trademarks in one or more countries. Their respective
logos and icons are also subject to international copyright laws. Use
thereof is explained in our
trademark policy.