Hallo *,
kennt jemand eine Lösung für folgendes Problem:
Ich habe ein Makro mit einer Schleife geschrieben und möchte, dass
während der Schleife eine Bildschirmmeldung erscheint. Mit "print" oder
"msgbox" ist dies IMHO nicht realisierbar, da beide Funktion immer auf
eine Eingabe warten und diese Eingabe nicht durch das Makro selbst
gesteuert werden kann.
Die "kontinuierliche Anzeige" kann ja mit einem kleinen Trick gelöst
werden. Aber das Problem der Bildschirmmeldung kann ich nicht lösen.
Die Syntax lautet:
sub Bildschirmmeldung
dim document as object
dim dispatcher as object
Dim i As Integer
Dim TimeS as double
Dim TimeWait as double
TimeWait=0.1
For i = 0 To 5
TimeS=Timer
Do
'msgBox ("Timer läuft", 0, "Hinweis")
print "Timer läuft"
Loop Until Timer>=TimeS+TimeWait
Next i
end sub
Gruß
Jochen
LO: LibreOffice 3.4.4 OOO340m1 (Build:402)
OS: Windows 7 Prof 64 Bit
--
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