MSChart1.Plot.SeriesCollection.Item(1).Pen.VtColor.Set 0, 255, 0 '設置曲線顏色
創(chuàng)新互聯(lián)建站始終堅持【策劃先行,效果至上】的經(jīng)營理念,通過多達十多年累計超上千家客戶的網(wǎng)站建設總結了一套系統(tǒng)有效的營銷解決方案,現(xiàn)已廣泛運用于各行各業(yè)的客戶,其中包括:格柵板等企業(yè),備受客戶贊賞。
MSChart1.Plot.SeriesCollection.Item(2).Pen.VtColor.Set 0, 80, 0 '設置曲線顏色
MSChart1.Plot.SeriesCollection.Item(3).Pen.VtColor.Set 0, 0, 255
MSChart1.Plot.SeriesCollection.Item(4).Pen.VtColor.Set 0, 0, 255
1、菜單中的工程-部件-添加"Microsoft ADO Data Control 6.0 (OLEDB)"和"Microsoft Chart Control 6.0 (OLEDB)"
2、在窗體中添加ADODC和MSChart并設置ADODC的數(shù)據(jù)源連接(查詢或表)和MSChart的圖表類型(直方圖、餅圖等)和DataSource屬性為Adodc1
3、剩下的用語句對應好就差不多了。
補充:Visual Basic是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅動編程語言。從任何標準來說,VB都是世界上使用人數(shù)最多的語言——不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語言。VB擁有圖形用戶界面(GUI)和快速應用程序開發(fā)(RAD)系統(tǒng),可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫,或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。
VB.net與VB不同。
VB.net已經(jīng)有專門繪圖的類。
可以定義筆刷然后用Drawing類中的方法繪制。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
你應該填充這個矩形,比如說在你畫的矩形上填充藍色,要加上下面的語句
Dim myBrush As New SolidBrush(Color.Blue)
e.Graphics.FillRectangle(myBrush, 10,10, 100,100)
這不叫直方圖,這是散點圖,可以用picturebox的畫線line()或畫點pset()來實現(xiàn)。
分享文章:vb.net直方圖教程,直方圖c語言
文章起源:http://jinyejixie.com/article8/hsihop.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供移動網(wǎng)站建設、小程序開發(fā)、全網(wǎng)營銷推廣、用戶體驗、建站公司、自適應網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)