Hallo zum 2ten mal heute...
Ich würde gerne meine GUI aktualisieren lassen.
Hab leider keien Plan wie!
Spoiler anzeigen
#include <GuiConstants.au3>
$breite = @DesktopWidth
$hoehe = @DesktopHeight
$links1 = (3000 - $breite) /2
$oben1 = (3000 - $hoehe) /2
$oben = $oben1
$links = $links1
$zaehler = 0
GuiCreate("Bildschirmschoner", 3000, 3000)
GuiSetState()
Do
sleep (50)
$links = $links +10
$oben = $oben + 10
GUICtrlCreatePic("Pfad zum Bild", $links, $oben, 515, 408)
$zaehler = $zaehler + 1
UNTIL $zaehler < 30
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case Else
;;;
EndSelect
WEnd
Exit
Außerdem würde ich gerne den Hintergrund der GUI schwarz einfärben, und weiß nicht wie. Dann brauch ich kein Hintergrundbild hinterlegen...
Sinn- und Zweck:
Ich möchte einen Bildschirmschoner erstellen.
Leider sieht man nicht, dass sich das Bild bewegt. Man sieht nur, dass die Schleife einmal durchlaufen wird...
(Das Bild ist dann um je 10 Pixel nach rechts und unten verrutscht.)
Vielen Dank im Vorraus
Gruß