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

創新互聯建站從2013年創立,是專業互聯網技術服務公司,擁有項目成都網站設計、成都網站建設網站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元廉江做網站,已為上家服務,為廉江各地企業和個人服務,聯系電話:13518219792
VB.net與VB不同。
VB.net已經有專門繪圖的類。
可以定義筆刷然后用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
說明:1.共有4個文本框其,其中三個是填入或輸出數據的(名稱分別是:txta txtb txtc),剩下的那個是符號(txtd)2.共7個按鈕,4個是符號按鈕,一個計算,一個清零.這是我弄的程序”袖珍計算器”代碼也是自己編寫的,代碼如下:通用聲明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里的內容轉化為數值型,然后再賦給a
b = Val(txtb.Text) '將txtb.Text里的內容轉化為數值型,然后再賦給b
If txtfuhao.Text = "+" Then '運算過程
c = a + b '運算過程
ElseIf txtfuhao.Text = "-" Then '運算過程
c = a - b '運算過程
ElseIf txtfuhao.Text = "÷" Then '運算過程
c = a / b '運算過程
ElseIf txtfuhao.Text = "×" Then '運算過程
c = a * b '運算過程
Else
j = MsgBox("您輸入的符號不正確", vbOKOnly, "錯誤信息")
End If
txtc.Text = c '將運算結果c輸出到文本框txtc中
End SubPrivate Sub Command6_Click()
txta.Text = "" '將空字符輸入到文本框內(刷新)
txtb.Text = "" '將空字符輸入到文本框內(刷新)
txtc.Text = "" '將空字符輸入到文本框內(刷新)
txtfuhao.Text = "" '將空字符輸入到文本框內(刷新)
End SubPrivate Sub Command7_Click()
End '結束程序
End SubPrivate Sub Form_Load()End Sub
需要解析CAD文件的構成 然后根據規則繪制 說白點CAD文件是人家公司定義的一個文件格式 里面保存的不是圖形 而是圖形的繪制規則 程序AutoCad打開文件的時候是讀取文件里面描寫的繪制規則繪制圖案的 你了解了CAD文件的構成后就可以自己寫代碼繪制圖形了(具體CAD圖形構成沒研究過 你可以用記事本打開一個CAD的圖形交換文件.Dxf 可以看到 這個文件是由圖層說明和很多點坐標組成的)
新建窗口,添加picture控件
利用line()方法畫線
line(開始x坐標,開始y坐標)-(結束x坐標,結束y坐標),線的顏色,畫線的方式(默認為線,B為矩形無填充,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
如果要在窗口上畫也可以調用窗口的line方法即form.line()
你想的以及接近了,要達到你要的效果,需要使用多線程,寫入數據庫和顯示繪圖的結果各一個線程
名稱欄目:vb.net畫圖源程序 vb編寫簡單的畫圖程序
轉載源于:http://www.yijiale78.com/article28/doddhjp.html
成都網站建設公司_創新互聯,為您提供外貿建站、網站設計公司、全網營銷推廣、微信小程序、網站排名、面包屑導航
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