次の方法で共有


Report.Circle メソッド (Access)

Circle メソッドは、Print イベントが発生したときに、Report オブジェクトに円、楕円、または円弧を描画します。

構文

(ステップ (x、y)、 半径開始終了アスペクト)

Report オブジェクトを表す変数。

パラメーター

名前 データ型 説明
手順 キーワード 円、楕円、または円弧の中心が、Object 引数の CurrentX プロパティと CurrentY プロパティの現在の設定によって指定された現在の座標に対して相対的であることを示します。
(x, y) 単精度浮動小数点型 円、楕円、または円弧の中心点の座標を示します。Object 引数で指定された Report オブジェクトの ScaleModeScaleLeftScaleTopScaleHeightScaleWidth の Scale プロパティによって、使用される測定単位が決まります。
半径 単精度浮動小数点型 円、楕円、または円弧の半径を示します。Object 引数で指定された Report オブジェクトの ScaleModeScaleLeftScaleTopScaleHeightScaleWidth の Scale プロパティによって、使用される測定単位が決まります。 既定では、距離は twip 単位で測定されます。
Color Long 円のアウトラインの RGB (赤-緑-青) の色を示します。 この引数を省略すると、" ForeColor /前景色" プロパティの値が使われます。 また、色を指定する目的で、 RGBQBColor 関数を使用できます。
Start 単精度浮動小数点型 部分円または楕円を描画すると、 Start 引数は円弧の開始位置を (ラジアン単位で) 指定します。 Start 引数の既定値は 0 ラジアンです。 範囲は -2 pi ラジアンから 2 pi ラジアンです。
End 単精度浮動小数点型 部分円または楕円を描画すると、 End 引数は円弧の終了位置を (ラジアン単位で) 指定します。 End 引数の既定値は 2 pi ラジアンです。 範囲は -2 pi ラジアンから 2 pi ラジアンです。
側面 単精度浮動小数点型 円の縦横比を示します。 この場合は、任意の画面で完全な (楕円でない) 円が描画されます。

注釈

このメソッドは、イベント プロシージャ、またはレポート セクションのイベント プロパティで指定されたマクロ、またはレポートの OnPage イベント プロパティでのみ使用します。

部分円または楕円を描画するときに、 Start 引数が負の場合、 Circle メソッドは 引数 Start で指定された位置に半径を描画し、角度を正の値として扱います。 End 引数が負の場合、Circle メソッドは End 引数で指定された位置に半径を描画し、角度を正として再び処理します。 The Circle method always draws in a counterclockwise (positive) direction.

円を塗りつぶすには、レポートの FillColorFillStyle プロパティを設定します。 ただし、塗りつぶしができるのは閉じた図形だけです。 円、楕円、および扇形 (両端の半径が描画されている円弧) などが閉じた図形となります。

円のスライスを描画するときに、角度 0 までの半径を描画して右側に水平線セグメントを形成する必要がある場合は、 引数 Start に 0 ではなく非常に小さい負の値を指定します。 たとえば、 Start 引数に -.00000001 を指定できます。

構文の途中の引数を省略することはできますが、その場合には次の引数の前にカンマを入れる必要があります。 末尾の引数を省略する場合は、指定した最後の引数の後にコンマを使用しないでください。

円、楕円、または円弧の描画に使用される線の幅は、 DrawWidth プロパティの設定によって異なります。 背景に円を描画する方法は、 DrawMode プロパティと DrawStyle プロパティの設定によって異なります。

Circle メソッドを適用すると、CurrentX プロパティと CurrentY プロパティが x および y 引数で指定された中心点設定されます。

次の例では、Circle メソッドを使って円を描き、その中に扇形を作成して赤色を付けます。

To try this example in Microsoft Access, create a new report. Set the OnPrint property of the Detail section to [Event Procedure]. レポートのモジュールに次のコードを入力し、[印刷プレビュー] に切り替えます。

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 のサポートおよびフィードバックを参照してください。