Moderator: Moderatoren
Code: Alles auswählen
sub cb6
msgbox ("irgendwas")
oDialog.endexecute()
ThisComponent.close(true)
End SubEigentlich nichts. Aber die Fehlermeldung sagt doch schon alles: Es gibt noch einen Prozess, der das Schliessen des Dokumnetes verhindert. Das kann beispielsweise eine noch nicht gespeicherte Änderung sein, ein noch offener Dialog oder irgend etwas anderes, das das Schliessen verhindert ( technisch gesehen : ein Listener widerspricht dem Schliessen-Wunsch).Was mache ich falsch?
Code: Alles auswählen
oDoc = thisComponent.CurrentController.frameDas ist mir klar, aber welcher? Nochmal: Der einzige Unterschied in der Ausgangslage ist, dass der Dialog einmal aus der IDE aufgerufen wird (bei geöffnetem Dokument, versteht sich), beim anderen Mal aus der Symbolleiste der Anwendung (Tabelle).Toxitom hat geschrieben:Hey Vanished,
Eigentlich nichts. Aber die Fehlermeldung sagt doch schon alles: Es gibt noch einen Prozess, der das Schliessen des Dokumnetes verhindert.Was mache ich falsch?
Hmmm, habe ich auch schon getestet. Wait 5000 hat jedenfalls nicht gereicht... Mehr noch, aus der IDE läßt sich das Dokument schliessen, ohne dass man vorher den Dialog beenden müßte, also ohne oDialog.endexecute() (wenn das auch keinen Sinn macht).Toxitom hat geschrieben:Eine Lösung auf die Entfernung ist schwer zu sagen, da ich die Gesamtumstände nicht kenne. Vielleicht reicht eine kurze Wartezeit nach oDialog.endexecute()
Wenn ich das versuche, bekomme ich nur eine leere Variable.Toxitom hat geschrieben:soweit ich mich errinnere, liefert der auch einen Rückgabewert. Vielleicht diesen zunächst testen?
Das habe ich versucht - ohne Erfolg. Der Fehler tritt übrigens auch dann auf, wenn der Dialog über Extras->Makros->Makro->Ausführen gestartet wird.Toxitom hat geschrieben:Eine andere Variante könnte auch sein, dass "ThisComponent" nicht richtig ist! Wenn die Schaltfläche in einer Sysmbolleiste untergebracht ist, so dürfte sich "ThisComponent" möglicherweise dann auf diese beziehen -> Hol dir vorher das Dokumenten-Objekt als Frame und versuch es noch einmal:
Code: Alles auswählen
oDoc = thisComponent.CurrentController.frame
Code: Alles auswählen
Dim oDialog as Object
Sub Dialog_starten
DialogLibraries.LoadLibrary("Standard")
oDialog=Createunodialog(dialogLibraries.Standard.Produkt)
oDialog.execute()
'oDialog.dispose()
End Sub
sub loeschen
'oDialog.endexecute()
thisComponent.CurrentController.frame.close(true)
End SubCode: Alles auswählen
Dim oDialog as Object
Sub Dialog_starten
DialogLibraries.LoadLibrary("Standard")
oDialog=Createunodialog(dialogLibraries.Standard.Produkt)
oDialog.execute()
End Sub
sub loeschen
oDialog.endexecute()
thisComponent.dispose()
End SubCode: Alles auswählen
Dim oDialog as Object
DIM oDoc as Object
Sub Dialog_starten
oDoc = ThisComponent
DialogLibraries.LoadLibrary("Standard")
oDialog=Createunodialog(dialogLibraries.Standard.Produkt)
oDialog.execute()
End Sub
sub loeschen
oDialog.endexecute()
oDoc.dispose()
End SubCode: Alles auswählen
Dim oDialog as Object
DIM oDoc as Object
Sub Dialog_starten
on error resume next
oDoc = ThisComponent
DialogLibraries.LoadLibrary("Standard")
oDialog=Createunodialog(dialogLibraries.Standard.Produkt)
oDialog.execute()
oDoc.close(true)
End Sub
sub loeschen
oDialog.endexecute()
End SubAHHH, jetzt kommen wir der Sache schon näher. Es gibt ncoh Nebenbedingungen. OK, aber das ist lösbar:Leider keine benutzbare Lösung. Damit wird auch beim "normalen" schliessen des Dialoges das Dokument gleich mitgeschlossen, und das darf leider nicht...
Code: Alles auswählen
Dim oDialog as Object
DIM oDoc as Object
DIM flag as boolean
Sub Dialog_starten
flag = false
oDoc = ThisComponent
DialogLibraries.LoadLibrary("Standard")
oDialog=Createunodialog(dialogLibraries.Standard.Produkt)
oDialog.execute()
if flag then oDoc.close(true)
End Sub
Sub loeschen()
Flag = true
oDialog.endexecute()
End SubCode: Alles auswählen
Dim oDok as Object
Dim oDialog as Object
Dim schliessen as Integer
Sub Dialog_starten
on error resume next
oDok = ThisComponent
DialogLibraries.LoadLibrary("Standard")
oDialog=Createunodialog(dialogLibraries.Standard.Produkt)
oDialog.execute()
If schliessen = 9 then
oDok.close(true)
Else oDialog.dispose()
End if
End Sub
sub loeschen
schliessen = 9
oDialog.endexecute()
End sub