XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fortschrittsbalken
Def @InitCommonControls(0) !COMCTL32,InitCommonControls
DEf @CreateWindowEx(12) !USER32,CreateWindowExA
DEF @GetSysColor(1) !USER32,GetSysColor
Settruecolor 1
Declare CLASSNAME$,PROGRESSHandle&,HWND&,Windowname#,ProgressZähler&
Windowstyle 31
Windowtitle Progressbar
Window 0,0-640,440
CLS @getsyscolor(15)
LET HWND&=%HWND
@InitCommonControls()
LET CLASSNAME$=msctls_progress32
LET PROGRESSHandle&=@CreateWindowEx(0,@addr(CLASSNAME$),0,$40000000+$10000000+$800000+$40000,20,360,600,30,HWND&,0,%Hinstance,0)

While ProgressZähler&<>101

    Sleep 250
    @sendmessage(PROGRESSHandle&,$0400+2,ProgressZähler&,0)
    LET ProgressZähler&=ProgressZähler&+1

wend