Chart 控件 for vs2008的安装

来源：互联网发布：手机期货模拟软件编辑：程序博客网时间：2024/06/02 11:22

1.下载4个文件：
（1）dotnetfx35setup.exe
（2）MSChart_VisualStudioAddOn.exe
（3）MSChartLP_chs.exe
（4）MSChart.exe
2.分别安装
（1）dotnetfx35setup.exe
（2）MSChart_VisualStudioAddOn.exe
（3）MSChartLP_chs.exe
（4）MSChart.exe

安装成功后打开vs ，将会看到工具箱新增了chart控件。

之前微软一直没有相关的图表控件，都是使用第三方的控件来实现或者使用Office OWC控件来实现，使用OWC的性能是比较差的一般不建议使用。

看了一下微软的Demo程序确实功能非常的强大，界面也非常的漂亮，推荐大家去使用一下。

个人感觉优势还是很明显的。我用到开源的控件ZedGraph.dll，有一些功能限制。如XY轴文字在图表缩小的时候也会变得很小，但MSchart就可以设置最小的字号，这样就保证不会随着图变小而看不到标量值，如下图所示的操作：

还有一个就是如何显示具体柱子的数值，是否显示，显示的位置等等都可以做到，还可以用其它的方式来处理。查看下图可知，这个图表控件分得非常的细。

控件支持winform与webform，但控件只支持.Net formwork 3.5 SP1版。

详细说明与介绍请查看 http://code.msdn.microsoft.com/mschart

Chart Control 使用经验总结

2009-03-28 13:44

| Click to Rate

近日开始学习和研究这个新奇的控件。

一．什么是图表

上面这张表中所示的就是一张图表的所有组成。
从中我们可以看出，图表的五大元素为：附注（Annotations）、图表区（ChartAreas）、图例（Legends）、列（Series）、标题(Titles)。

二．如何把 Chart控件添加到VS2008工具箱

这三个文件可以从微软网站下载到或是在我的附件中下载。安装的顺序图中排列顺序，其中 MSChart.exe就是图表控件的安装程序； MSChartLP_chs.exe是语言包；MsChart_VisualStudioAddon.exe是扩展安装。
都安装完成后，打开 VS2008，在工具箱中任意处右击-"选择项..."，将下图中所示的两项打上勾，即可在工具箱中的Data栏中看到 Chart控件。

我们可以把它移动到"数据"栏中，如下图所示：

三．创建一个最简单的图表

在设计视图中从工具箱中拖拽 Chart控件至页面，如下图所示：

如果在这个时候预览网页的话，是什么也看不见的，是一张图表，因为它没有数据，所以我们要给它赋值并设置相关属性。下同是整个Chart控件的页面代码，如何给它赋值大家可以研究一下这段代码。

<asp:Chart ID="Chart2" runat="server">
    <Annotations>
        <asp:LineAnnotation Name="LineAnnotation1">
        </asp:LineAnnotation>
    </Annotations>
    <Series>
        <asp:Series Name="Series1">
            <points>
                <asp:DataPoint YValues="40" />
                <asp:DataPoint YValues="34" />
                <asp:DataPoint YValues="67" />
                <asp:DataPoint YValues="31" />
                <asp:DataPoint YValues="27" />
                <asp:DataPoint YValues="87" />
                <asp:DataPoint YValues="45" />
                <asp:DataPoint YValues="32" />
            </points>
        </asp:Series>
    </Series>
    <ChartAreas>
        <asp:ChartArea Name="ChartArea1">
        </asp:ChartArea>
    </ChartAreas>
</asp:Chart>

上面这段代码是直接在aspx文件中书写，下面要介绍的是在.vb文件中添加数据：

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' 创建列
        Dim series As New Series("曲线")
        series.ChartType = SeriesChartType.Spline
        series.BorderWidth = 3
        series.ShadowOffset = 2
        ' 给列赋值
        series.Points.AddY(67)
        series.Points.AddY(30)
        series.Points.AddY(83)
        series.Points.AddY(23)
        series.Points.AddY(70)
        series.Points.AddY(60)
        series.Points.AddY(90)
        series.Points.AddY(20)
        ' 将上述创建并赋过值的列添加到图表控件的Series集合中
        Chart1.Series.Add(series)
    End Sub 'Page_Load

四．图表类型（ChartStyle）

Chart控件提供了丰富的图表类型，如柱状、条状、由线、饼图、雷达图等等，并可以随时在2D和3D之间切换。下面所示的是部分图表类型的截图：

(3D柱形图) (2D条形图)

(2D线图) (3D饼图)

图表类型的设置是是在Series集合中的，在代码中的写法如下：
Chart1.Series("Series名").ChartType=......
有了这么多的选择，就为我们不同的需求提供了大大的方便。

五．Chart 控件显示数据库中的数据

在讲绑定之前，先给大家看一张表，这张表介绍了在什么样的情况下用什么样的绑定方法，十分有用。

