引用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 设置