vb.net图表 excel vba 图表

VB.NET 有木有什么漂亮的第三方图表控件大

.NET 的第三方控件首推Devexpress

目前成都创新互联已为上千多家的企业提供了网站建设、域名、雅安服务器托管、网站托管维护、企业网站设计、鹰手营子网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

不过这个控件学起来有些难度，官方文档全是英文的；而且国内资料较少

我们可以将图表与数据绑定来实现大部分你所需的功能（请参考这个教程：）。其他的一些自定义操作可以通过修改chart控件的属性，参考此图标元素：。

首先你要在工程里面添加至少一个imagelist1控件，把里面放上合适的图标。然后在listview的largeimagelist（对应大图表显示模式）或者smalllimagelist（对应其他显示模式）属性里面指定imagelist1控件。

最后在你的代码添加上文件类型判断代码，根据不同的文件选择不同的图标，最后添加到集合当中去。

在窗体上添加一个Chart1控件和一个Button1控件：

完整代码如下：（复制就可以用）

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Chart1.Series.RemoveAt(0) '清除原来的系列

Dim i As Integer

Dim j As Integer

For i = 0 To 11 '设置有12个系列

Chart1.Series.Add("系列" i + 1)

''添加数据点的个数

For j = 0 To 3 '设置有4个数据点

Chart1.Series(i).Points.Add()

'用生成的随机数（范围[2.0，9.9]），作为数据

Randomize()

For i = 0 To 11

For j = 0 To 3

Chart1.Series(i).Points(j).YValues = {Int((99 - 20 + 1) * Rnd() + 20) / 10} '将随机数据赋值给图表点的Y值

Chart1.Series(i).ChartType = DataVisualization.Charting.SeriesChartType.Column '设置图表类型

End Sub

End Class

网页标题：vb.net图表 excel vba 图表
本文URL：http://myzitong.com/article/doihcoo.html