在图表上绘制矩形

Question

我在下面编写了代码，以绘制一个矩形并将其填充到图表上，但最终我得到的图表没有矩形。任何想法？谢谢

公共类表格1

Dim myBrush As Brush

Public Sub Chart1_Click(sender As Object, e As EventArgs) Handles Chart1.Click


    Chart1.Series(0).Points.AddXY(0, 1)
    Chart1.Series(0).Points.AddXY(1, 2)
    Chart1.Series(0).BorderWidth = 2
    Chart1.Series(0).Color = Color.Black


End Sub

Private Sub PostPaint(sender As Object, e As System.Windows.Forms.DataVisualization.Charting.ChartPaintEventArgs) Handles Chart1.PostPaint
    myBrush = New SolidBrush(Color.Coral)
    Dim rect As Rectangle = New Rectangle(0, 0, 100, 100)
    Chart1.CreateGraphics.FillRectangle(myBrush, rect)
End Sub

结束班级