Visualizza wikitesto di 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()
  
 <FONT Color=gray>' ''Traccia un percorso non visibile, come modello da disegno, per definire il rettangolo:''</font>
  Paint.Rectangle(10, 20, 50, 100)
  
 <FONT Color=gray>' ''Traccia di blu i lati del rettangolo e non distrugge il percorso, affinché possa essere utilizzato anche nelle righe appresso:''</font>
  Paint.Brush = Paint.Color(Color.Blue)
  Paint.Stroke(True)
  
 <FONT Color=gray>' ''Riempie l'area del rettangolo con il colore giallo e distrugge il percorso:''</font>
  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.