加一個Picture控件,AutoRedraw = true,BackColor=白,ScaleMode= 3-pixel
成都創(chuàng)新互聯(lián)公司于2013年成立,公司以網(wǎng)站制作、網(wǎng)站建設(shè)、系統(tǒng)開發(fā)、網(wǎng)絡(luò)推廣、文化傳媒、企業(yè)宣傳、平面廣告設(shè)計等為主要業(yè)務(wù),適用行業(yè)近百種。服務(wù)企業(yè)客戶超過千家,涉及國內(nèi)多個省份客戶。擁有多年網(wǎng)站建設(shè)開發(fā)經(jīng)驗。為企業(yè)提供專業(yè)的網(wǎng)站建設(shè)、創(chuàng)意設(shè)計、宣傳推廣等服務(wù)。 通過專業(yè)的設(shè)計、獨特的風(fēng)格,為不同客戶提供各種風(fēng)格的特色服務(wù)。
然后把數(shù)據(jù)放到數(shù)組里面,我的程序里面數(shù)組叫 datainput
代碼給你, 你自己去微調(diào)吧
Private Type Bar
BarName As String
BarData(1 To 3) As Integer
End Type
Dim dataInput(10) As Bar
Dim dataInputCount As Integer
Const XXX = 10
Const YYY = 100
Private Sub Command4_Click()
dataInputCount = 3
dataInput(1).BarName = "2001"
dataInput(1).BarData(1) = "10"
dataInput(1).BarData(2) = "20"
dataInput(1).BarData(3) = "30"
dataInput(2).BarName = "2002"
dataInput(2).BarData(1) = "15"
dataInput(2).BarData(2) = "25"
dataInput(2).BarData(3) = "35"
dataInput(3).BarName = "2003"
dataInput(3).BarData(1) = "18"
dataInput(3).BarData(2) = "28"
dataInput(3).BarData(3) = "38"
Dim i As Integer
Dim j As Integer
For i = 1 To dataInputCount
For j = 1 To 3
Select Case j
Case 1: Picture1.ForeColor = vbRed
Case 2: Picture1.ForeColor = vbGreen
Case 3: Picture1.ForeColor = vbBlue
End Select
Picture1.Line (XXX + i * 50 + j * 10, YYY)-(XXX + i * 50 + j * 10 + 5, YYY - dataInput(i).BarData(j)), , BF
Next j
Next i
End Sub
可以生成圖表,圖表中的數(shù)據(jù)源用下面的代碼在A7:G13位置sheet2的表A1:B5
在指定的位置圖(子)
設(shè)置AB =范圍(“A7: G13)'生成圖表位置
設(shè)為BBB = ActiveSheet.ChartObjects.Add(0,0,0,0)
bbb.Chart.ChartType = xlColumnClustered的柱形圖
bbb.Chart。數(shù)據(jù)源SetSourceData來源:=表(“Sheet2的”)范圍(“A1:B5”)'
BBB
= ab.Top
左= ab.Left,
。的寬度= ab.Width
高度= ab.Height
尾與
尾子
你的操作是想點擊一個按鈕,打開IE瀏覽器,然后IE瀏覽器的內(nèi)容是你之前編輯過的數(shù)據(jù)以圖表的形式存在,是嗎
如果是這樣,可以這樣做,在你的程序目錄建立一個Excel文件,用VB打開這個Excel文件,然后向里面寫入數(shù)據(jù),數(shù)據(jù)寫好后,用VB控制這個Excel文件生成柱狀圖并保存成網(wǎng)頁的格式的文件,比如data.html
然后點擊那個按鈕,用IE瀏覽器來打開這個data.html,這樣就得到你想要的效果了,其實VB和Excel里的VBA配合起來,還是很簡單的,有不明白的Hi我
在 series 集合編輯器 里找到雜項 customproperties 里的 pointwidth 設(shè)置
引用microsoft chart control6.0(sp4)
添加mxchart空件
mxchart空件可以實現(xiàn)各種圖形,什么餅,柱,三角,線,都可以。而且可以是立體的。
chart控件和timer控件,用timer控件觸發(fā)chart控件中系列數(shù)據(jù)的更新。
分享標(biāo)題:vb.net做柱狀圖,winform 柱狀圖
文章源于:http://muchs.cn/article28/hssdcp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制開發(fā)、云服務(wù)器、App設(shè)計、用戶體驗、品牌網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)