Mostrare tutte le sfumature di un colore in una DrawingArea
Da Gambas-it.org - Wikipedia.
Versione del 26 apr 2020 alle 09:19 di Vuott (Discussione | contributi) (Creata pagina con "L'esempio che segue disegnerà nella ''DrawingArea'' una striscia, nella quale saranno visibili le sfumature del rosso: '''Public''' Sub DrawingArea1_Draw() Dim i As Int...")
L'esempio che segue disegnerà nella DrawingArea una striscia, nella quale saranno visibili le sfumature del rosso:
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