(gelöst) Dialog startet nicht
Verfasst: So, 27.04.2014 14:54
Hallo Zusammen
Beim Start eines neuen Dokuments aus einer Vorlage, soll automatisch ein Dialog aufgerufen werde.
Der Dialog ist in einer Library die ich in Meine Makros gespeichert habe.
Bevor ich den Dialog starte rufe ich die Library via
"GlobalScope.BasicLibraries.LoadLibrary("AdressToolKai")" auf.
Ich bekomme dann beim initialisieren des Dialogs via
oDLG = createUnoDialog(DialogLibraries.AdressToolKai.DLGA)
folgende Fehlermeldung.
com.sun.star.lang.WrappedTargetExeption Message:
com.sun.star.script.LibraryNotLoadedExeptionMessage
Warum auch immer?
Ich habe über folgenden Code überprüft, ob die Library geladen ist.
Public Sub initDialog()
GlobalScope.BasicLibraries.LoadLibrary("AdressToolKai")
geladen = GlobalScope.BasicLibraries.IsLibraryLoaded("AdressToolKai")
if geladen = True then
msgBox("ist geladen")
StartDialog
else
msgBox("ist nicht geladen")
GlobalScope.BasicLibraries.LoadLibrary("AdressToolKai")
end if
end sub
Ich sehe klar das die Library geladen ist, trotzdem bekomme ich die Exeption.
Ich kann mir einfach nicht erklären warum er den Dialog nicht startet.
Nach dem der Fehler einmal aufgetaucht ist, dann startet der Dialog. Also wenn ich Manuell im Basic Editor die Library öffne
funktioniert der Start des Dialogs.
Warum ??
Beim Start eines neuen Dokuments aus einer Vorlage, soll automatisch ein Dialog aufgerufen werde.
Der Dialog ist in einer Library die ich in Meine Makros gespeichert habe.
Bevor ich den Dialog starte rufe ich die Library via
"GlobalScope.BasicLibraries.LoadLibrary("AdressToolKai")" auf.
Ich bekomme dann beim initialisieren des Dialogs via
oDLG = createUnoDialog(DialogLibraries.AdressToolKai.DLGA)
folgende Fehlermeldung.
com.sun.star.lang.WrappedTargetExeption Message:
com.sun.star.script.LibraryNotLoadedExeptionMessage
Warum auch immer?
Ich habe über folgenden Code überprüft, ob die Library geladen ist.
Public Sub initDialog()
GlobalScope.BasicLibraries.LoadLibrary("AdressToolKai")
geladen = GlobalScope.BasicLibraries.IsLibraryLoaded("AdressToolKai")
if geladen = True then
msgBox("ist geladen")
StartDialog
else
msgBox("ist nicht geladen")
GlobalScope.BasicLibraries.LoadLibrary("AdressToolKai")
end if
end sub
Ich sehe klar das die Library geladen ist, trotzdem bekomme ich die Exeption.
Ich kann mir einfach nicht erklären warum er den Dialog nicht startet.
Nach dem der Fehler einmal aufgetaucht ist, dann startet der Dialog. Also wenn ich Manuell im Basic Editor die Library öffne
funktioniert der Start des Dialogs.
Warum ??