vb.net中如何把picturebox定義為畫(huà)布

定義一個(gè)畫(huà)布，來(lái)源于picturebox

成都創(chuàng)新互聯(lián)主要從事成都網(wǎng)站制作、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)塔城,10年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):18980820575

Dim?huabu?As?Graphics

huabu?=?picturebox.CreateGraphics

使用的時(shí)候還需要定義畫(huà)筆

Dim?pen?As?New?Pen(Brushes.Black,?1)

然后就可以畫(huà)圖了

huabu.DrawLine(pen,?0,?0,?10,?10)

更多的關(guān)于繪圖和坐標(biāo)變換的東西可以參考

vb.net中繪制圓的代碼是什么?

Dim myGraphics As Graphics = Me.CreateGraphics '聲明并創(chuàng)建一個(gè)Graphics對(duì)象

Dim myPen As Pen = New Pen(Drawing.Color.Black, 3) '聲明一個(gè)畫(huà)筆，并設(shè)定顏色和粗細(xì)

myPen.DashStyle = Drawing.Drawing2D.DashStyle.Solid '線型，Solid是實(shí)線

myGraphics.DrawEllipse(myPen, 200, 200, 100, 100) '畫(huà)圓，數(shù)值依次是：橫坐標(biāo)、縱坐標(biāo)、寬度和高度（寬高相同為正圓，否則為橢圓）

myGraphics.Dispose() '釋放Graphics占用的資源

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

VB.net與VB不同。

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

可以定義筆刷然后用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