| |
|
|
| KompilierenMarcaSeparaciónSource 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
|
|
|
| |
|
|