XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zufallstexte ...
Windowstyle 31+512
Windowtitle Zufallstext
Window 0,0-640,440
Usermessages $10
Declare Button&,Zufall&,Text&,Text$
Clearlist
Addstring Moin
Addstring Hallöchen...
Addstring Ooups...
AddString Au weia, der schon wieder...
Addstring Trari trara...
LET Text&=@Createtext(%HWND,Bitte Button Klicken,20,20,300,30)
Let Button&=@CreateButton(%HWND,Zufall?,20,60,300,30)

While %UMESSAGE<>$10

    Waitinput

    If @getFocus(Button&)

        Randomize
        Let Zufall&=@RND(5)
        LET Text$=@ListBoxItem$(Zufall&)
        Settext Text&,Text$

    endif

wend