Hallo Frieder,
Am 27.11.2011 18:30, schrieb Frieder:
Beenden eines Dialogs:
Dialog wählen (heißt Dialog1)
DialogLibraries.LoadLibrary("Standard")
oDlg1=CreateUnoDialog(DialogLibraries.Standard.Dialog1)
und beenden:
oDlg1.EndExecute(True)
Ich habe jetzt den Quellcode gemäß Deines Vorschlags angepasst, d.h.
"oDlg1.EndExecute(True)" eingefügt.
Den Befehl für das Wählen des Dialogs habe ich nicht integriert, da ich
nicht verstehe, warum dies bei meinem Beispiel nötig ist.
Leider wird dadurch der Dialog nicht beendet. Was mache ich falsch?
sub Bildschirmmeldung
dim document as object
dim dispatcher as object
Dim i As Integer
Dim TimeS as double
Dim Time Wait as double
TimeWait=0.1
For i = 0 To 5
TimeS=Timer
Do
Dim oDlgModel As Object
Dim oWindow As Object
dim oDlg As Object
oDlgModel=CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
oDlgModel.PositionX = 50
oDlgModel.PositionY = 50
oDlgModel.Width = 150
oDlgModel.Height = 150
oDlgModel.Title = "Timer läuft"
oDlg = CreateUnoService("com.sun.star.awt.UnoControlDialog")
oWindow = CreateUnoService("com.sun.star.awt.Toolkit")
oDlg.setModel(oDlgModel)
oDlg.createPeer(oWindow, null)
oDlg.execute()
oDlg.EndExecute(True)
Loop Until Timer>=TimeS+TimeWait
Next i
end sub
Gruß
Jochen
--
Informationen zum Abmelden: E-Mail an users+h...@de.libreoffice.org
Probleme? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
