Report.PSet メソッド (Access)
PSet メソッドは、Print イベントが発生したときに、Report オブジェクトのポイントを指定した色に設定します。
構文
式。PSet (Flags, x, y, Color)
式Report オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Flags | 必須 | Integer | 引数 Object の CurrentX プロパティと CurrentY プロパティの設定によって指定された現在のグラフィックス位置を基準として座標が相対的であることを示すキーワード (keyword)。 |
x | 必須 | 単精度浮動小数点型 (Single) | 点の水平方向の座標値です。 |
y | 必須 | 単精度浮動小数点型 (Single) | 点の垂直方向の座標値です。 |
Color | 必須 | Long | ポイントを に設定する RGB (赤-緑-青) の色。 この引数を省略すると、" ForeColor /前景色" プロパティの値が使われます。 また、色を指定する目的で、 RGB や QBColor 関数を使用できます。 |
戻り値
なし
解説
点の大きさは DrawWidth プロパティによって決まります。 DrawWidth プロパティが 1 の場合、 PSet メソッドは単一のピクセルを指定した色で表示します。 DrawWidth プロパティが 1 を超える場合には、点の中心が指定した座標値になるように表示されます。
点の描画方法は、 DrawMode と DrawStyle プロパティによって決まります。
PSet メソッドを使うと、 CurrentX プロパティと CurrentY プロパティは、引数 x および y で指定した点に設定されます。
PSet メソッドを使用して 1 つのピクセルをクリアするには、ピクセルの座標を指定し、Color 引数として HFFFFFF (白) &使用します。
例
次の例では、PSet メソッドを使って、レポートに水平方向の直線を描きます。
To try this example in Microsoft Access, create a new report. Set the OnPrint property of the Detail section to [Event Procedure]. レポートのモジュールに次のコードを入力し、[印刷プレビュー] に切り替えます。
Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim sngMidPt As Single, intI As Integer
' Set scale to pixels.
Me.ScaleMode = 3
' Calculate midpoint.
sngMidPt = Me.ScaleHeight / 2
' Loop to draw line down horizontal axis pixel by pixel.
For intI = 1 To Me.ScaleWidth
Me.PSet(intI, sngMidPt)
Next intI
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。