辅助线的画法可以参考。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=55270&skin=0

柱状图_AfterLoad

\'

\'设定图表数据,因为只是演示,所以数据只用人工设置

\'

Dim a() As  Integer = {100,90,80,85,70,80,101,105,75,66,88,110} 

Dim i均值 As Integer = 87.5

Dim i上限 As Integer = 100

Dim i下限 As Integer = 80

\'

\'生成图表

\'

Dim i As Integer

Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")

Dim C1Cha As C1.Win.C1Chart.C1Chart = Chart.BaseControl

Dim Series As WinForm.ChartSeries

Chart.VisualEffect = True

Chart.ChartType = ChartTypeEnum.Bar

Chart.SeriesList.Clear()

Series = Chart.SeriesList.Add()

Series.Length = 12

Series.Text = "金额"

For i = 0 To 11

    Series.X(i) = i

    Series.Y(i) = a(i)

    Chart.AxisX.SetValueLabel(i, i+1 & "月")

Next

Chart.AxisX.AnnoWithLabels = True

Chart.LegendVisible = True

Chart.LegendCompass= CompassEnum.South

\'

\'增加均值

\'

Dim tl As C1.Win.C1Chart.TrendLine =  C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()

tl.LineStyle.Color = Color.Gold    \'线条颜色

tl.LineStyle.Thickness = 2              \'线宽

tl.LineStyle.Pattern = 0   \'直线样式 0-5

Dim zxb = New zxb柱状图标辅助线()

zxb.SetXY(New PointF(-0.5,87.5),New PointF(11.5,87.5))

zxb.SetText("均线")

tl.CustomTrendLine = zxb

\'

\'增加下限

\'

tl  =  C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()

tl.LineStyle.Color = Color.red   

tl.LineStyle.Thickness = 2             

tl.LineStyle.Pattern = 2  

zxb = New zxb柱状图标辅助线()

zxb.SetXY(New PointF(-0.5,80),New PointF(11.5,80))

zxb.SetText("下限")

tl.CustomTrendLine = zxb

\'

\'增加上限

\'

tl  =  C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()

tl.LineStyle.Color = Color.BurlyWood   

tl.LineStyle.Thickness = 2             

tl.LineStyle.Pattern = 2

zxb = New zxb柱状图标辅助线()

zxb.SetXY(New PointF(-0.5,i上限),New PointF(11.5,i上限))

zxb.SetText("上限")

tl.CustomTrendLine = zxb

图表辅助线

Public Class zxb柱状图标辅助线

    Implements C1.Win.C1Chart.ICustomTrendLine

    Private _x() As Double

    Private _y() As Double

    Public Sub Calculate(ByVal tl As C1.Win.C1Chart.TrendLine, ByVal x() As Double, ByVal y() As Double) Implements C1.Win.C1Chart.ICustomTrendLine.Calculate

        If x Is Nothing Or x.Length = 0 Or y Is Nothing Or y.Length = 0 Then

            _x = Nothing

            _y = Nothing

            Return

        End If

        _x = New Double(1) {}

        _y = New Double(1) {}

        _x(0) = _xy1.X

        _y(0) = _xy1.Y

        _x(1) = _xy2.X

        _y(1) = _xy2.Y

    End Sub

    Public Function GetXValues() As Double() Implements C1.Win.C1Chart.ICustomTrendLine.GetXValues

        Return _x

    End Function

    Public Function GetYValues() As Double() Implements C1.Win.C1Chart.ICustomTrendLine.GetYValues

        Return _y

    End Function

    Public Function GetY(ByVal x As Double) As Double Implements C1.Win.C1Chart.ICustomTrendLine.GetY

        Return 0

    End Function

    Public ReadOnly Property Text() As String Implements C1.Win.C1Chart.ICustomTrendLine.Text

        Get

            Return _text

        End Get

    End Property

    Private _xy1 As PointF = New PointF(0, 0)

    Private _xy2 As PointF = New PointF(0, 0)

    Public Sub SetXY(ByVal xy1 As PointF, ByVal xy2 As PointF)

        _xy1 = xy1

        _xy2 = xy2

    End Sub

    Private _text As String = ""

    Public Sub SetText(ByVal text As String)

        _text = text

    End Sub

End Class

谢谢老师的分享，我的线型是竖线，他的是横线，不知道改上面的哪句代码，自己试着翻译了一下，没找到哪句是趋势线方向，麻烦老师指点下，谢谢~~

汗，这句代码的意思是设置两个点，你明白了吗？

zxb.SetXY(New PointF(-0.5,87.5), New PointF(11.5,87.5))