VB.NET中如何更改点图/折线图单个数据点的颜色

常见原因与修复方案 #

• Series固定颜色覆盖单个点颜色：如果你的Series预先设置了固定Color属性，单个数据点的颜色会被覆盖。先将Series的Color设为Color.Empty，再设置点的颜色。
• 未触发Chart重绘：部分Chart控件在修改点属性后需要手动刷新才能生效。

直接设置颜色的修正代码 #

Dim pointIndex = MONEY_Chart.Series("profitability").Points.AddXY(event_timestamp_DATETIME, Yvalue)
' 取消Series的固定颜色，避免覆盖点颜色
MONEY_Chart.Series("profitability").Color = Color.Empty
' 根据Y值判断设置颜色
MONEY_Chart.Series("profitability").Points(pointIndex).Color = If(Yvalue > 0, Color.Green, Color.Red)
' 强制刷新Chart，确保颜色生效
MONEY_Chart.Refresh()

推荐：使用PointPaint事件动态设置颜色 #

这种方式更可靠，Chart重绘（如缩放、滚动）时颜色不会丢失，适合需要根据Y值动态判断的场景：

1. 绑定事件（在窗体初始化或Chart加载时执行）：

AddHandler MONEY_Chart.Series("profitability").PointPaint, AddressOf ProfitabilitySeries_PointPaint

2. 实现事件处理方法：

Private Sub ProfitabilitySeries_PointPaint(sender As Object, e As ChartPaintEventArgs)
    Dim targetPoint = e.Series.Points(e.PointIndex)
    Dim yValue = targetPoint.YValues(0)
    
    ' 根据Y值自定义颜色逻辑
    If yValue > 0 Then
        targetPoint.Color = Color.Green
    ElseIf yValue < 0 Then
        targetPoint.Color = Color.Red
    Else
        targetPoint.Color = Color.Gray
    End If
End Sub

内容的提问来源于stack exchange，提问作者Doug Null