|
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.marksize= 3
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
Chart.LegendCompass= CompassEnum.South
MainTable = Tables("foxtext")
MainTable.Font = New Font("宋体",10,FontStyle.Regular)
|
加好友 
发短信
Post By：2011/8/17 16:50:00 [显示全部帖子]
