鼠标悬停在数据点上时更改 MarkerImage 并在离开数据点时更改回

Question

当用户将鼠标悬停在数据点上时，我正在尝试更改绘制数据点的标记图像。我显示的代码如下：

数据点悬停在其上时一直在更改图像但没有将其更改回“Red.png”？

谁能弄清楚为什么没有发生这种情况？

谢谢。

 Private Sub Chart1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Chart1.MouseMove
    Dim result As HitTestResult = Chart1.HitTest(e.X, e.Y)

    If result.ChartElementType = ChartElementType.DataPoint Then
        Chart1.Series(0).Points(result.PointIndex).MarkerImage = "Green.png"

    ElseIf result.ChartElementType = ChartElementType.PlottingArea Then
        Chart1.Series(0).MarkerImage = "Red.png"

    End If

End Sub

Answer 1

我发现： 更改这些行

ElseIf result.ChartElementType = ChartElementType.PlottingArea Then
        Chart1.Series(0).MarkerImage = "Red.png"

到

ElseIf result.ChartElementType = ChartElementType.PlottingArea Then
            For i = 0 To Chart1.Series(0).Points.Count - 1
                Chart1.Series(0).Points(i).MarkerImage = "Red.png"
            Next

工作...