重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
三个办法,你自己选择吧。
公司主营业务:网站设计、做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出万安免费做网站回馈大家。
1、用图形,自己画。不要以为这个是胡扯,实际上任何一个图形控件都是通过GUI这么画出来的。你自己写代码画没有想象中那么难。我曾经自己写了一个控件,实现任务管理器里面CPU占用率显示的那个效果,代码也不过百多行,比大多数人想的都要容易。
2、用 Microsoft Chart Controls。mschart绝大多数机器上都有,能提供基本的图形显示。操作比较简单,相应的功能也比较简单。但最常见的折线图、饼图、柱状图都是有的。
3、使用第三方控件。推荐 TeeChart,不过正版的要收费。你能在网上找到破解的老版本。功能强大,画面漂亮、图形种类繁多,有动态操作功能。什么坐标啊,顶点标签啊,图例啊等等全都有。
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
在 series 集合编辑器 里找到杂项 customproperties 里的 pointwidth 设置
引用microsoft chart control6.0(sp4)
添加mxchart空件
mxchart空件可以实现各种图形,什么饼,柱,三角,线,都可以。而且可以是立体的。