如何用VB.NET畫同心圓

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

成都地區(qū)優(yōu)秀IDC服務(wù)器托管提供商(創(chuàng)新互聯(lián)公司).為客戶提供專業(yè)的眉山服務(wù)器托管,四川各地服務(wù)器托管,眉山服務(wù)器托管、多線服務(wù)器托管.托管咨詢專線：18980820575

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），邊長為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），長軸為100，短軸為50的內(nèi)切橢圓。

怎樣在vb.net中利用一個(gè)button畫多個(gè)圓，就是點(diǎn)擊一下畫一個(gè)圓，一共畫五個(gè)！畫出奧運(yùn)五環(huán)

設(shè)置一個(gè)公用變量，初始值為1，在BUTTON的代碼中，判斷變量為1，則畫第一個(gè)，變量加1 ，再點(diǎn)時(shí)，變量為2，畫第二個(gè)，。。。。

VB.NET中怎樣畫圓弧

用Circle 畫圓 圓弧 橢圓 都 具體參照面詳細(xì)說明 Circle(一000,一000),500,吧,-陸,-三 一000,一000,圓坐標(biāo) 500,半徑 面別代表起始角,終止角,短軸比率 吧,詳細(xì)點(diǎn),Circle都說遍 象畫圓、橢圓或弧 語 object.Circle [Step] (x, y), radius, [color, start, end, aspect] Circle 語象限定符部： 部 描述 object 選 象表達(dá)式其值應(yīng)用于列表象object 省略具焦點(diǎn)窗體作object Step 選關(guān)鍵字 指定圓、橢圓或弧相于前 object CurrentX CurrentY 屬性提供坐標(biāo) (x, y) 必需 Single （單精度浮點(diǎn)數(shù)）圓、橢圓或弧坐標(biāo)object ScaleMode 屬性決定使用度量單位 radius 必需Single （單精度浮點(diǎn)數(shù)）圓、橢圓或弧半徑 object ScaleMode 屬性決定使用度量單位 color 選Long （整型數(shù)）圓輪廓 RGB 顏色省略則使用 ForeColor 屬性值用 RGB 函數(shù)或 QBColor 函數(shù)指定顏色 start, end 選 Single （單精度浮點(diǎn)數(shù)）弧、或部圓或橢圓畫完start end 指定（弧度單位）弧起點(diǎn)終點(diǎn)位置其范圍 -二 pi 二 pi 起點(diǎn)缺省值0; 終點(diǎn)缺省值二 * pi aspect 選 Single （單精度浮點(diǎn)數(shù)）圓縱橫尺寸比缺省值 一.0何屏幕都產(chǎn)標(biāo)準(zhǔn)圓（非橢圓） 說明 想要填充圓使用圓或橢圓所屬象 FillColor FillStyle 屬性封閉圖形才能填充封閉圖形包括圓、橢圓、或扇形 畫部圓或橢圓 start 負(fù)Circle 畫半徑 start并角度處理； end 負(fù)Circle 畫半徑 end并角度處理Circle 總逆針（）向繪圖 畫圓、橢圓或弧線段粗細(xì)取決于 DrawWidth 屬性值背景畫圓取決于 DrawMode DrawStyle 屬性值 畫角度 0 扇形要畫條半徑（向右畫水平線段）給 start 規(guī)定負(fù)值要給 0 .省略語間某參數(shù)能省略隔參數(shù)逗號(hào)您指定參數(shù)面逗號(hào)省略 Circle 執(zhí)行CurrentX CurrentY 屬性參數(shù)設(shè)置點(diǎn) 能用 With匛nd With 語句塊 -------------------------------------------------------------------------------- Circle 示例 示例用Circle 窗體央畫許同圓要運(yùn)行示例代碼放入窗體 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 -------------------------------------------------------------------------------

vb畫圓代碼

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

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

'控件：

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

'名稱:Command2，屬性Caption:結(jié)束

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

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

End Sub

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

Unload Form1 '退出Form1

End Sub

Private Sub Form_Load()

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

End Sub

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

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

用Circel方法。

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

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

[容器名.]Circel[[step]

(X,Y),

半徑,

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

例：form1.Circel(25,25),

10,

RGB(100,100,50)

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

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占用的資源