You must put a DrawingArea on your form to get these examples going.
You will find the DrawingArea in your Gambas Toolbox.
Example 1 Draw.Line
PUBLIC SUB Form_Open() DIM B AS Integer Draw.Begin(DrawingArea1) FOR B = 1 TO 200 STEP 10 Draw.Line(1, B, 500, B) NEXT Draw.End END
Example 2: LineWidth
PUBLIC SUB Form_Open() DIM B AS Integer Draw.Begin(DrawingArea1) Draw.Line(10,100, 20, 100) FOR B = 1 TO 100 STEP 10 Draw.LineWidth=B Draw.Line(10+B,100, 20+B, 100) NEXT Draw.End END
Example 3 Random Points
PUBLIC SUB Form_Open() DIM x AS Integer DIM y AS Integer DIM z AS Integer Draw.Begin(DrawingArea1) FOR z = 1 TO 10000 x = Int(Rnd(0,200)) y = Int(Rnd(0,200)) Draw.Point(x,y) NEXT Draw.End END