DRAWAREA - dessinner des carres( Temps de lecture estimé à Moins d'une minute)
DESSINER DES CARRES
Voici une petite application pour dessiner des carrés dans une drawarea
TELECHARGER L'EXEMPLE ICI
Voici une petite application pour dessiner des carrés dans une drawarea
TELECHARGER L'EXEMPLE ICI
voici le code de l'application :
' gambas class File PUBLIC SUB _new() END PUBLIC SUB form_OPEN() me.center END PUBLIC SUB 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 PUBLIC SUB button2_click() me.CLOSE END |