引用microsoft chart control6.0(sp4)
海州ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書未來市場(chǎng)廣闊!成為成都創(chuàng)新互聯(lián)公司的ssl證書銷售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:13518219792(備注:SSL證書合作)期待與您的合作!
添加mxchart空件
mxchart空件可以實(shí)現(xiàn)各種圖形,什么餅,柱,三角,線,都可以。而且可以是立體的。
chart控件和timer控件,用timer控件觸發(fā)chart控件中系列數(shù)據(jù)的更新。
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軸標(biāo)簽
?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
三個(gè)辦法,你自己選擇吧。
1、用圖形,自己畫。不要以為這個(gè)是胡扯,實(shí)際上任何一個(gè)圖形控件都是通過GUI這么畫出來的。你自己寫代碼畫沒有想象中那么難。我曾經(jīng)自己寫了一個(gè)控件,實(shí)現(xiàn)任務(wù)管理器里面CPU占用率顯示的那個(gè)效果,代碼也不過百多行,比大多數(shù)人想的都要容易。
2、用 Microsoft Chart Controls。mschart絕大多數(shù)機(jī)器上都有,能提供基本的圖形顯示。操作比較簡(jiǎn)單,相應(yīng)的功能也比較簡(jiǎn)單。但最常見的折線圖、餅圖、柱狀圖都是有的。
3、使用第三方控件。推薦 TeeChart,不過正版的要收費(fèi)。你能在網(wǎng)上找到破解的老版本。功能強(qiáng)大,畫面漂亮、圖形種類繁多,有動(dòng)態(tài)操作功能。什么坐標(biāo)啊,頂點(diǎn)標(biāo)簽啊,圖例啊等等全都有。
在 series 集合編輯器 里找到雜項(xiàng) customproperties 里的 pointwidth 設(shè)置