BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Lade-Dialog

Alles zur Programmierung im LibreOffice.
Antworten
Alletkla
Beiträge: 23
Registriert: Di 15. Mai 2018, 15:54

Lade-Dialog

Beitrag von Alletkla » Fr 8. Mär 2019, 18:32

Hallo liebes Lo-Forum,
ich versuche nun schon einige Zeit die Dialogfunktion von LO zu verstehen, aber finde keine Dokumentationen dazu:

Ich versuche einen "Ladedialog" zum initialisieren meiner DB anzuzeigen, da "oController.connect()" sehr lange braucht und ich vorher keine Form öffnen kann.

dafür nutze ich bisher:

Code: Alles auswählen

SUB StartDialog(iX,iY,iWidth, iHeight as Integer)
	oDialog1 = CreateUnoDialog(DialogLibraries.Standard.Ladebildschirm)
	oDialog1.setVisible(true)
	oDialog1.setPosSize(oDialog1.PosSize.X, oDialog1.PosSize.Y, iWidth, iHeight,15)
	Progbar = oDialog1.getControl("PB1")
END SUB
Allerdings schließt sich der Dialog unmittelbar nach dem öffnen wieder.

Code: Alles auswählen

SUB open_main_form(oEvent as Object)
	oDoc = thisDatabasedocument
	oForm1 = odoc.formdocuments.getbyname("Suchmaske")
	oForm2 = odoc.formdocuments.getbyname("Eingabe Bilddaten Ortsarchiv")
	GlobalScope.BasicLibraries.LoadLibrary("Tools")
	GlobalScope.BasicLibraries.LoadLibrary("Access2Base")
	DialogLibraries.loadLibrary("Standard")
	
	StartDialog(150,50,1050,650,15)
	Progbar.value = 10	
	MainFrame = ThisDatabasedocument.CurrentController.Frame	
	FormularAusblenden(2)
	
	Progbar.value = 30
	
	oController= ThisDatabaseDocument.CurrentController
	If NOT (oController.isConnected() ) Then oController.connect()
	
	Progbar.value = 80

	Datenbankbackup(5)
	
	odoc.formdocuments.getbyname("Startformular").open
	
END SUB
nach Progbar.value = 30 schließt sich der Dialog.


Weiterhin schließen meine so geöffneten Dialoge sich auch so einfach von allein???


Hat jemand dazu eine Lösung?
Vielen Dank

F3K Total
Beiträge: 2410
Registriert: So 10. Apr 2011, 10:10

Re: Lade-Dialog

Beitrag von F3K Total » Sa 9. Mär 2019, 14:33

Moin,
versuche mal dies:

Code: Alles auswählen

SUB open_main_form(oEvent as Object)
	oDoc = thisDatabasedocument
	DialogLibraries.loadLibrary("Standard")
	oDialog1 = CreateUnoDialog(DialogLibraries.Standard.Ladebildschirm)
	Progbar = oDialog1.getControl("PB1")
        oDialog1.setVisible(true)
	Progbar.value = 30
	oController = ThisDatabaseDocument.CurrentController
	If NOT (oController.isConnected() ) Then oController.connect()
	Progbar.value = 80
	oDialog1.Title = "Verbindung wurde hergestellt"
	wait 1000
	Progbar.value = 100
	wait 500
	oDialog1.setVisible(false)
	oDialog1.dispose()
	odoc.formdocuments.getbyname("Startformular").open
END SUB
Gruß R
Windows 10: AOO, LO Linux Mint: AOO, LO

Alletkla
Beiträge: 23
Registriert: Di 15. Mai 2018, 15:54

Re: Lade-Dialog

Beitrag von Alletkla » So 10. Mär 2019, 11:52

Hi,
Vielen dank, dein Code brachte nicht den gewünschten Erfolg, zeigte mir aber den Fehler.
Ich startete den Dialog, bevor ich mit

Code: Alles auswählen

MainFrame = ThisDatabasedocument.CurrentController.Frame
den Frame zum ausblenden abgerufen habe. Demzufolge wurde nicht die Base-Startseite ausgeblendet, sondern direkt der Dialog :?

Sehr dummer Fehler.

Aber vielen dank für die ja dann doch indirekte Hilfe :D
Schönes Restwochende

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten