如何用VB.NET調(diào)用excel的畫圖命令，即用.NET得到一組點(diǎn)坐標(biāo)后，調(diào)用excel根據(jù)點(diǎn)畫出曲線圖并顯示在VB.NET里

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

十余年的左權(quán)網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。營銷型網(wǎng)站的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整左權(quán)建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)從事“左權(quán)網(wǎng)站設(shè)計(jì)”,“左權(quán)網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

用VB編寫畫圖程序

提供一個(gè)繪制任意曲線的簡(jiǎn)單代碼。其他功能類似，希望能舉一反三。

在窗體中添加一個(gè)Picture?box，然后輸入命令如下：

Dim?oldx?As?Single

Dim?oldy?As?Single

Private?Sub?Picture1_MouseMove(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)

If?Button?=?1?Then???????'當(dāng)鼠標(biāo)左建按下時(shí)發(fā)生

Picture1.Line?(oldx,?oldy)-(X,?Y)

oldx?=?X

oldy?=?Y

End?If

End?Sub

Private?Sub?Picture1_Mousedown(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)

oldx?=?X

oldy?=?Y

End?Sub

VB.net中如何畫圖？

分類: 電腦/網(wǎng)絡(luò) 程序設(shè)計(jì) 其他編程語言

問題描述:

VB6中的form1.circle (100,200),rgb(0,255,0)的語句如何在VB中使用??？

急用?。。。。。。。?！

解析:

VB與VB不同。

VB已經(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