Differenze tra le versioni di "Disegnare in una DrawingArea un poligono"
Riga 83: | Riga 83: | ||
<FONT Color=gray>' ''Disegna un punto per ciascun clic con il puntatore del mouse:''</font> | <FONT Color=gray>' ''Disegna un punto per ciascun clic con il puntatore del mouse:''</font> | ||
For b = 0 To vertix.Max Step 2 | For b = 0 To vertix.Max Step 2 | ||
− | .Arc( | + | .Arc(vertici[b], vertici[b + 1], 1, Rad(0), Rad(360)) |
.Fill | .Fill | ||
Next | Next | ||
If vertix.Count == LATI * 2 Then | If vertix.Count == LATI * 2 Then | ||
− | .Polygon( | + | .Polygon(vertici) |
.Stroke <FONT Color=gray>' ''Se si preferisce un poligono "pieno", usare il Metodo ".Fill"''</font> | .Stroke <FONT Color=gray>' ''Se si preferisce un poligono "pieno", usare il Metodo ".Fill"''</font> | ||
Endif | Endif |
Versione delle 20:38, 15 dic 2021
Per disegnare in una DrawingArea un qualunque poligono [Nota 1], è necessario utilizzare il Metodo ".Polygon()" della Classe "Paint".
Questo Metodo richiede che siano individuati nel suo unico parametro di tipo vettoriale tutti i punti (x,y rispetto all'angolo in alto a sinistra del Contenitore Drawingrea) relativi ai vertici del poligono da disegnare.
Mostriamo un esempio, nel quale sarà disegnato un "Trapezio scaleno".
Private DrawingArea1 As DrawingArea Public Sub Form_Open() With Me .W = Screen.AvailableWidth .H = Screen.AvailableHeight .Arrangement = Arrange.Fill End With With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1" .X = 0 .Y = 0 .Background = Color.Lighter(Color.Yellow) End With End Public Sub DrawingArea1_Draw() With Paint .Brush = .Color(Color.Red) .LineWidth = 2.0 .Polygon([80.0, 50.0, 200.0, 50.0, 250.0, 100.0, 50.0, 100.0]) ' Se si vuole soltanto visualizzare la traccia del perimetro del poligono: .Stroke ' Se, invece, si intende ottenere un poligono internamente colorato: ' .Fill .End End With End
Disegnare un qualunque poligono con il mouse
In quest'altro caso si costruirà un qualunque poligono, impostando innanzitutto nella Costante "LATI" il numero di lati che lo costituiscono.
I vertici dei lati saranno impostati cliccando con il puntatore del mouse sulla superficie della "DrawingArea".
Private DrawingArea1 As DrawingArea Private LATI As Byte = 5 ' In questo caso si disegnerà un poligono con 5 lati Private vertici As New Short[] Public Sub Form_Open() With Me .W = Screen.AvailableWidth .H = Screen.AvailableHeight .Arrangement = Arrange.Fill End With With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1" .X = 0 .Y = 0 .Background = Color.Lighter(Color.Yellow) End With End Public Sub DrawingArea1_MouseUp() ' Consente di disegnare un nuovo poligono: If vertix.Count == LATI * 2 Then vertix = New Short[] vertici.Push(Mouse.X) vertici.Push(Mouse.Y) DrawingArea1.Refresh End Public Sub DrawingArea1_Draw() If vertici.Count == 0 Then Return Dim b As Byte With Paint ' Disegna un punto per ciascun clic con il puntatore del mouse: For b = 0 To vertix.Max Step 2 .Arc(vertici[b], vertici[b + 1], 1, Rad(0), Rad(360)) .Fill Next If vertix.Count == LATI * 2 Then .Polygon(vertici) .Stroke ' Se si preferisce un poligono "pieno", usare il Metodo ".Fill" Endif .End End With End
Note
[1] Ovviamente, per ottenere il disegno di un Quadrato o di un Rettangolo, si potrà usare il Metodo "Paint.DrawRect()" oppure "Paint.Rectangle()".