Zugriff auf Dialog-Objekte
Verfasst: So, 25.06.2006 13:13
Hallo,
ich bin neu und möchte endgültig von den M$-Werken auf OpenOffice umsteigen. In M$ W*** hatte ich durch ein Makro den Speichern-Dialog ersetzt. Gleiches wollte ich jetzt in Writer machen, stoße aber an meine Grenzen in Basic. Ich habe ein Formular gebastelt, dessen Aufruf mir auch gelingt. Allerdings bekomme ich es nicht hin, auf die Objekte (Buttons, etc.) des Dialogs zuzugreifen. Das müsste auch während der Laufzeit des Dialog-Fensters möglich sein, weil sich in Abhängigkeit der Benutzereingaben die Eingabemasken etc. ändern sollten. Aus den zahlreichen Hilfetexten werde ich nicht schlau; ebenso wie aus den Fehlermeldungen…
Soweit bin ich jetzt (schon) gekommen:
Ich habe weiterhin das Problem, dass der Dialog trotz Änderungen am Dokument dennoch nicht angezeigt wird. Sieht jemand das Problem. Ich mach ursprünglich viel mit Pascal/Delphi. Dort könnte man die Prozeduren Main und Sichern super zusammenfassen. Geht das mit Basic auch? Habe bereits diese Idee:
Ich bin dankbar für jede Antwort
ich bin neu und möchte endgültig von den M$-Werken auf OpenOffice umsteigen. In M$ W*** hatte ich durch ein Makro den Speichern-Dialog ersetzt. Gleiches wollte ich jetzt in Writer machen, stoße aber an meine Grenzen in Basic. Ich habe ein Formular gebastelt, dessen Aufruf mir auch gelingt. Allerdings bekomme ich es nicht hin, auf die Objekte (Buttons, etc.) des Dialogs zuzugreifen. Das müsste auch während der Laufzeit des Dialog-Fensters möglich sein, weil sich in Abhängigkeit der Benutzereingaben die Eingabemasken etc. ändern sollten. Aus den zahlreichen Hilfetexten werde ich nicht schlau; ebenso wie aus den Fehlermeldungen…
Soweit bin ich jetzt (schon) gekommen:
Code: Alles auswählen
Dim MyDlg As Object
Sub Main
If isModified() Then Sichern
End Sub
Sub Sichern
If hasLocation() Then store() Else Abfrage EndIf
End Sub
Sub Abfrage
Dialoglibraries.Loadlibrary("Tools")
MyDlg = CreateUnoDialog(Dialoglibraries.Standard.Fenster)
MyDlg.Execute()
MyDlg.Dispose()
End Sub
Code: Alles auswählen
Sub Main
If isModified() Then If hasLocation() Then store() Else Abfrage
End Sub