vb繪制趨勢圖

方法一：Excel中就可以實(shí)現(xiàn)；

成都創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),晉城企業(yè)網(wǎng)站建設(shè),晉城品牌網(wǎng)站建設(shè),網(wǎng)站定制,晉城網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,晉城網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

方法二：通過VB.net將數(shù)據(jù)寫入到Excel中生成趨勢圖；

方法三:直接通過VB.net寫出這種趨勢圖。

具體方法可以參考VB.net操作Excel方法:

可用代碼：

For i = 0 To iRow - 1

pointXY(i) = "'這里你可以直接放上你的數(shù)據(jù)點(diǎn)值在X線上

"

pointYY(i) = "'這里你可以直接放上你的數(shù)據(jù)點(diǎn)值在Y線上

Next

Private Sub DrawRectangle()

Try

Dim oV2Bar As New Graphing.V3.Bar.BarChart()

Dim renderer As New Graphing.V3.Render

PictureBox1.Image = renderer.DrawChart(oV2Bar, Xline,Yline iRow, pointXY, pointYY)

End If

Catch ex As Exception

MsgBox(ex.Message)

Public Class BarChart : Inherits Base.BaseGraph

'This will hold the Bar pieces.

Public BarSliceCollection As New Bar.BarPieceCollection()

Private _Alignment As Base.b_BarTypes = Base.b_BarTypes.HorizontalLeft

Public Property Alignment() As Base.b_BarTypes

Get

Return _Alignment

End Get

Set(ByVal Value As Base.b_BarTypes)

_Alignment = Value

End Set

End Property

'Private _ChartType As Base.b_ChartType = Base.b_ChartType.Bar

Public Shadows ReadOnly Property ChartType() As Base.b_ChartType

Get

Return MyBase.ChartType

End Get

End Property

Sub New()

MyBase.new()

MyBase.ChartType = Base.b_ChartType.Bar

End Sub

Sub New(ByVal BarPieceCollection As BarPieceCollection)

MyBase.new()

MyBase.ChartType = Base.b_ChartType.Bar

BarSliceCollection = BarPieceCollection

End Sub

End Class

End Try

End Sub

vb.net繪制曲線圖

。net ?其實(shí)還是很好繪制圖形的

你可以看下?Graphics ?類

Dim d As New Bitmap(Me.Width, Me.Height) ?‘一個圖片吧

? Dim g As Graphics = Graphics.FromImage(d)’繪制 ?準(zhǔn)備在這個圖片是進(jìn)行

然后 ?就是你繪制的東西了

線 就是 ??g.DrawLine()

圓 弧度 ?就用 ?g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

復(fù)雜的就是 ? ? ?g.DrawBezier()

等 ?如果你用的是 VS的 ?編譯 ?上面都有詳細(xì)的參數(shù)說明

Dim?d?As?New?Bitmap(Me.Width,?Me.Height)

Dim?g?As?Graphics?=?Graphics.FromImage(d)

g.DrawArc(Pens.Black,?New?Rectangle(0,?0,?200,?200),?0,?360)

g.DrawLine(Pens.Red,?New?Point(0,?0),?New?Point(200,?200))

g.DrawLines(Pens.Green,?New?Point()?{New?Point(0,?0),?New?Point(50,?40),?New?Point(50,?80),?New?Point(90,?70),?New?Point(100,?400)})

g.DrawBezier(Pens.Yellow,?New?Point(0,?100),?New?Point(0,?0),?New?Point(200,?0），?New?Point(200,?200))

g.Dispose()

Me.BackgroundImage?=?d

vb.net 如何由已知數(shù)據(jù)生成chart圖表

這個說起來有點(diǎn)小復(fù)雜，建議你找專門的文章學(xué)習(xí)。

比如：

vb.net 畫二維數(shù)組的曲線圖

Private Sub PictureBox2_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox2.Paint

Dim points As New List(Of Point)

points.Add(New Point(0, 0))

points.Add(New Point(1, 10))

points.Add(New Point(3, 15))

points.Add(New Point(14, 0))

points.Add(New Point(20, 60))

points.Add(New Point(40, 20))

points.Add(New Point(70, 50))

e.Graphics.DrawCurve(Pens.Red, points.ToArray)

End Sub

供參考，points可設(shè)為全局變量，那樣add隨便在哪增加，想要看見看上去動態(tài)的圖，那就在新增完n個后，繼續(xù)增加n+1個之時，放棄points中的第一個。

VB繪制參數(shù)曲線走勢圖

vb.net:先計(jì)算好坐標(biāo)，再用GDI+里封裝的drawline方法畫出短線（模擬數(shù)據(jù)點(diǎn)），傳來一個數(shù)據(jù)就畫一條短線，最后看起來就像曲線了。

vb6:用pset()函數(shù)

vb.net 畫線再畫保留以前畫得

可以把所有畫的線都保存在一個列表中，畫的時候全部畫出即可。如下：

Public?Class?Form1

Class?Line? ? ? '直線類

? Public?Point1,?Point2?As?Point? ? ?'成員，直線的兩個端點(diǎn)

? Sub?New(p1?As?Point,?p2?As?Point)? ?'構(gòu)造方法

? ? ? Point1?=?p1

? ? ? Point2?=?p2

? End?Sub

? Public?Sub?Draw(g?As?Graphics)? ? ? '繪制方法

? ? ? g.DrawLine(Pens.Black,?Point1,?Point2)

? End?Sub

End?Class

Private?Lines?As?New?List(Of?Line)? ? ? '列表用于保存所有畫下的直線

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

? BackColor?=?Color.White

? DoubleBuffered?=?True? ? ? ?'開啟雙緩沖可有效避免閃爍

End?Sub

Private?Sub?Form1_MouseDown(sender?As?Object,?e?As?MouseEventArgs)?Handles?Me.MouseDown

? Lines.Add(New?Line(e.Location,?e.Location))? ? ?'在直線列表中添加直線

End?Sub

Private?Sub?Form1_MouseMove(sender?As?Object,?e?As?MouseEventArgs)?Handles?Me.MouseMove

? If?e.Button??Windows.Forms.MouseButtons.Left?Then?Return?'左鍵未按下

? '鼠標(biāo)拖動時改變列表最后一條直線（也即當(dāng)前直線的第二個端點(diǎn)）

? Lines(Lines.Count?-?1).Point2?=?e.Location

? Refresh()? ? ? ?'刷新窗體

End?Sub

'在Form的Paint事件中繪制所有直線，每次Form1重繪時都會觸發(fā)Paint事件

'PS:?也可以通過重寫OnPaint方法來達(dá)到類似的效果

Private?Sub?Form1_Paint(sender?As?Object,?e?As?PaintEventArgs)?Handles?Me.Paint

? e.Graphics.SmoothingMode?=?Drawing2D.SmoothingMode.AntiAlias? ? '開啟抗鋸齒

? For?Each?l?In?Lines? ? ?'遍歷所有直線

? ? ? l.Draw(e.Graphics)? '調(diào)用繪制方法，傳入的參數(shù)可以理解為畫布

? Next

End?Sub

End?Class

運(yùn)行效果：