タイトル | : webアプリケーションでのchart |
記事No | : 1337 |
投稿日 | : 2005/01/25(Tue) 18:44 |
投稿者 | : トシ |
[OSのVer]:Windows XP [VBのVer]:VB.NET
VBを始めて間もない者です。こちらのサイトには大変お世話になっています。 自分なりに調べてみて分からなかったので、こちらに投稿させて貰う事にしました。
webアプリケーションでMSChartを使おうと思い、こちらのサイトを参考にプログラムを作りましたが 、 AxMSChart,MSChart20Libの部分でエラーが出てしまいます。何かwebアプリケーション用のコマンドが あるのでしょうか? ちなみに、普通のwindowsアプリケーションでは正常に作動しました。
With AxMSChart1 'エラー表示になります .chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine 'エラー表示になります .ColumnCount = 5 .RowCount = 144 .ShowLegend = True
For i = 1 To .RowCount For j = 1 To .ColumnCount .Column = j .Row = i .Data = intDat(i, j) Next j Next i End With
With AxMSChart1 'エラー表示になります For i = 1 To 144 .DataGrid.RowLabel(i, 1) = DName(l) l = l + 1
Next i For i = 1 To 5 .DataGrid.ColumnLabel(i, 1) = syurui(i) .Plot.SeriesCollection(i).LegendText = syurui(i) Next i End With
With AxMSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdX) 'エラー表示になります .CategoryScale.Auto = False ' Sets manual scaling. .CategoryScale.DivisionsPerLabel = 6 ' Label appears every two ' divisions. .CategoryScale.DivisionsPerTick = 5 ' Ticks appear every two ' divisions. .CategoryScale.LabelTick = True ' Labels displayed on top of ' Tick marks. End With
|