vb.net畫圓填充 vb在圖片框中畫圓

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

在PictureBox1上畫紅色的實心圓：

創新互聯專注于淇濱企業網站建設,成都響應式網站建設公司,成都做商城網站。淇濱網站建設公司,為淇濱等地區提供建站服務。全流程按需制作網站，專業設計，全程項目跟蹤，創新互聯專業和態度為您提供的服務

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如何填充圓

畫橢圓

圓的方位比，決定了圓是顯得很圓（圓）還是被拉長（橢圓）。Circle 方法的完整語法是：

[object.]Circle [Step](x, y), radius, [color], , [, aspect]

start 參數和 end 參數是可選的；但是，如果想省掉參數，逗號是不能省的。例如：如果含有 radius 參數和 aspect 參數，省掉了 color、start、end 三個參數，則必須加上四個連續的逗號，它表明這三個參數被省掉了。

Circle (1000, 1000), 500, , , , 2

aspect 參數指定了水平長度和垂直長度比。該 aspect 參數是正浮點數，這說明它既可以是整數表達式，也可以是小數表達式，但不能是負數。該 aspect 參數較大時，橢圓沿垂直軸線拉長；相反，該 aspect 參數較小時，則沿水平軸線拉長。由于橢圓有兩個半徑—水平方向的 x 半徑和垂直方向 y 半徑— Visual Basic 在 Circle 語句中只使用了一個參數 radius 對應橢圓的長軸。如果 aspect 參數小于 1 的話，該 radius 半徑指的是水平方向的 x 半徑，如果 aspect 參數大于或等于 1 的話，則 radius 指的是垂直方向的 y 半徑。

注意 aspect 參數指定的總是水平長度和垂直長度的實際物理距離比，要保證這一點（即便用的是自定義標尺），半徑應以水平單位指定。

下列過程說明的是，不同的 aspect 參數值，Circle 方法是如何決定對 radius 參數的使用的；是將它作為橢圓的 x 半徑，還是作為橢圓的 y 半徑：

Private Sub Form_Click ()

'畫一個實心橢圓。

FillStyle = 0

Circle (600, 1000), 800, , , , 3

'畫一個空心橢圓。

FillStyle = 1

Circle (1800, 1000), 800, , , , 1 / 3

End Sub

VB中如何用line畫線的方法給圓里面填充顏色

VB中直接有“填充方式”，?? FillStyle 屬性就決定了用什么樣的填充方式填充圓內空間。

其中：

VbFSSolid ? ? 0?????實心

VbFSTransparent ? ? 1 ? ? （缺省值）透明。 ?

VbHorizontalLine ? ? 2 ? ? 水平直線。 ?

VbVerticalLine ? ? 3 ? ? 垂直直線。 ?

VbUpwardDiagonal ? ? 4 ? ? 上斜對角線。 ?

VbDownwardDiagonal ? ? 5 ? ? 下斜對角線 ?

VbCross ? ? 6 ? ? 十字線 ?

VbDiagonalCross ? ? 7 ? ? 交叉對角線 ?

示例代碼如下：

Private Sub Command1_Click()

Dim CX, CY, Radius, Limit?? ' Declare variable.

FillColor = vbRed??? '填充顏色

FillStyle = 0??????? '實心

FillStyle = 1??????? '無填充

FillStyle = 2??????? '水平直線

FillStyle = 3??????? '垂直直線

FillStyle = 4??????? '上斜對角線

FillStyle = 5??????? '下斜對角線

FillStyle = 6??????? '十字線

FillStyle = 7??????? '交叉對角線

ScaleMode = 3?? ' 以像素為單位。

CX = ScaleWidth / 2?? ' X 位置。

CY = ScaleHeight / 2?? ' Y 位置。

If CX CY Then Limit = CY Else Limit = CX

Radius = Limit??? ' 半徑。

Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)

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

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))

End Sub

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

說明：

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

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

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

例如1：

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

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

同理例如2：

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

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

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 （單精度浮點數）圓、橢圓或弧坐標object ScaleMode 屬性決定使用度量單位 radius 必需Single （單精度浮點數）圓、橢圓或弧半徑 object ScaleMode 屬性決定使用度量單位 color 選Long （整型數）圓輪廓 RGB 顏色省略則使用 ForeColor 屬性值用 RGB 函數或 QBColor 函數指定顏色 start, end 選 Single （單精度浮點數）弧、或部圓或橢圓畫完start end 指定（弧度單位）弧起點終點位置其范圍 -二 pi 二 pi 起點缺省值0; 終點缺省值二 * pi aspect 選 Single （單精度浮點數）圓縱橫尺寸比缺省值一.0何屏幕都產標準圓（非橢圓）說明想要填充圓使用圓或橢圓所屬象 FillColor FillStyle 屬性封閉圖形才能填充封閉圖形包括圓、橢圓、或扇形畫部圓或橢圓 start 負Circle 畫半徑 start并角度處理； end 負Circle 畫半徑 end并角度處理Circle 總逆針（）向繪圖畫圓、橢圓或弧線段粗細取決于 DrawWidth 屬性值背景畫圓取決于 DrawMode DrawStyle 屬性值畫角度 0 扇形要畫條半徑（向右畫水平線段）給 start 規定負值要給 0 .省略語間某參數能省略隔參數逗號您指定參數面逗號省略 Circle 執行CurrentX CurrentY 屬性參數設置點能用 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 -------------------------------------------------------------------------------

名稱欄目：vb.net畫圓填充 vb在圖片框中畫圓
網頁網址：http://www.yijiale78.com/article0/hhchio.html

成都網站建設公司_創新互聯，為您提供App設計、動態網站、品牌網站制作、服務器托管、Google、網站設計