Mostrare alcune sfumature di un colore in una DrawingArea
Da Gambas-it.org - Wikipedia.
Versione del 8 dic 2021 alle 18:36 di Vuott (Discussione | contributi) (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()...")
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