建站
咨詢
售后
建站咨詢
新聞中心
在VB.Net中如何畫實(shí)心的圓
在PictureBox1上畫紅色的實(shí)心圓：
創(chuàng)新互聯(lián)公司是專業(yè)的扶風(fēng)網(wǎng)站建設(shè)公司，扶風(fēng)接單;提供成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作,網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行扶風(fēng)網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!
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畫同心圓
窗體上添加一個(gè)按鈕，在該按鈕的單擊事件里編寫代碼如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'聲明窗體的Me.CreateGraphics對(duì)象
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ū)域由死個(gè)數(shù)值確定，第1個(gè)數(shù)值，確定該區(qū)域左上角的X坐標(biāo)，第2個(gè)數(shù)值，確定該區(qū)域左上角的Y坐標(biāo)，第3個(gè)數(shù)值，確定該區(qū)域的寬度，第4個(gè)數(shù)值，確定該區(qū)域的高度。
例如1：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))
就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實(shí)在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），邊長(zhǎng)為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過數(shù)學(xué)計(jì)算，知道如何繪制了。
同理例如2：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))
就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實(shí)在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），長(zhǎng)軸為100，短軸為50的內(nèi)切橢圓。
vb.net中繪制圓的代碼是什么?
Dim myGraphics As Graphics = Me.CreateGraphics '聲明并創(chuàng)建一個(gè)Graphics對(duì)象
Dim myPen As Pen = New Pen(Drawing.Color.Black, 3) '聲明一個(gè)畫筆，并設(shè)定顏色和粗細(xì)
myPen.DashStyle = Drawing.Drawing2D.DashStyle.Solid '線型，Solid是實(shí)線
myGraphics.DrawEllipse(myPen, 200, 200, 100, 100) '畫圓，數(shù)值依次是：橫坐標(biāo)、縱坐標(biāo)、寬度和高度（寬高相同為正圓，否則為橢圓）
myGraphics.Dispose() '釋放Graphics占用的資源
網(wǎng)站標(biāo)題：vb.net畫圓 vb畫實(shí)心圓怎么畫
標(biāo)題網(wǎng)址：http://www.dlmjj.cn/article/doddpeg.html
