Disegnare in una DrawingArea un rettangolo

Per disegnare in una DrawingArea un rettangolo, o un quadrato, è necessario utilizzare il Metodo ".Rectangle()" della Classe Paint.

Bisogna innanzitutto costruire un modello di disegno aggiungendo "percorsi" rappresentati da coordinate e dimensioni del rettangolo da disegnare, e quindi usare il Metodo ".Stroke()", per simulare una semplice pennellata, oppure usare il Metodo ".Fill()" per riempire il rettangolo con un colore.

Mostriamo un esempio:

Public Sub DrawingArea1_Draw()
 
' Traccia un percorso non visibile, come modello da disegno, per definire il rettangolo:
 Paint.Rectangle(10, 20, 50, 100)
 
' Traccia di blu i lati del rettangolo e non distrugge il percorso, affinché possa essere utilizzato anche nelle righe appresso:
 Paint.Brush = Paint.Color(Color.Blue)
 Paint.Stroke(True)
 
' Riempie l'area del rettangolo con il colore giallo e distrugge il percorso:
 Paint.Brush = Paint.Color(Color.Yellow)
 Paint.Fill()
 
 Paint.End()
 
End

Ovviamente, per ottenere un quadrato, il terzo e il quarto argomento del Metodo ".Rectangle()" dovranno avere il medesimo valore.