图表控件MsChart使用demo

chart 控件主要有 Titles 标题集合 Chart Area图形显示区域 Series图表集合 Legends图列的集合

一、常用事件：

1. Series1.Points.DataBind()绑定数据点集合，如果要在一个MSChart控件的一个绘图区(ChartArea)内添加多个不同数据源的图表，就用这个主动绑定数据集合的方法。可以将表中指定字段的值绑定到指定的坐标轴上。

2. MSChart1.DataBind()给整个MSChart绑定一个数据源，该MSChart中的图表全部可以使用该数据源作为统计来源

二、MSChart的元素组成，最常用的属性包括：

ChartAreas：增加多个绘图区域，每个绘图区域包含独立的图表组、数据源，用于多个图表类型在一个绘图区不兼容时。

AlignmentOrientation：图表区对齐方向，定义两个绘图区域间的对齐方式。

AlignmentStyle：图表区对齐类型，定义图表间用以对其的元素。

AlignWithChartArea：参照对齐的绘图区名称。

InnerPlotPosition：图表在绘图区内的位置属性。

Auto：是否自动对齐。

Height：图表在绘图区内的高度（百分比，取值在0-100）

Width：图表在绘图区内的宽度（百分比，取值在0-100）

X,Y：图表在绘图区内左上角坐标

Position：绘图区位置属性，同InnerPlotPosition。

Name：绘图区名称。

Axis：坐标轴集合

Title：坐标轴标题

TitleAlignment：坐标轴标题对齐方式

Interval：轴刻度间隔大小

IntervalOffset：轴刻度偏移量大小

MinorGrid：次要辅助线

MinorTickMark：次要刻度线

MajorGrid：主要辅助线

MajorTickMark：主要刻度线

DataSourceID：MSChart的数据源。

Legends：图例说明。

Palette：图表外观定义。

三、Series：最重要的属性，图表集合，就是最终看到的饼图、柱状图、线图、点图等构成的集合；可以将多种相互兼容的类型放在一个绘图区域内，形成复合图。

IsValueShownAsLabel：是否显示数据点标签，如果为true，在图表中显示每一个数据值

Label：数据点标签文本

LabelFormat：数据点标签文本格式

LabelAngle：标签字体角度

Name：图表名称

Points：数据点集合

XValueType：横坐标轴类型

YValueType：纵坐标轴类型

XValueMember：横坐标绑定的数据源（如果数据源为Table，则填写横坐标要显示的字段名称）

YValueMembers：纵坐标绑定的数据源（如果数据源为Table，则填写纵坐标要显示的字段名称，纵坐标可以有两个）

ChartArea：图表所属的绘图区域名称

ChartType：图表类型（柱形、饼形、线形、点形等）

Legend：图表使用的图例名称

Titles：标题集合。

width：MSChart的宽度。

height：MSChart的高度。

四、例子

