' gambas class File PUBLICSUB _new() END PUBLICSUB form_OPEN()
me.center END PUBLICSUB button1_click() DIM i AS Integer DIM x AS Integer DIM y AS Integer
draw.begin(da) FOR i = 1 TO 200000
draw.fillcolor = int(rnd(&hffffff&))
draw.fillstyle = fill.solid
x = int(rnd(da.width))
y = int(rnd(da.height))
draw.rect(x -7, y -7,7,7) NEXT
draw.END END PUBLICSUB button2_click()
me.CLOSE END
Date de création : 20/12/2009 @ 10:48
Dernière modification : 27/01/2012 @ 22:23
Catégorie : DRAWAREA Page lue 5731 fois