189 8069 5689
引用microsoft chart control6.0(sp4)
海州ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为成都创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：13518219792（备注：SSL证书合作）期待与您的合作！
添加mxchart空件
mxchart空件可以实现各种图形，什么饼，柱，三角，线，都可以。而且可以是立体的。
chart控件和timer控件，用timer控件触发chart控件中系列数据的更新。
MSChart1.Plot.SeriesCollection(1).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
Private Sub Command1_Click()
'显示图方法1
Dim Column As Integer
Dim Row As Integer
With MSChart1
.ColumnCount = 1
.RowCount = 10
For Column = 1 To .ColumnCount
For Row = 1 To .RowCount
.Column = Column
.Row = Row
.data = Round(Rnd * 100, 2)
.RowLabel = Row "月"
.ColumnLabel = CStr(.data)
Next Row
Next Column
.Plot.SeriesCollection(1).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
End With
End Sub
Private Sub Command2_Click()
' 显示图，方法2
Dim data(1 To 10, 1 To 3)
Dim i As Integer
For i = 1 To UBound(data)
data(i, 1) = i "月" 'X轴标签
data(i, 2) = i * 10 '第一系列
data(i, 3) = i * 20 '第二系列
Next i
MSChart1.ChartData = data
MSChart1.Plot.SeriesCollection(1).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
End Sub
三个办法，你自己选择吧。
1、用图形，自己画。不要以为这个是胡扯，实际上任何一个图形控件都是通过GUI这么画出来的。你自己写代码画没有想象中那么难。我曾经自己写了一个控件，实现任务管理器里面CPU占用率显示的那个效果，代码也不过百多行，比大多数人想的都要容易。
2、用 Microsoft Chart Controls。mschart绝大多数机器上都有，能提供基本的图形显示。操作比较简单，相应的功能也比较简单。但最常见的折线图、饼图、柱状图都是有的。
3、使用第三方控件。推荐 TeeChart，不过正版的要收费。你能在网上找到破解的老版本。功能强大，画面漂亮、图形种类繁多，有动态操作功能。什么坐标啊，顶点标签啊，图例啊等等全都有。
在 series 集合编辑器 里找到杂项 customproperties 里的 pointwidth 设置