Mostrare alcune sfumature di un colore in una DrawingArea
Da Gambas-it.org - Wikipedia.
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