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

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何屏幕都產(chǎn)標準圓（非橢圓）說明想要填充圓使用圓或橢圓所屬象 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 -------------------------------------------------------------------------------

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

在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.net使用ovalshape畫幾個圓

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窗體控件如何畫一個圓

VB.NET沒用過

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

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

vb.net怎么畫圓的圖形