鴨爸的隨手寫寫

VS2005的時候每次要寫圖表程式就得找一種元件來用

真的是有點累.....

Vs2008時終於可以免費用MsChart了

用了之後覺得還算是方便

只是有一些設定還是要試看看才知道

不過算好用的了

'先把Series1清除
Me.Chart1.Series("Series1").Points.Clear()
'設置X軸座標的間隔為1
Me.Chart1.ChartAreas(0).AxisX.Interval = 1
'設置X軸座標偏移為1
Me.Chart1.ChartAreas(0).AxisX.IntervalOffset = 1
'固定顯示
Me.Chart1.ChartAreas(0).AxisX.IntervalAutoMode = IntervalAutoMode.FixedCount
'設置是否交錯顯示數據過多時分成兩行來顯示(真的太多時也是全部黑黑一片)
'Me.Chart1.ChartAreas(0).AxisX.LabelStyle.IsStaggered = True
Dim dTable As DataTable = New DataTable

'內容
For i As Integer = 0 To dTable.Rows.Count - 1
    If i < 200 Then
        Me.Chart1.Series("Series1").Points.AddXY(dTable.Rows(i)("ColumnX"), dTable.Rows(i)("ColumnY"))

        Me.Chart1.Series("Series1").Points.Item(i).BorderWidth = 3
        Me.Chart1.Series("Series1").Points.Item(i).Color = Color.Blue
    End If
Next i                   

'不顯示圖例
Me.Chart1.Legends("Legend1").Enabled = False
'線條圖
Me.Chart1.Series("Series1").ChartType = SeriesChartType.Line
'顯示數值
Me.Chart1.Series("Series1").IsValueShownAsLabel = True
'顯示數值傾斜角度(一定要把SamrtLabelStyle設為False才有效忘了哪看到的)
Me.Chart1.Series("Series1").SmartLabelStyle.Enabled = False
'要傾斜的角度
Me.Chart1.Series("Series1").LabelAngle = 80
'拿掉左右的空格(預設會留一格)
Me.Chart1.ChartAreas("Default").AxisX.IsMarginVisible = False
'不顯示3D
Me.Chart1.ChartAreas("Default").Area3DStyle.Enable3D = False
'X軸傾斜角度
Me.Chart1.ChartAreas("Default").AxisX.LabelStyle.Angle = 90

產生的結果：