- Offizieller Beitrag
Heyho,
Ich habe ein UDF geschrieben, mit dem man grafisch relativ aufwendig ein Ladebildschirm für das eigene Programm entwickeln kann.
Hier mal ein Beispiel:
Spoiler anzeigen
#include "ModernSplash.au3"
[/autoit] [autoit][/autoit] [autoit]; $sTitle, $sBuild = "", $bProgress = False, $sCallBack_Exit = "", $iCorners = 20, $sMovieFile = "", $sFont = "Arial"
_ModernSplash_Create( "ModernSplash", "v1.1 ("&FileGetTime(@ScriptFullPath,0,1)&")", True, "_exit", 20);Warning, changed now...
_ModernSplash_Initiate("Load...");First initiate. Stat with Text: "Load..."
[/autoit] [autoit][/autoit] [autoit];Progress Marquee. As higher the number (10) as slower the marquee!
_ModernSplash_ProgressMarquee(10)
_ModernSplash_TextNext("Loading resources...")
Sleep(100);do smth
_ModernSplash_TextNext("This is a quite long text to test how quite long textes looks like on this splash and i think it looks quite nice, doesn't it?")
Sleep(500);do smth
_ModernSplash_TextNext("Max rox!")
MsgBox(0,"","You can try to exit the Splash by clicking on the X on the right or push esc"&@CRLF&"It will close then after this messagebox dissappears")
;Stop Marquee
_ModernSplash_ProgressMarquee(False)
$ms = 0
For $i = 1 To 10
_ModernSplash_TextChange("Ping Google"&@CRLF&$i&"/10");Update text without animation
$ms += Ping("www.google.de")
_ModernSplash_ProgressUpdate($i*10);Update Progress
If $i = 6 Then
_ModernSplash_ProgressColor(3);Make Progress Yellow (only vista/server08 or higher)
MsgBox(0,"","Yellow Progress Color")
EndIf
If $i = 9 Then _ModernSplash_ProgressColor(1);Reset Progress to green
Sleep(200)
Next
_ModernSplash_ProgressColor(2);Make Progess Red (only vista/server08 or higher)
_ModernSplash_TextNext("Roundtrip: "&Round($ms/10)&"ms")
Sleep(500)
_ModernSplash_TextNext("Mesagebox")
MsgBox(0,"","Click ok to continue or watch this beautiful animation. Hope you have enough time, its endless ;-)")
_ModernSplash_DeInitiate()
MsgBox(0,"","Programm succesfull loaded :)")
Func _exit()
MsgBox(0,"","You abborted loading...script exit now!")
Exit
EndFunc
Und hier ein Video (denn Bilder sagen mehr als 1000 Worte )
http://www.youtube.com/watch?v=ASbejjkB_cI
Download Version 1.3
Die Datei gibt es auf http://www.maxreble.de/ zu laden
Changelog
Achja, das Script steht unter der CreativeCommon Lizenz:
http://creativecommons.org/licenses/by/3.0/de/
Gruß
Spider