如何用VB.NET畫同心圓

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

創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設,瑞金企業(yè)網(wǎng)站建設,瑞金品牌網(wǎng)站建設,網(wǎng)站定制,瑞金網(wǎng)站建設報價,網(wǎng)絡營銷,網(wǎng)絡優(yōu)化,瑞金網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

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坐標

Dim Cy As Integer = 150 '圓心的Y坐標

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坐標，第2個數(shù)值，確定該區(qū)域左上角的Y坐標，第3個數(shù)值，確定該區(qū)域的寬度，第4個數(shù)值，確定該區(qū)域的高度。

例如1：

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

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

同理例如2：

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

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

vb 畫圓問題

創(chuàng)建一個工程，窗口上面放一個PictureBox，大小相對大一些，將其ScaleMode屬性設為3。

然后放一個按鈕，其中加入以下代碼：

'這段代碼演示了如何使用VB的Circle方法繪制各種各樣的圓。

Form1.Picture1.Circle (60, 60), 40, vbRed '畫一個圓心(60,60)半徑40的紅色的圓（默認空心）

Form1.Picture1.FillStyle = 0 '設定填充模式為實心

Form1.Picture1.FillColor = vbBlue '設定填充色藍色

Form1.Picture1.Circle (190, 60), 40, vbRed '下來畫出來的就是填充了實心藍色的圓了

Form1.Picture1.DrawWidth = 3 '設定邊框寬度為3

Form1.Picture1.Circle (60, 190), 40, vbRed '這次繪制出來的圓邊框粗細為3

Form1.Picture1.DrawStyle = 5 '設定邊框不可見

Form1.Picture1.FillColor = vbRed '設定填充色紅色

Form1.Picture1.Circle (190, 190), 40 '這次繪制出來一個無邊框、填充顏色是紅色的圓

Form1.Picture1.Refresh

然后試試看，對照注釋應該就明白了。

————————————————

PS：對樓上 wys_sans給出的方法的評價：

其方法1、根本不能稱作畫圓；

其方法2、很顯然Circle可以直接畫實心的圓，只是這位不知道而已；

其方法3、效率極低效果極差的最糟糕方法。

vb畫圓代碼

VB畫圓代碼：主要使用函數(shù)【Circle (x, y), 半徑, 顏色 】 ：Circle(圓圈中心的坐標X，圓圈中心的坐標Y),圓圈的半徑,圓圈線的顏色

代碼start===========

'控件：

'名稱:Command1，屬性Caption:開始

'名稱:Command2，屬性Caption:結束

Private Sub Command1_Click() '****開始按鈕

Circle (1500, 1000), 700, vbBlack '此為畫圓函數(shù)：【Circle(圓圈中心的坐標X，圓圈中心的坐標Y),圓圈的半徑,圓圈線的顏色】

End Sub

Private Sub Command2_Click() '***結束按鈕

Unload Form1 '退出Form1

End Sub

Private Sub Form_Load()

Form1.AutoRedraw = True '程序開始時設置AutoRedraw屬性(即重畫屬性)為ture，否則畫的圖可能消失

End Sub

代碼end=============

如何用VB畫圓？需要具體的過程，詳細一些。。。

用Circel方法。

首先要做個容器，指明你在什么地方畫。比如在窗體上，那么就是form1.Circel

Circel方法需要的參數(shù)、格式：

[容器名.]Circel[[step]

(X,Y),

半徑,

[,顏色][,起始角][,終止角][,長短軸比率]]

例：form1.Circel(25,25),

10,

RGB(100,100,50)

就是說在（25，25）為圓心半徑為10畫個該顏色的圓。

VB.NET中怎樣畫圓弧

用Circle 畫圓 圓弧 橢圓 都 具體參照面詳細說明 Circle(一000,一000),500,吧,-陸,-三 一000,一000,圓坐標 500,半徑 面別代表起始角,終止角,短軸比率 吧,詳細點,Circle都說遍 象畫圓、橢圓或弧 語 object.Circle [Step] (x, y), radius, [color, start, end, aspect] Circle 語象限定符部： 部 描述 object 選 象表達式其值應用于列表象object 省略具焦點窗體作object Step 選關鍵字 指定圓、橢圓或弧相于前 object CurrentX CurrentY 屬性提供坐標 (x, y) 必需 Single （單精度浮點數(shù)）圓、橢圓或弧坐標object ScaleMode 屬性決定使用度量單位 radius 必需Single （單精度浮點數(shù)）圓、橢圓或弧半徑 object ScaleMode 屬性決定使用度量單位 color 選Long （整型數(shù)）圓輪廓 RGB 顏色省略則使用 ForeColor 屬性值用 RGB 函數(shù)或 QBColor 函數(shù)指定顏色 start, end 選 Single （單精度浮點數(shù)）弧、或部圓或橢圓畫完start end 指定（弧度單位）弧起點終點位置其范圍 -二 pi 二 pi 起點缺省值0; 終點缺省值二 * pi aspect 選 Single （單精度浮點數(shù)）圓縱橫尺寸比缺省值 一.0何屏幕都產標準圓（非橢圓） 說明 想要填充圓使用圓或橢圓所屬象 FillColor FillStyle 屬性封閉圖形才能填充封閉圖形包括圓、橢圓、或扇形 畫部圓或橢圓 start 負Circle 畫半徑 start并角度處理； end 負Circle 畫半徑 end并角度處理Circle 總逆針（）向繪圖 畫圓、橢圓或弧線段粗細取決于 DrawWidth 屬性值背景畫圓取決于 DrawMode DrawStyle 屬性值 畫角度 0 扇形要畫條半徑（向右畫水平線段）給 start 規(guī)定負值要給 0 .省略語間某參數(shù)能省略隔參數(shù)逗號您指定參數(shù)面逗號省略 Circle 執(zhí)行CurrentX CurrentY 屬性參數(shù)設置點 能用 With匛nd With 語句塊 -------------------------------------------------------------------------------- Circle 示例 示例用Circle 窗體央畫許同圓要運行示例代碼放入窗體 General 部按 F5 并單擊窗體 Sub Form_Click () Dim CX, CY, Radius, Limit ' Declare variable. ScaleMode = 三 ' 像素單位 CX = ScaleWidth / 二 ' X 位置 CY = ScaleHeight / 二 ' Y 位置 If CX CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit ' 半徑 Circle (CX, CY), Radius,RGB(Rnd * 二55, Rnd * 二55, Rnd * 二55) Next Radius End Sub -------------------------------------------------------------------------------