Differenze tra le versioni di "Disegnare in una DrawingArea un triangolo"

Versione delle 18:27, 25 nov 2021

Mostriamo di seguito un possibile codice per disegnare in una DrawingArea un singolo "Triangolo" impostando i suoi vertici con il clic del mouse.

Private vertix As New Short[]


Public Sub DrawingArea1_Draw()
 
 Dim b As Byte
 
 If vertix.Count == 0 Then Return 
 
 With Paint
' Disegna un punto sul primo clic con il puntatore del mouse:
   .Arc(vertix[0], vertix[1], 1, Rad(0), Rad(360))
   .Fill
   If vertix.Count < 4 Then 
     .End
     Return 
   Endif
' Se il vettore "vertix" ha almeno 4 elementi, è possibile disegnare il primo lato:
   .MoveTo(vertix[0], vertix[1])
   .LineTo(vertix[2], vertix[3])
   If vertix.Count == 6 Then 
' Se il vettore "vertix" ha 6 elementi, è possibile disegnare il secondo e il terzo lato:
     .LineTo(vertix[4], vertix[5])
     .LineTo(vertix[0], vertix[1])
   Endif 
   .Stroke  ' Se si preferisce un triangolo "pieno", usare il Metodo ".Fill":
   .End
 End With
  
End

Public Sub DrawingArea1_MouseUp()

' Consente di disegnare un nuovo triangolo:
 If vertix.Count == 6 Then vertix = New Short[]
 
 vertix.Push(Mouse.X)
 vertix.Push(Mouse.Y)
 
 DrawingArea1.Refresh

End