下面就来分别介绍这张表中介绍到的种种绑定方法。
在写示例之前我要说明一下我用到的两张表。

MyTest表：

SALESCOUNTS表：

1.使用DataBindTable方法

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '绑定一个简单的数据源.X轴表示文字型，Y轴表示数字型
        Using conect As New SqlConnection(ConfigurationManager.ConnectionStrings("NTTrafficConnectionString").ConnectionString)
            Dim Command As SqlCommand = New SqlCommand("SELECT [name],[score] FROM [MyTest]", conect)
            conect.Open()
            Dim reader As SqlDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
            Chart1.DataBindTable(reader, "name")
            reader.Close()
            conect.Close()
        End Using
    End Sub

结果：

2.使用DataBind方法

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '用databind方法
        Using conect As New SqlConnection(ConfigurationManager.ConnectionStrings("NTTrafficConnectionString").ConnectionString)
            Dim MyCommand As SqlCommand = New SqlCommand("SELECT [name],[score] FROM [MyTest]", conect)
            Chart1.DataSource = MyCommand
            Chart1.Series("Series1").XValueMember = "name"
            Chart1.Series("Series1").YValueMembers = "score"
            Chart1.Series("Series1").ChartType = SeriesChartType.Line
            Chart1.Series("Series1").IsValueShownAsLabel = True
            Chart1.DataBind()
        End Using
    End Sub

效果：

3.使用Points.DataBindX(Y)方法

End Sub

效果：

使用Points.DataBindXY方法

效果：

4.使用Points.DataBind方法

效果：

5. 使用DataBindCrossTable方法

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Using conect As New SqlConnection(ConfigurationManager.ConnectionStrings("NTTrafficConnectionString").ConnectionString)
            Dim Command As SqlCommand = New SqlCommand("SELECT * FROM [MyTest]", conect)
            conect.Open()
            Dim reader As SqlDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
            Chart1.DataBindCrossTable(reader, "isclass", "name", "score", "label=score")
            'DataBindCrossTable(DataSource,SeriesGroup,xField,yFields,otherFields)
            '下面一段为模仿原文写，不明白为何要用 marker
            Dim marker As MarkerStyle = MarkerStyle.Star4
            For Each Ser As Series In Chart1.Series
                Ser.ChartType = SeriesChartType.Line
                Ser.ShadowOffset = 2
                Ser.BorderWidth = 3
                Ser.MarkerSize = 12
                Ser.MarkerStyle = marker
                Ser.MarkerBorderColor = Drawing.Color.Pink
                marker += 1
            Next
            reader.Close()
            conect.Close()
        End Using
    End Sub

效果：

6. DataBindSeriesByRows

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Using conect As New SqlConnection(ConfigurationManager.ConnectionStrings("NTTrafficConnectionString").ConnectionString)
            Dim Command As SqlCommand = New SqlCommand("SELECT * FROM [SALESCOUNTS]", conect)
            conect.Open()
            Dim myDataAdapter As New SqlDataAdapter()
            myDataAdapter.SelectCommand = Command
            Dim myDateSet As New DataSet()
            myDataAdapter.Fill(myDateSet, "Query")
            Dim row As DataRow
            For Each row In myDateSet.Tables("Query").Rows
                Dim seriesName As String = row("SalesRep").ToString() '显示在右上角的legend为此处的吧？
                Chart1.Series.Add(seriesName)
                Chart1.Series(seriesName).ChartType = SeriesChartType.Line
                Chart1.Series(seriesName).BorderWidth = 2
                Chart1.Series(seriesName).IsValueShownAsLabel = True
                Dim colIndex As Integer
                For colIndex = 1 To (myDateSet.Tables("Query").Columns.Count) - 1
                    Dim columnName As String = myDateSet.Tables("Query").Columns(colIndex).ColumnName '获得列名
                    Dim YVal As Integer = CInt(row(columnName)) '获得列数据
                    Chart1.Series(seriesName).Points.AddXY(columnName, YVal)
                Next colIndex
            Next row
            Command.Connection.Close()
            conect.Close()
        End Using
    End Sub

效果：

7. DataBindThenAlignAxisLabel

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim yval1 As Double() = {2, 6, 5}
        Dim xval1 As String() = {"Peter", "Andrew", "Julie"}
        Dim yval2 As Double() = {4, 5, 3}
        Dim xval2 As String() = {"Peter", "Andrew", "Dave"}
        Dim yval3 As Double() = {6, 5}
        Dim xval3 As String() = {"Julie", "Mary"}
        Chart1.Series("Series1").Points.DataBindXY(xval1, yval1)
        Chart1.Series("Series2").Points.DataBindXY(xval2, yval2)
        Chart1.Series("Series3").Points.DataBindXY(xval3, yval3)
        For Each ser As Series In Chart1.Series
            ser.Label = "#AXISLABEL"
        Next
        ' Align series using their X axis labels
        If AlignSeries.Checked Then
            Chart1.AlignDataPointsByAxisLabel()
        End If
    End Sub

效果：

0 0