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

'新建一個標準exe工程，畫一個command1，一個label，其index屬性設為0然后將代碼粘貼

成都創新互聯公司專注于五峰網站建設服務及定制，我們擁有豐富的企業做網站經驗。 熱誠為您提供五峰營銷型網站建設，五峰網站制作、五峰網頁設計、五峰網站官網定制、微信小程序定制開發服務，打造五峰網絡公司原創品牌,更為您提供五峰網站排名全網營銷落地服務。

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范圍的數"

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 '將窗體的高設定為44份

Me.ScaleWidth = 50 '將窗體的寬設定為50份

'Me.Line.BorderColor = H0

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

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

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

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

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

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

Label1(0).Width = 20 '寫出坐標原點

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) '用數組的方法動態添加控件（橫坐標示數）

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

'動態添加控件(橫坐標上的間隔線）

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空件可以實現各種圖形，什么餅，柱，三角，線，都可以。而且可以是立體的。

VB向網頁中傳輸數據，并在網頁中生成柱狀圖

你的操作是想點擊一個按鈕，打開IE瀏覽器，然后IE瀏覽器的內容是你之前編輯過的數據以圖表的形式存在，是嗎

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

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

想在vb中作個柱狀統計的圖用什么方法詳細點這個我不怎么會

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

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

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

3、使用第三方控件。推薦 TeeChart，不過正版的要收費。你能在網上找到破解的老版本。功能強大，畫面漂亮、圖形種類繁多，有動態操作功能。什么坐標啊，頂點標簽啊，圖例啊等等全都有。

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

在 series 集合編輯器 里找到雜項 customproperties 里的 pointwidth 設置

在VB中使用VBA生成柱形圖表怎么實現？

可以生成圖表，圖表中的數據源用下面的代碼在A7：G13位置sheet2的表A1：B5

在指定的位置圖（子）

設置AB =范圍（“A7： G13）'生成圖表位置

設為BBB = ActiveSheet.ChartObjects.Add（0，0，0，0）

bbb.Chart.ChartType = xlColumnClustered的柱形圖

bbb.Chart。數據源SetSourceData來源：=表（“Sheet2的”）范圍（“A1：B5”）'

BBB

= ab.Top

左= ab.Left，

。的寬度= ab.Width

高度= ab.Height

尾與

尾子

本文標題：vb.net如何做柱狀圖 C#畫柱狀圖
文章起源：http://m.newbst.com/article4/higdoe.html

成都網站建設公司_創新互聯，為您提供服務器托管、域名注冊、、企業網站制作、網站維護、外貿建站

廣告

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