Differenze tra le versioni di "Mostrare alcune sfumature di un colore in una DrawingArea"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "L'esempio che segue disegnerà nella ''DrawingArea'' una striscia, nella quale saranno visibili alcune sfumature del rosso sino al nero: '''Public''' Sub DrawingArea1_Draw()...") |
|||
| Riga 1: | Riga 1: | ||
L'esempio che segue disegnerà nella ''DrawingArea'' una striscia, nella quale saranno visibili alcune sfumature del rosso sino al nero: | L'esempio che segue disegnerà nella ''DrawingArea'' una striscia, nella quale saranno visibili alcune sfumature del rosso sino al nero: | ||
| − | + | Public Sub DrawingArea1_Draw() | |
Dim i As Integer | Dim i As Integer | ||
| Riga 14: | Riga 14: | ||
End With | End With | ||
| − | + | End | |
Versione attuale delle 12:04, 27 giu 2024
L'esempio che segue disegnerà nella DrawingArea una striscia, nella quale saranno visibili alcune sfumature del rosso sino al nero:
Public Sub DrawingArea1_Draw()
Dim i As Integer
With Paint
For i = 0 To 255
.Brush = .Color(Color.RGB(i, 0, 0))
.MoveTo(i, 50)
.RelLineTo(0, DrawingArea1.H)
.Stroke
Next
.End
End With
End
