Re: [de-users] Makro -> Bildschirmmeldung während einer Schleife

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+help@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