Jump to content

Office 2010 like Splashscreen


GtaSpider
 Share

Recommended Posts

Hey there,

I just created an new UDF and want to share it with you. With this UDF you can easily create a graphical complex Splashscreen.

Here an Example:

#include "ModernSplash.au3"

;                   $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..."

;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

And here a sample Video (Version 1.0)

You can download the file here: http://www.maxreble.de/autoit.html

Changelog

Ah, right. This script is under the creative commons licens:

http://creativecommons.org/licenses/by/3.0/us/

Greetz

Spider

Edit: Version 1.1 Added

Edit: Version 1.2 Added

Edited by GtaSpider

www.AutoIt.de - Moderator of the German AutoIt Forum

 

Link to comment
Share on other sites

Thanks :mellow:

Added a fast Hotfix to the first post. Back to Flash but now on a bit different way. (IE occurs problems with compiled scripts)

Download: http://www.maxreble.de/autoit.html

Changelog: http://www.maxreble.de/prgs/ModernSplash/changelog.txt

Greetz Spider

Edited by GtaSpider

www.AutoIt.de - Moderator of the German AutoIt Forum

 

Link to comment
Share on other sites

  • 4 months later...
  • 2 weeks later...
  • 1 month later...

Try this link: http://www.maxreble.de/download.php?to=http://www.maxreble.de/prgs/ModernSplash/ModernSplash1.3.zip

Br,

UEZ

Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...