Differenze tra le versioni di "Disegnare un cerchio con le Classi "Draw" e "Paint""
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per disegnare un cerchio all'interno di una ''DrawingArea'', è possibile utilizzare sia la Classe "''Draw''" che la Classe "''Paint''". ===Disegnare un cerchio con la Class...') |
|||
Riga 11: | Riga 11: | ||
.FillStyle = Fill.Dense12 | .FillStyle = Fill.Dense12 | ||
.FillColor = Color.Red | .FillColor = Color.Red | ||
− | .Circle(100, 100, DrawingArea1.W / 6, 0, 360) | + | .Circle(100, 100, DrawingArea1.W / 6, Rad(0), Rad(360)) |
.End | .End | ||
End With | End With | ||
Riga 23: | Riga 23: | ||
.FillStyle = Fill.Solid | .FillStyle = Fill.Solid | ||
.FillColor = Color.Red | .FillColor = Color.Red | ||
− | .Ellipse(100, 100, DrawingArea1.W / 6, DrawingArea1.W / | + | .Ellipse(100, 100, DrawingArea1.W / 6, DrawingArea1.W /, Rad(0), Rad(360)) |
.End | .End | ||
End With | End With |
Versione delle 03:20, 22 mag 2015
Per disegnare un cerchio all'interno di una DrawingArea, è possibile utilizzare sia la Classe "Draw" che la Classe "Paint".
Disegnare un cerchio con la Classe "Draw"
La Classe Draw ci consente di disegnare un cerchio mediante il metodo "Circle()".
Esempio:
Public Sub DrawingArea1_Draw() With Draw .Begin(DrawingArea1) .FillStyle = Fill.Dense12 .FillColor = Color.Red .Circle(100, 100, DrawingArea1.W / 6, Rad(0), Rad(360)) .End End With End
oppure mediante il metodo "Ellipse()":
Public Sub DrawingArea1_Draw() With Draw .Begin(DrawingArea1) .FillStyle = Fill.Solid .FillColor = Color.Red .Ellipse(100, 100, DrawingArea1.W / 6, DrawingArea1.W /, Rad(0), Rad(360)) .End End With End
Disegnare un cerchio con la Classe "Paint"
La Classe Paint ci consente di disegnare un cerchio mediante il metodo "Ellipse()".
Per ottenere un cerchio vuoto, ossia nel quale sia visibile soltanto la circonferenza, si utilizzerà anche il metodo .Stroke :
Public Sub DrawingArea1_Draw() With Paint .Begin(DrawingArea1) .Brush = Paint.Color(Color.Red) .Ellipse(100, 10, 100, 100) .Stroke .End End With End
Per ottenere invece un cerchio pieno, ossia colorato anche al suo interno, si dovrà utilizzare il metodo .Fill:
Public Sub DrawingArea1_Draw() With Paint .Begin(DrawingArea1) .Brush = Paint.Color(Color.Red) .Ellipse(100, 10, 100, 100) .Fill .End End With End