Impostare l'opacità di un disegno in una DrawingArea

La Classe Paint mediante la Proprietà ".Opacity" ci consente di impostare l'opacità di ciò che viene disegnato su una DrawingArea.

Può essere assegnato a detta Proprietà un valore in virgola mobile da 0.00 a 1.0 .

Mostriamo un semplice esempio:

Private DrawingArea1 As DrawingArea


Public Sub _new()

 With Me
   .W = Screen.AvailableWidth / 2
   .H = Screen.AvailableHeight / 2
   .Arrangement = Arrange.Fill
 End With

 With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
   .Background = Color.White
 End With

End


Public Sub DrawingArea1_Draw()

 With Paint
   .Brush = .Color(Color.Red)
   .Opacity = 0.1
   .Ellipse(DrawingArea1.W / 3, DrawingArea1.H / 3, DrawingArea1.W * 0.1, DrawingArea1.H * 0.1, Rad(0), Rad(360), False)
   .Fill
   .End
 End With

End