Disegnare in una DrawingArea un rettangolo colorato con distinzione sfumata fra i colori

Per ottenere una distinzione sfumata fra i colori di un rettangolo disegnato in una DrawingArea, si deve utilizzare il metodo .LinearGradient() della Classe Paint.

Mostriamo un semplice esempio, nel quale viene disegnato un rettangolo internamente colorato con quattro colori blu, verde, giallo e rosso:

Public Sub Form_Open()

  DrawingArea1.Background = Color.White

End


Public Sub DrawingArea1_Draw()

 Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
 Dim p As Float[] = [0, 0.34, 0.67, 1]

  With Paint
    .Begin(DrawingArea1)
    .Brush = .LinearGradient(10, 40, 300, 40, c, p)
    .Rectangle(10, 40, 300, 40)
    .Fill
    .End
  End With

End