想要填充圓,使用圓或橢圓所屬對象的 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 = 3 ' 以像素為單位。
CX = ScaleWidth / 2 ' X 位置。
CY = ScaleHeight / 2 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半徑。
Circle (CX, CY), Radius,RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius
End Sub
--------------------------------------------------------------------------------
應用於:
Form 對象、Forms 集合
PictureBox 控件
PropertyPage 對象
UserControl 對象