asp.net Chart画图后台代码

梦里梦外; 2022-06-10 00:24 93阅读 0赞

![1340093738_1785.png][]

''' <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

[1340093738_1785.png]: https://img-my.csdn.net/uploads/201206/19/1340093738_1785.png