Public Class Form1Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadDim dt As DataTabledt = CreateDataTable()SetMSChartStyle()ConvertChart(dt)'databindChart1.DataBind()End SubPrivate Function CreateDataTable() As DataTableDim dt As New DataTable'Add three columns to the DataTabledt.Columns.Add("Date") 'Xdt.Columns.Add("Series1") 'data1dt.Columns.Add("Series2") 'data2dt.Columns.Add("Series3") 'data1dt.Columns.Add("Series4") 'data2dt.Columns.Add("Series5") 'data1dt.Columns.Add("Series6") 'data2Dim dr As DataRow'Add rows to the table which contains some random data for demonstrationDim rnd As New RandomDim i As DoubleFor i = 10 To 24 Step 0.2dr = dt.NewRow()dr("Date") = idr("Series1") = 3731 + rnd.Next(0, 1000)dr("Series2") = 4101 + rnd.Next(0, 1000)dr("Series3") = 3600 + rnd.Next(0, 1000)dr("Series4") = 4765 + rnd.Next(0, 1000)dr("Series5") = 3742 + rnd.Next(0, 1000)dr("Series6") = 4321 + rnd.Next(0, 1000)dt.Rows.Add(dr)NextCreateDataTable = dtEnd FunctionPrivate Sub ConvertChart(dt As DataTable)For Each dr As DataRow In dt.RowsDim s As Double = dr("Date")Chart1.Series("Series1").Points.AddXY(s, dr("Series1"))Chart1.Series("Series2").Points.AddXY(s, dr("Series2"))Chart1.Series("Series3").Points.AddXY(s, dr("Series3"))Chart1.Series("Series4").Points.AddXY(s, dr("Series4"))Chart1.Series("Series5").Points.AddXY(s, dr("Series5"))Chart1.Series("Series6").Points.AddXY(s, dr("Series6"))NextEnd Sub'/ <summary>'/ 设置mschart样式'/ </summary>Private Sub SetMSChartStyle()' 坐标轴设置Chart1.ChartAreas(0).AxisY.IsMarginVisible = FalseChart1.ChartAreas(0).AxisY.LabelStyle.Enabled = FalseChart1.ChartAreas(0).AxisX.IsMarginVisible = FalseChart1.ChartAreas(0).AxisX.LabelStyle.Enabled = False'设置当前X轴Label自动设置格式 = 关闭Chart1.ChartAreas(0).AxisX.LabelAutoFitStyle = DataVisualization.Charting.LabelAutoFitStyles.None''设置当前X轴Label的双行显示格式= 关闭，这个会影响到Y轴线条的显示Chart1.ChartAreas(0).AxisX.LabelStyle.IsStaggered = False''.设置当前X轴Label的显示间隔周期=1 （1个项目） （=2的意思： 间隔2个项目显示...以此类推）'Chart1.ChartAreas(0).AxisX.LabelStyle.Interval = 1'X 轴坐标最大最小值Chart1.ChartAreas(0).AxisX.Minimum = 0Chart1.ChartAreas(0).AxisX.Maximum = 24'X 轴坐标最大最小值Chart1.ChartAreas(0).AxisY.Minimum = 0Chart1.ChartAreas(0).AxisY.Maximum = 5000' 坐标轴刻度线不延长出来设置Chart1.ChartAreas(0).AxisX.MajorTickMark.Enabled = FalseChart1.ChartAreas(0).AxisY.MajorTickMark.Enabled = False'X 次要辅助线设置Chart1.ChartAreas(0).AxisX.MinorGrid.Enabled = True'X 次要辅助线间距Chart1.ChartAreas(0).AxisX.MinorGrid.Interval = 0.5'X 次要辅助线颜色Chart1.ChartAreas(0).AxisX.MinorGrid.LineColor = Color.LightGrayChart1.ChartAreas(0).AxisX.MinorGrid.LineDashStyle = DataVisualization.Charting.ChartDashStyle.Dash'Y 次要辅助线设置Chart1.ChartAreas(0).AxisY.MinorGrid.Enabled = True'Y 次要辅助线间距Chart1.ChartAreas(0).AxisY.MinorGrid.Interval = 500'Y 次要辅助线颜色Chart1.ChartAreas(0).AxisY.MinorGrid.LineColor = Color.LightGrayChart1.ChartAreas(0).AxisY.MinorGrid.LineDashStyle = DataVisualization.Charting.ChartDashStyle.Dash'X 主要辅助线设置Chart1.ChartAreas(0).AxisX.MajorGrid.Enabled = True'X 主要辅助线间距Chart1.ChartAreas(0).AxisX.MajorGrid.Interval = 5'X 主要辅助线颜色Chart1.ChartAreas(0).AxisX.MajorGrid.LineColor = Color.BlackChart1.ChartAreas(0).AxisX.MajorGrid.LineDashStyle = DataVisualization.Charting.ChartDashStyle.Solid'Y 主要辅助线设置Chart1.ChartAreas(0).AxisY.MajorGrid.Enabled = True'Y 主要辅助线间距Chart1.ChartAreas(0).AxisY.MajorGrid.Interval = 1000'Chart1.ChartAreas(0).AxisY.MajorGrid.IntervalOffset = 1000'Y 主要辅助线颜色Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))Chart1.ChartAreas(0).AxisY.MajorGrid.LineDashStyle = DataVisualization.Charting.ChartDashStyle.Solid'坐标主要辅助线刻度间距Chart1.ChartAreas(0).AxisX.Interval = 1Chart1.ChartAreas(0).AxisY.Interval = 1000'边框样式设置Chart1.ChartAreas(0).BorderColor = Color.BlackChart1.ChartAreas(0).BorderDashStyle = DataVisualization.Charting.ChartDashStyle.SolidChart1.ChartAreas(0).BorderWidth = 1'图例文字'Chart1.Series["Series"].LegendText = "当前"'图例位置、字体设置；坐标轴位置设定'Chart1.Legends[0].Position = new ElementPosition(10, 10, 88, 7)'Chart1.Legends[0].Font = new Font("宋体", 9)'Chart1.ChartAreas[0].InnerPlotPosition = new ElementPosition(1, 1, 1, 1)End SubPrivate Sub CmbYMax_SelectedValueChanged(sender As Object, e As EventArgs) Handles CmbYMax.SelectedValueChangedChart1.ChartAreas(0).AxisY.Maximum = CmbYMax.TextEnd SubPrivate Sub CmbYMin_SelectedValueChanged(sender As Object, e As EventArgs) Handles CmbYMin.SelectedValueChangedChart1.ChartAreas(0).AxisY.Minimum = CmbYMin.TextEnd SubPrivate Sub CmbXMin_SelectedValueChanged(sender As Object, e As EventArgs) Handles CmbXMin.SelectedValueChangedChart1.ChartAreas(0).AxisX.Minimum = Convert.ToDouble(CmbXMin.Text)End SubPrivate Sub CmbXMax_SelectedValueChanged(sender As Object, e As EventArgs) Handles CmbXMax.SelectedValueChangedChart1.ChartAreas(0).AxisX.Maximum = Convert.ToDouble(CmbXMax.Text)End SubPrivate Sub CheckBox_1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_1.CheckedChanged, CheckBox_6.CheckedChanged, CheckBox_5.CheckedChanged, CheckBox_4.CheckedChanged, CheckBox_3.CheckedChanged, CheckBox_2.CheckedChangedIf (sender.Name.Split("_").length = 2) ThenDim seriesName As String = "Series" + sender.Name.Split("_")(1)If sender.Checked = True ThenChart1.Series(seriesName).Enabled = TrueElseChart1.Series(seriesName).Enabled = FalseEnd IfEnd IfEnd Sub
End Class

https://www.cnblogs.com/zhao123/p/4889514.html