Report.Circle 方法 (Access)

當Print事件發生時，Circle方法會在Report物件上繪製圓形、橢圓形或弧線。

語法

運算式。圓形 (步驟 (x、y) 、 Radius、 Color、 Start、 End、 Aspect)

表達 代表 Report 物件的變數。

參數

名稱	資料類型	描述
步驟	關鍵字	表示圓形、橢圓形或弧形的中心相對於Object引數之CurrentX和CurrentY屬性的目前設定所指定的目前座標。
(x， y)	Single	表示圓形、橢圓形或弧形的中心點座標。Scale 引數所指定之Report 物件的Scale 屬性 (ScaleMode、ScaleLeft、ScaleTop、ScaleHeight和ScaleWidth) 會決定所使用的量值單位。
Radius	Single	表示圓形、橢圓形或弧形的半徑。由Object引數所指定之Report 物件 (ScaleMode、ScaleLeft、ScaleTop、ScaleHeight和ScaleWidth) 屬性會決定所使用的量值單位。 根據預設，距離是以 twip為單位來測量。
Color	Long	表示 RGB (圓形外框的紅-綠-藍) 色彩。 如果省略此引數，則會使用 ForeColor 屬性的值。 您也可以使用 RGB 函數或 QBColor 函數來指定色彩。
Start	Single	繪製部分圓形或橢圓形時， Start 引數會以弧度指定 () 弧線的開始位置。 Start 引數的預設值為 0 弧度。 範圍為 -2 pi radians 到 2 pi radians。
End	Single	繪製部分圓形或橢圓形時， End 引數會以弧度指定 () 弧線的結束位置。 End 引數的預設值為 2 pi 弧度。 範圍為 -2 pi radians 到 2 pi radians。
方面	Single	表示圓形的外觀比例。 預設值為 1.0，會在任何畫面上產生完美的 (非橢圓) 圓形。

註解

只有在報表區段的事件屬性所指定的事件程序或宏，或報表的 OnPage 事件屬性中，才使用這個方法。

繪製部分圓形或橢圓形時，如果 Start 引數為負數， Circle 方法會將半徑繪製到 Start 引數所指定的位置，並將角度視為正數。 如果 End 自 變數為負數， Circle 方法會將半徑繪製到 End 引數所指定的位置，並再次將角度視為正數。 Circle 方法會固定以逆時針 (正) 方向繪製。

若要填滿圓形，請設定報表的 FillColor 和 FillStyle 屬性。 只有封閉圖形可以填滿。 封閉圖形包括圓形、橢圓形及圓形切片，其為在兩端繪製半徑線條的弧形。

繪製圓形圖配量時，如果您需要將半徑繪製到角度 0，以形成右邊的水平線段，請為 Start 引數指定非常小的負值，而不是 0。 例如，您可以為 Start 引數指定 -.00000001。

您可以省略語法中間的引數，但是必須在下一個引數之前加入引數的逗號。 如果您省略尾端引數，請勿在您指定的最後一個引數後面使用任何逗號。

用來繪製圓形、橢圓形或弧形的線條寬度取決於 DrawWidth 屬性設定。 在背景繪製圓形的方式取決於 DrawMode 和 DrawStyle 屬性的設定。

當您套用 Circle 方法時，CurrentX 及 CurrentY 屬性會設定為x 及 y 引數所指定的中心點。

範例

以下範例使用 Circle 方法繪製圓形，然後在圓形內建立圓形切片，並以紅色著色。

若要在 Microsoft Access 中嘗試此範例，請建立一個新報表。 將詳細資料區段的 OnPrint 屬性設定為 [事件程序]。 在報表的模組中輸入下列程式碼，然後切換至 [預覽列印]。

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
    Const conPI = 3.14159265359 
    Dim sngHCtr As Single, sngVCtr As Single 
    Dim sngRadius As Single 
    Dim sngStart As Single, sngEnd As Single 
 
    sngHCtr = Me.ScaleWidth / 2     ' Horizontal center. 
    sngVCtr = Me.ScaleHeight / 2     ' Vertical center. 
    sngRadius = Me.ScaleHeight / 3     ' Circle radius. 
    ' Draw circle. 
    Me.Circle(sngHCtr, sngVCtr), sngRadius 
    sngStart = -0.00000001             ' Start of pie slice. 
    sngEnd = -2 * conPI / 3             ' End of pie slice. 
    Me.FillColor = RGB(255,0,0)     ' Color pie slice red. 
    Me.FillStyle = 0                     ' Fill pie slice. 
    ' Draw pie slice within circle. 
    Me.Circle(sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。