這只是筆記本

網頁繪出雷達圖的語法….尚待驗證….

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

‘本程式將在 C:\ 建立dddt.gif的圖片…
‘——————–
Dim ChartSpace1 As OWC10.ChartSpace = New OWC10.ChartSpace
Dim Chart1 As OWC10.ChChart = ChartSpace1.Charts.Add(0) ‘在ChartSpace1繪圖空間內建一個新圖表(繒圖區)
Dim Chart1_Series1 As OWC10.ChSeries ‘宣告資料列…
Dim asSeriesNames(1)
Dim asCategories(7)
Dim bv(7)
Dim chConstants
Dim chtNewChart

asCategories(0) = “力量”
asCategories(1) = “速度”
asCategories(2) = “智慧”
asCategories(3) = “幸運”
asCategories(4) = “集中力”
‘asCategories(5) = “跳躍力”

‘手動設定以下資料…
bv(0) = 5
bv(1) = 10
bv(2) = 6
bv(3) = 8
bv(4) = 6
‘bv(5) = 3

‘產生雷達圖…
chConstants = ChartSpace1.Constants
//Chart1 = ChartSpace1.Charts.Add

ChartSpace1.Border.Weight = chConstants.owcLineWeightThick
Chart1.Type = chConstants.chChartTypeRadarLineFilled
Chart1.SetData(chConstants.chDimCategories, chConstants.chDataLiteral, asCategories)

Chart1.SeriesCollection(0).SetData(chConstants.chDimSeriesNames, chConstants.chDataLiteral, “ddt”)
Chart1.SeriesCollection(0).SetData(chConstants.chDimValues, chConstants.chDataLiteral, bv)
Chart1.SeriesCollection(0).Type = chConstants.chChartTypeRadarLineFilled

ChartSpace1.HasChartSpaceTitle = True
Chart1.HasLegend = True
ChartSpace1.ExportPicture(“c:\dddt.gif”, “gif”, 640, 480)
Image1.ImageUrl = “c:\dddt.gif”

End Sub