在VB.Net中如何畫實心的圓

在PictureBox1上畫紅色的實心圓：

創(chuàng)新互聯(lián)是由多位在大型網(wǎng)絡(luò)公司、廣告設(shè)計公司的優(yōu)秀設(shè)計人員和策劃人員組成的一個具有豐富經(jīng)驗的團(tuán)隊，其中包括網(wǎng)站策劃、網(wǎng)頁美工、網(wǎng)站程序員、網(wǎng)頁設(shè)計師、平面廣告設(shè)計師、網(wǎng)絡(luò)營銷人員及形象策劃。承接：網(wǎng)站建設(shè)、網(wǎng)站制作、網(wǎng)站改版、網(wǎng)頁設(shè)計制作、網(wǎng)站建設(shè)與維護(hù)、網(wǎng)絡(luò)推廣、數(shù)據(jù)庫開發(fā),以高性價比制作企業(yè)網(wǎng)站、行業(yè)門戶平臺等全方位的服務(wù)。

Private Sub DrawCircle(ByVal cp As Point, ByVal radius As Integer, ByVal color As Brush)

Dim gr As Graphics

gr = PictureBox1.CreateGraphics

Dim rect As Rectangle = New Rectangle(cp.X - radius, cp.Y - radius, 2 * radius, 2 * radius)

gr.DrawEllipse(Pens.Black, rect)

gr.FillEllipse(color, rect)

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

DrawCircle(New Point(120, 100), 80, Brushes.Red)

End Sub

如何用VB.NET畫同心圓

窗體上添加一個按鈕，在該按鈕的單擊事件里編寫代碼如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'聲明窗體的Me.CreateGraphics對象

Dim MyGraphics As Graphics = Me.CreateGraphics

Dim Cx As Integer = 150 '圓心的X坐標(biāo)

Dim Cy As Integer = 150 '圓心的Y坐標(biāo)

Dim R As Integer '圓的半徑

'繪制半徑為R的圓

For R = 5 To 100 Step 5

MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))

Next

End Sub

‘用黑色畫筆繪制一組同心圓，半徑從5開始，增量為5。

說明：

DrawEllipse是VB.Net的Graphics類的繪制橢圓的方法；他有幾種格式，上面使用的是一種；

DrawEllipse（畫筆的顏色，繪制橢圓所需要的矩形區(qū)域）

其中：繪制橢圓所需要的矩形區(qū)域，如果被定義為正方形，就演變成繪制圓，定義該區(qū)域由死個數(shù)值確定，第1個數(shù)值，確定該區(qū)域左上角的X坐標(biāo)，第2個數(shù)值，確定該區(qū)域左上角的Y坐標(biāo)，第3個數(shù)值，確定該區(qū)域的寬度，第4個數(shù)值，確定該區(qū)域的高度。

例如1：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），邊長為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過數(shù)學(xué)計算，知道如何繪制了。

同理例如2：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），長軸為100，短軸為50的內(nèi)切橢圓。

vb點虐 中繪制圓的代碼是什么?

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

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

myPen.DashStyle = Drawing.Drawing2D.DashStyle.Solid '線型，Solid是實線

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

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

文章題目：vb點虐 畫圓命令 vb畫圓函數(shù)
分享網(wǎng)址：http://www.rwnh.cn/article34/ddcpise.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁設(shè)計公司、搜索引擎優(yōu)化、手機網(wǎng)站建設(shè)、域名注冊、外貿(mào)建站、響應(yīng)式網(wǎng)站

廣告

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