asp.net Chart画图后台代码

''' <summary>

''' 画像データの作成し、データをセット

''' </summary>

''' <param name="dt_titel">DataTable</param>.

''' <param name="objStatusGraphDao">(状況確認)グラフ対象</param>

''' <returns></returns>

''' <remarks></remarks>

Private Function Fun_CreateChart(ByVal dt_titel As DataTable, ByVal objStatusGraphDao As StatusGraphDao) As ArrayList

Dim ary As New ArrayList

Dim j As Integer

Dim dt As DataTable

For i As Integer = 0 To dt_titel.Rows.Count - 1

Dim Chart1 As Chart = New Chart

Chart1.Width = "400"

Chart1.ChartAreas.Add("ChartArea1")

Chart1.ChartAreas.Add("ChartArea2")

Chart1.ChartAreas(0).AxisY.Enabled = AxisEnabled.False

'Chart1.ChartAreas(0).AxisY.MajorGrid.Enabled = False

Chart1.ChartAreas(0).AxisX.Enabled = AxisEnabled.False

Chart1.ChartAreas(0).Position.X = "9"

Chart1.ChartAreas(0).Position.Y = "0"

Chart1.ChartAreas(0).Position.Width = "90"

Chart1.ChartAreas(0).Position.Height = "15"

'Chart1.ChartAreas(1).AxisY.Enabled = AxisEnabled.False

Chart1.ChartAreas(1).AxisY.MajorTickMark.Enabled = False

Chart1.ChartAreas(1).AxisY.Maximum = 500

Chart1.ChartAreas(1).AxisY.Minimum = 0

Chart1.ChartAreas(1).AxisY.MinorTickMark.Interval = 100

Chart1.ChartAreas(1).AxisX.MajorGrid.Enabled = False

Chart1.ChartAreas(1).AxisX.MajorTickMark.Enabled = False

Chart1.ChartAreas(1).AxisX.LabelAutoFitStyle = LabelAutoFitStyles.None

Chart1.ChartAreas(1).AxisX.LabelStyle.Interval = 1

Chart1.ChartAreas(1).Position.X = "1"

Chart1.ChartAreas(1).Position.Y = "10"

Chart1.ChartAreas(1).Position.Width = "85"

Chart1.ChartAreas(1).Position.Height = "90"

Chart1.Series.Add("Series1")

Chart1.Series.Add("Series2")

Chart1.Series.Add("Series3")

Chart1.Series(0).BorderColor = Drawing.Color.Black

Chart1.Series(0).ChartType = SeriesChartType.Bar

Chart1.Series(0).Color = Drawing.Color.White

Chart1.Series(0).ChartArea = "ChartArea1"

Chart1.Series(0).LabelFormat = "###,##0"

Chart1.Series(0).IsValueShownAsLabel = True

Chart1.Series(1).ChartType = SeriesChartType.StackedBar

Chart1.Series(1).BorderColor = Drawing.Color.Black

Chart1.Series(1).BackGradientStyle = GradientStyle.VerticalCenter

Chart1.Series(1).Color = Drawing.Color.FromArgb(0, 192, 0)

Chart1.Series(1).ChartArea = "ChartArea1"

Chart1.Series(2).ChartType = SeriesChartType.Column

Chart1.Series(2).BackGradientStyle = GradientStyle.VerticalCenter

Chart1.Series(2).Palette = ChartColorPalette.EarthTones

Chart1.Series(2).IsValueShownAsLabel = True

Chart1.Series(2).ChartArea = "ChartArea2"

'目標値

Chart1.Series(0).Points.DataBindXY(New String() {"A"}, New Double() {1000000})

dt = PFn_Get_画像DATA(CStr(dt_titel.Rows(i).Item("PROJECT_CODE")), objStatusGraphDao)

'実際値

Chart1.Series(1).Points.DataBindXY(New String() {"A"}, New Double() {CDbl(dt.Rows(0).Item("STEP_AMOUNT"))})

'図形

Chart1.DataSource = dt

Chart1.Series(2).XValueMember = "MOJI2"

Chart1.Series(2).YValueMembers = "COUNT_NUM"

Chart1.DataBind()

ary.Insert(i, Chart1)

j = i

Next

'２個不足の場合、空白を追加

If ary.Count Mod 2 <> 0 Then

ary.Insert(j + 1, Nothing)

End If

Return ary

End Function