當前位置:編程學習大全網 - 編程語言 - VB編程:利用circle方法繪隨機產生顏色各異的同心圓,最大圓半徑不超過1000

VB編程:利用circle方法繪隨機產生顏色各異的同心圓,最大圓半徑不超過1000

說明

想要填充圓,使用圓或橢圓所屬對象的 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 對象

  • 上一篇:如何管理以太坊?
  • 下一篇:用c語言編程年月
  • copyright 2024編程學習大全網