|
|
| (10 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Per disegnare un cerchio all'interno di una ''DrawingArea'', è possibile utilizzare sia la Classe "''Draw''" che la Classe "''Paint''".
| + | #REDIRECT [[Disegnare_in_una_DrawingArea_un_cerchio]] |
| − | | |
| − | | |
| − | ===Disegnare un cerchio con la Classe "''Draw''"===
| |
| − | La Classe ''Draw'' ci consente di disegnare un cerchio mediante il metodo "''Circle()''".
| |
| − | <BR>Esempio:
| |
| − | '''Public''' Sub DrawingArea1_Draw()
| |
| − |
| |
| − | With Draw
| |
| − | .Begin(DrawingArea1)
| |
| − | .FillStyle = Fill.Dense12
| |
| − | .FillColor = Color.Red
| |
| − | .Circle(100, 100, DrawingArea1.W / 6, 0, 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 / 6)
| |
| − | .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'''
| |
