vb.net怎么畫圓在vb程序編寫怎么畫圓

VB.NET中怎樣畫圓弧

用Circle 畫圓圓弧橢圓都具體參照面詳細(xì)說明 Circle(一000,一000),500,吧,-陸,-三一000,一000,圓坐標(biāo) 500,半徑面別代表起始角,終止角,短軸比率吧,詳細(xì)點(diǎn),Circle都說遍象畫圓、橢圓或弧語(yǔ) object.Circle [Step] (x, y), radius, [color, start, end, aspect] Circle 語(yǔ)象限定符部：部描述 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 .省略語(yǔ)間某參數(shù)能省略隔參數(shù)逗號(hào)您指定參數(shù)面逗號(hào)省略 Circle 執(zhí)行CurrentX CurrentY 屬性參數(shù)設(shè)置點(diǎn) 能用 With匛nd With 語(yǔ)句塊 -------------------------------------------------------------------------------- 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 -------------------------------------------------------------------------------

成都創(chuàng)新互聯(lián)公司專注于大興安嶺企業(yè)網(wǎng)站建設(shè),自適應(yīng)網(wǎng)站建設(shè),成都做商城網(wǎng)站。大興安嶺網(wǎng)站建設(shè)公司,為大興安嶺等地區(qū)提供建站服務(wù)。全流程定制網(wǎng)站設(shè)計(jì)，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)

在VB.Net中如何畫實(shí)心的圓

在PictureBox1上畫紅色的實(shí)心圓：

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使用ovalshape畫幾個(gè)圓

Public?a(8)?As?OvalShape

Dim?canvas=?New?Microsoft.VisualBasic.PowerPacks.ShapeContainer

ConstCircleSize?As?Integer=?20

Const?Dist?As?Integer?=?10

Const?Gap?As?Integer?=?50

Dim?i?As?Integer

canvas.Parent?=?Me.Panel1

For?i?=0?To?8

a(i)?=?NewOvalShape

a(i).Size?=?New?Size(CircleSize,CircleSize)

a(i).Location?=?New?Point(Dist?+Gap?*?(i?Mod?3),?Dist?+?Gap?*?(i?\?3))

a(i).BorderWidth?=?3

a(i).Enabled?=?True

a(i).Visible?=?True

a(i).Parent?=?canvas

VB.NET中windows窗體控件如何畫一個(gè)圓

VB.NET沒用過

VB6的話用form.circle方法畫圓,圓的半徑和圓點(diǎn)用form.width或者form.height乘以比例數(shù)來得到,然后在form_resize事件中重畫圓就可以了

不知道和VB.NET差別大不大

vb.net怎么畫圓的圖形