用VB6.0做一個柱狀圖，求編程！

'新建一個標(biāo)準(zhǔn)exe工程，畫一個command1，一個label，其index屬性設(shè)為0然后將代碼粘貼

成都創(chuàng)新互聯(lián)公司專注于五峰網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供五峰營銷型網(wǎng)站建設(shè)，五峰網(wǎng)站制作、五峰網(wǎng)頁設(shè)計(jì)、五峰網(wǎng)站官網(wǎng)定制、微信小程序定制開發(fā)服務(wù)，打造五峰網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供五峰網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

Private Sub Command1_Click()

Static Ts As Integer

Ts = Ts + 1

x = InputBox("請輸入柱狀圖高度(1-19)：")

If Val(x) 20 Or Val(x) = 0 Then

Ts = Ts - 1

MsgBox "請輸入0-19范圍的數(shù)"

Exit Sub

End If

Set newobj = Me.Controls.Add("vb.shape", "shape" Ts)

With newobj

.Shape = 0

.FillStyle = 5

.Left = 1 + 2 * Ts

.Top = 42 - x * 2

.Height = x * 2

.Width = 1

End With

newobj.Visible = True

End Sub

Private Sub Form_Load()

Me.Height = 9000

Me.Width = 19000

Me.AutoRedraw = True

Show

Me.ScaleHeight = 44 '將窗體的高設(shè)定為44份

Me.ScaleWidth = 50 '將窗體的寬設(shè)定為50份

'Me.Line.BorderColor = H0

Me.Line (2, 2)-(2, 42), H0 '畫出縱坐標(biāo)

Me.Line (2, 42)-(48, 42), H0 '畫出橫坐標(biāo)

Me.Line (48, 42)-(47.5, 41.5), H0 '畫出橫坐標(biāo)上的箭頭

Me.Line (48, 42)-(47.5, 42.5), H0

Me.Line (2, 2)-(1.75, 3), H0 '畫出縱坐標(biāo)上的箭頭

Me.Line (2, 2)-(2.25, 3), H0

Label1(0).Width = 20 '寫出坐標(biāo)原點(diǎn)

Label1(0).Height = 20

Label1(0).AutoSize = ture

Label1(0).BackStyle = 0

Label1(0).FontItalic = True

Label1(0).FontBold = True

Label1(0).FontSize = 10

Label1(0).ForeColor = HFF

Label1(0).Caption = 0

Label1(0).Left = 1.5

Label1(0).Top = 42.5

Label1(0).Visible = True

For i = 1 To 45

Load Label1(i) '用數(shù)組的方法動態(tài)添加控件（橫坐標(biāo)示數(shù)）

Label1(i).Width = 40

Label1(i).Height = 20

Label1(i).AutoSize = ture

Label1(i).BackStyle = 0

Label1(i).FontItalic = True

Label1(i).FontBold = True

Label1(i).FontSize = 10

Label1(i).ForeColor = HFF

Label1(i).Caption = i

Label1(i).Left = 1.5 + i

Label1(i).Top = 42.5

Label1(i).Visible = True

'動態(tài)添加控件(橫坐標(biāo)上的間隔線）

Set newobj = Me.Controls.Add("vb.line", "Line" i)

With newobj

.BorderStyle = 3

.X1 = i + 2

.X2 = i + 2

.Y1 = 41.8

.Y2 = 42.2

End With

newobj.Visible = True

Next i

For i = 46 To 70

Load Label1(i)

Label1(i).Width = 40

Label1(i).Height = 20

Label1(i).AutoSize = ture

Label1(i).BackStyle = 0

Label1(i).FontItalic = True

Label1(i).FontBold = True

Label1(i).FontSize = 10

Label1(i).ForeColor = HFF

Label1(i).Caption = i - 45

Label1(i).Left = 1

Label1(i).Top = (66 - i) * 2

If Val(Label1(i).Caption) 20 Then Label1(i).Visible = True

Set newobj = Me.Controls.Add("vb.line", "Line" i)

With newobj

.X1 = 1.9

.X2 = 2.1

.Y1 = 2 * (i - 44)

.Y2 = 2 * (i - 44)

'.BorderStyle = 3

End With

newobj.Visible = True

Next i

End Sub

將vb.net中怎樣生成柱形圖

引用microsoft chart control6.0(sp4)

添加mxchart空件

mxchart空件可以實(shí)現(xiàn)各種圖形，什么餅，柱，三角，線，都可以。而且可以是立體的。

VB向網(wǎng)頁中傳輸數(shù)據(jù)，并在網(wǎng)頁中生成柱狀圖

你的操作是想點(diǎn)擊一個按鈕，打開IE瀏覽器，然后IE瀏覽器的內(nèi)容是你之前編輯過的數(shù)據(jù)以圖表的形式存在，是嗎

如果是這樣，可以這樣做，在你的程序目錄建立一個Excel文件，用VB打開這個Excel文件，然后向里面寫入數(shù)據(jù)，數(shù)據(jù)寫好后，用VB控制這個Excel文件生成柱狀圖并保存成網(wǎng)頁的格式的文件，比如data.html

然后點(diǎn)擊那個按鈕，用IE瀏覽器來打開這個data.html，這樣就得到你想要的效果了，其實(shí)VB和Excel里的VBA配合起來，還是很簡單的，有不明白的Hi我

想在vb中作個柱狀統(tǒng)計(jì)的圖用什么方法詳細(xì)點(diǎn)這個我不怎么會

三個辦法，你自己選擇吧。

1、用圖形，自己畫。不要以為這個是胡扯，實(shí)際上任何一個圖形控件都是通過GUI這么畫出來的。你自己寫代碼畫沒有想象中那么難。我曾經(jīng)自己寫了一個控件，實(shí)現(xiàn)任務(wù)管理器里面CPU占用率顯示的那個效果，代碼也不過百多行，比大多數(shù)人想的都要容易。

2、用 Microsoft Chart Controls。mschart絕大多數(shù)機(jī)器上都有，能提供基本的圖形顯示。操作比較簡單，相應(yīng)的功能也比較簡單。但最常見的折線圖、餅圖、柱狀圖都是有的。

3、使用第三方控件。推薦 TeeChart，不過正版的要收費(fèi)。你能在網(wǎng)上找到破解的老版本。功能強(qiáng)大，畫面漂亮、圖形種類繁多，有動態(tài)操作功能。什么坐標(biāo)啊，頂點(diǎn)標(biāo)簽啊，圖例啊等等全都有。

vb.net中使用Chart控件如何更改柱子寬度？

在 series 集合編輯器 里找到雜項(xiàng) customproperties 里的 pointwidth 設(shè)置

在VB中使用VBA生成柱形圖表怎么實(shí)現(xiàn)？

可以生成圖表，圖表中的數(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

尾與

尾子

本文標(biāo)題：vb.net如何做柱狀圖 C#畫柱狀圖
文章起源：http://www.rwnh.cn/article4/higdoe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、域名注冊、、企業(yè)網(wǎng)站制作、網(wǎng)站維護(hù)、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)