图表中的多重系列 [英] 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屋!
查看全文