主题：图表数据标示---示例+疑问

示例中2011的数据标示.

那么2010或更多条曲线数据标示怎么标?

每条曲线的线型和标示点大小怎么设置呢?

Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Chart= e.Form.Controls("Chart1")
Chart.SeriesList.Clear()
Dim nms() As Integer ={ "1","2","3","4","5","6","7","8","8","10","11","12"}
For Each r As Row In Tables("foxtext").Rows
    Series = Chart.SeriesList.Add()
    series.Text = r("年份")
    Series.Length = nms.length
    For i As Integer = 0 To nms.Length - 1
        Series.X(i) = i
        Series.Y(i) = r(nms(i))
    Next
Next
For i As Integer = 0 To nms.Length - 1
    Chart.AxisX.SetValueLabel(i,nms(i))
Next
Chart.AxisX.AnnoRotation =  25
Series.TooltipText = "Y = {#YVAL}"   ' 此处的数据标示,只标出2011的标示,2010或由动态生成的曲线怎么标示呢?
Series.MarkShape = MarkShapeEnum.Dot
Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True
Chart.VisualEffect = True
Chart.SeriesList(0).FitType = FitTypeEnum.Spline
Chart.SeriesList(1).FitType = FitTypeEnum.Spline ' 假如有多条曲线,而且是动态生成.那线型应该怎么定义呢?
Chart.LegendVisible = True
series.marksize= 3
Chart.LegendCompass= CompassEnum.South
MainTable = Tables("foxtext")
MainTable.Font = New Font("宋体",10,FontStyle.Regular)

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:foxtext.zip