''' <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
'2個不足の場合、空白を追加
If ary.Count Mod 2 <> 0 Then
ary.Insert(j + 1, Nothing)
End If
Return ary
End Function