如何繪製圓形漸變？

Question

如何在vb.net中繪製圓形漸變like this？

Answer 1

看看這個great page。文章中的代碼是用C＃編寫的。下面是代碼you'e興趣和更新的矩形填充的vb.net端口：（基於製品的三角形填充樣品）

Dim pgb As New PathGradientBrush(New Point() { _ 
     New Point(0, 0), _ 
     New Point(0, Me.ClientRectangle.Height), _ 
     New Point(Me.ClientRectangle.Width, Me.ClientRectangle.Height), _ 
     New Point(Me.ClientRectangle.Width, 0)}) 
pgb.SurroundColors = New Color() {Color.Red} 
pgb.CenterColor = Color.Gray 
e.Graphics.FillRectangle(pgb, Me.ClientRectangle) 
pgb.Dispose() 

下面是另一個可能的解決方案：

Dim pth As New GraphicsPath() 
pth.AddEllipse(Me.ClientRectangle) 
Dim pgb As New PathGradientBrush(pth) 
pgb.SurroundColors = New Color() {Color.Red} 
pgb.CenterColor = Color.Gray 
e.Graphics.FillRectangle(pgb, Me.ClientRectangle) 

請注意，最後一段代碼將繪製一個矩形內的圓。如果你想讓圓形漸變填充整個矩形，你必須計算一個更大的橢圓形路徑和更大的矩形。