Mostrare alcune sfumature di un colore in una DrawingArea
Da Gambas-it.org - Wikipedia.
(Reindirizzamento da Mostrare tutte le sfumature di un colore in una DrawingArea)
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