如何使用VB畫折線圖

一個例子:

安吉網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)建站！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站等網(wǎng)站項目制作，到程序開發(fā)，運(yùn)營維護(hù)。創(chuàng)新互聯(lián)建站2013年至今到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)建站。

窗體上有一個按鈕 一個能顯示折線圖的控件（我不大知道應(yīng)該用哪個控件）

現(xiàn)有十二個數(shù) 設(shè)其為13-24

點(diǎn)擊按鈕時圖片顯示為一折線圖 折線圖為十二個點(diǎn)的連線 （1，13）（2，14）（3，15）（4，16）（5，17）.....(12，24)

請教如何編寫程序

回答：

控件用MsChart，在Microsoft Chart Control 6.0(OLEDB)。

Private Sub Form_Load()

Dim CData(1 To 2, 1 To 24) As Variant

mctChart.chartType = VtChChartType2dLine

For i=1 To 12

CData(1,i)=i '1代表第一個數(shù)據(jù)

Next i

For i=13 To 24 '2代表第二個數(shù)據(jù)

CData(2,i)=i

Next i

mctChart.ChartData = CData

End Sub

參考資料：

vb.net怎么在excle里面生成折線圖

你可以通過用VB.net控制excel,讓excel生成曲線圖,然后利用excelVBA將圖輸出,最后導(dǎo)入到VB.net就可以了。

如何用vb畫折線圖?

采用繪制直線的方法：

你給出了9個點(diǎn)坐標(biāo)；

(2,0.8)、(3,0.6)、(4,0.5)、(5,0.4)、..........

把這些相鄰的點(diǎn)之間用直線連接起來，就是折線了。

VB6可以在窗體上或者PictureBox里繪制圖形，語句為：

對象.Line (x1,y1)-(x2,y2)

其中：(x1,y1)和(x2,y2)分別是兩個點(diǎn)的坐標(biāo)。

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

當(dāng)前題目：vb.net怎樣畫折線,winform畫折線圖
URL標(biāo)題：http://jinyejixie.com/article36/hsiipg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、用戶體驗(yàn)、靜態(tài)網(wǎng)站、企業(yè)網(wǎng)站制作、服務(wù)器托管、網(wǎng)站設(shè)計

廣告

聲明：本網(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)