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

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

創(chuàng)新互聯(lián)建站從2013年創(chuàng)立，是專(zhuān)業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元廉江做網(wǎng)站,已為上家服務(wù),為廉江各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:13518219792

VB.net中如何畫(huà)圖？

VB.net與VB不同。

VB.net已經(jīng)有專(zhuān)門(mén)繪圖的類(lèi)。

可以定義筆刷然后用Drawing類(lèi)中的方法繪制。

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

求VB.net程序源代碼 繪圖板、二十一點(diǎn)游戲、計(jì)算器、井字棋游戲、屏幕保護(hù)程序等

說(shuō)明：1.共有4個(gè)文本框其，其中三個(gè)是填入或輸出數(shù)據(jù)的（名稱(chēng)分別是：txta txtb txtc），剩下的那個(gè)是符號(hào)(txtd)2.共7個(gè)按鈕，4個(gè)是符號(hào)按鈕，一個(gè)計(jì)算，一個(gè)清零．這是我弄的程序”袖珍計(jì)算器”代碼也是自己編寫(xiě)的，代碼如下：通用聲明Dim j As Integer '定義j為整型

Private Sub Text1_Change()End SubPrivate Sub Command1_Click()

txtfuhao.Text = "+" '將”＋”顯示到文本框txtfuhao.Text中

End SubPrivate Sub Command2_Click()

txtfuhao.Text = "-" ''將”-”顯示到文本框txtfuhao.Text中

End SubPrivate Sub Command3_Click()

txtfuhao.Text = "×" '將”×”顯示到文本框txtfuhao.Text中

End SubPrivate Sub Command4_Click()

txtfuhao.Text = "÷" 將”÷”'顯示到文本框txtfuhao.Text中

End Sub

Private Sub Command5_Click()

Dim a, b, c As Integer

a = Val(txta.Text) '將txta.Text里的內(nèi)容轉(zhuǎn)化為數(shù)值型,然后再賦給a

b = Val(txtb.Text) '將txtb.Text里的內(nèi)容轉(zhuǎn)化為數(shù)值型,然后再賦給b

If txtfuhao.Text = "+" Then '運(yùn)算過(guò)程

c = a + b '運(yùn)算過(guò)程

ElseIf txtfuhao.Text = "-" Then '運(yùn)算過(guò)程

c = a - b '運(yùn)算過(guò)程

ElseIf txtfuhao.Text = "÷" Then '運(yùn)算過(guò)程

c = a / b '運(yùn)算過(guò)程

ElseIf txtfuhao.Text = "×" Then '運(yùn)算過(guò)程

c = a * b '運(yùn)算過(guò)程

Else

j = MsgBox("您輸入的符號(hào)不正確", vbOKOnly, "錯(cuò)誤信息")

End If

txtc.Text = c '將運(yùn)算結(jié)果c輸出到文本框txtc中

End SubPrivate Sub Command6_Click()

txta.Text = "" '將空字符輸入到文本框內(nèi)（刷新）

txtb.Text = "" '將空字符輸入到文本框內(nèi)（刷新）

txtc.Text = "" '將空字符輸入到文本框內(nèi)（刷新）

txtfuhao.Text = "" '將空字符輸入到文本框內(nèi)（刷新）

End SubPrivate Sub Command7_Click()

End '結(jié)束程序

End SubPrivate Sub Form_Load()End Sub

如何用VB.NET編程語(yǔ)言實(shí)現(xiàn)打開(kāi)CAD文件？

需要解析CAD文件的構(gòu)成 然后根據(jù)規(guī)則繪制 說(shuō)白點(diǎn)CAD文件是人家公司定義的一個(gè)文件格式 里面保存的不是圖形 而是圖形的繪制規(guī)則 程序AutoCad打開(kāi)文件的時(shí)候是讀取文件里面描寫(xiě)的繪制規(guī)則繪制圖案的 你了解了CAD文件的構(gòu)成后就可以自己寫(xiě)代碼繪制圖形了（具體CAD圖形構(gòu)成沒(méi)研究過(guò) 你可以用記事本打開(kāi)一個(gè)CAD的圖形交換文件.Dxf 可以看到 這個(gè)文件是由圖層說(shuō)明和很多點(diǎn)坐標(biāo)組成的）

跪求vb.net代碼

新建窗口，添加picture控件

利用line()方法畫(huà)線

line(開(kāi)始x坐標(biāo),開(kāi)始y坐標(biāo))-(結(jié)束x坐標(biāo),結(jié)束y坐標(biāo)),線的顏色，畫(huà)線的方式(默認(rèn)為線，B為矩形無(wú)填充，BF為填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上畫(huà)也可以調(diào)用窗口的line方法即form.line()

vb.net 程序繪圖運(yùn)行過(guò)程中圖片不顯示，程序運(yùn)行完后才顯示

你想的以及接近了，要達(dá)到你要的效果，需要使用多線程，寫(xiě)入數(shù)據(jù)庫(kù)和顯示繪圖的結(jié)果各一個(gè)線程

名稱(chēng)欄目：vb.net畫(huà)圖源程序 vb編寫(xiě)簡(jiǎn)單的畫(huà)圖程序
轉(zhuǎn)載源于：http://chinadenli.net/article28/doddhjp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、網(wǎng)站設(shè)計(jì)公司、全網(wǎng)營(yíng)銷(xiāo)推廣、微信小程序、網(wǎng)站排名、面包屑導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)