图表中的多重系列 [英] multiseries in chart

问题描述

如何在1个图表中显示2个系列。

我是vb.net中的新图表所以任何代码部分我们欢迎如何为每个积分添加系列，

plzz帮助 

推荐答案

  Public Sub cSeries2（）

        Dim CArea As ChartArea = Chart2.ChartAreas（0）

        CArea.BackColor = Color.White

        CArea.ShadowColor = Color.Red

        CArea.Area3DStyle.Enable3D = False

        CArea.AxisX.MajorGrid.Enabled = False

        CArea.AxisX.LabelStyle.Font = New System.Drawing.Font（" Times New Roman"，_

     11.0F，System.Drawing.FontStyle.Italic）

        CArea.AxisX.IntervalType = 1

        CArea.AxisY.MajorGrid.Enabled = True

        Chart2.Series.Add（1）

        Dim Series2 As Series = Chart2.Series（1）

        Series2.Name = addline2.ComboBoxTag.Text

        Series2.Color = addline2.ButtonLineColor.BackColor

        Chart2.Series（Series2.Name）.XValueMember =" bop_time"

        Chart2.Series（Series2.Name）.YValueMembers =" bop_val"

        Series2.XValueType = ChartValueType.DateTime

        Series2.YValueType = ChartValueType.Double

        Chart2.Series（Series2.Name）.Font = New System.Drawing.Font（" Times New Roman"，11.0F，System.Drawing.FontStyle.Bold）

        Chart2.Series（Series2.Name）.YValueType = ChartValueType.Double

        Chart2.Series（Series2.Name）.ChartType = SeriesChartType.Line

        Chart2.Series（Series2.Name）.LabelForeColor = Color.DarkGreen

        Dim LG As Legend = Chart2.Legends（0）

        LG.BackColor = Color.Black

        LG.ForeColor = Color.Gold

        LG.Font = New System.Drawing.Font（" Times New Roman"，11.0F，System.Drawing.FontStyle.Bold）

        LG.Title ="图例"

        LG.TitleForeColor = Color.Gold

   结束子

 Public Sub cSeries2()
        Dim CArea As ChartArea = Chart2.ChartAreas(0)
        CArea.BackColor = Color.White
        CArea.ShadowColor = Color.Red
        CArea.Area3DStyle.Enable3D = False
        CArea.AxisX.MajorGrid.Enabled = False
        CArea.AxisX.LabelStyle.Font = New System.Drawing.Font("Times New Roman", _
        11.0F, System.Drawing.FontStyle.Italic)
        CArea.AxisX.IntervalType = 1
        CArea.AxisY.MajorGrid.Enabled = True
        Chart2.Series.Add(1)
        Dim Series2 As Series = Chart2.Series(1)
        Series2.Name = addline2.ComboBoxTag.Text
        Series2.Color = addline2.ButtonLineColor.BackColor
        Chart2.Series(Series2.Name).XValueMember = "bop_time"
        Chart2.Series(Series2.Name).YValueMembers = "bop_val"
        Series2.XValueType = ChartValueType.DateTime
        Series2.YValueType = ChartValueType.Double
        Chart2.Series(Series2.Name).Font = New System.Drawing.Font("Times New Roman", 11.0F, System.Drawing.FontStyle.Bold)
        Chart2.Series(Series2.Name).YValueType = ChartValueType.Double
        Chart2.Series(Series2.Name).ChartType = SeriesChartType.Line
        Chart2.Series(Series2.Name).LabelForeColor = Color.DarkGreen
        Dim LG As Legend = Chart2.Legends(0)
        LG.BackColor = Color.Black
        LG.ForeColor = Color.Gold
        LG.Font = New System.Drawing.Font("Times New Roman", 11.0F, System.Drawing.FontStyle.Bold)
        LG.Title = "Legend"
        LG.TitleForeColor = Color.Gold
    End Sub

这篇关于图表中的多重系列的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！