|
VB.NET なのに C# というのもイケズすぎたので VB.NET で書き直したものを貼っておきます。
(いや、単に失念していて C# で書いただけですが… orz)
Const circleRadius As Single = 5
Using path As New GraphicsPath
Dim circleDiameter As Single = circleRadius * 2
Dim rect As New RectangleF(x, y, circleDiameter, circleDiameter)
rect.Offset(-circleRadius, -circleRadius)
path.AddEllipse(rect)
Using br As New PathGradientBrush(path)
br.CenterColor = color
br.SurroundColors = New Color() {Color.FromArgb(0, color)}
g.FillEllipse(br, rect)
End Using
End Using
※g は描画対象。x, y や color は適当に。
|