16,721
社区成员




试试这个代码:
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim redBrush As New SolidBrush(Color.Red)
Dim x As Single = 0.0F
Dim y As Single = 0.0F
Dim width As Single = 200.0F
Dim height As Single = 100.0F
e.Graphics.FillEllipse(redBrush, x, y, width, height)
End Sub