次の方法で共有


Report.PSet メソッド (Access)

PSet メソッドは、Print イベントが発生したときに、Report オブジェクトのポイントを指定した色に設定します。

構文

PSet (Flags, x, y, Color)

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

パラメーター

名前 必須 / オプション データ型 説明
Flags 必須 Integer 引数 ObjectCurrentX プロパティと CurrentY プロパティの設定によって指定された現在のグラフィックス位置を基準として座標が相対的であることを示すキーワード (keyword)。
x 必須 単精度浮動小数点型 (Single) 点の水平方向の座標値です。
y 必須 単精度浮動小数点型 (Single) 点の垂直方向の座標値です。
Color 必須 Long ポイントを に設定する RGB (赤-緑-青) の色。 この引数を省略すると、" ForeColor /前景色" プロパティの値が使われます。 また、色を指定する目的で、 RGBQBColor 関数を使用できます。

戻り値

なし

解説

点の大きさは DrawWidth プロパティによって決まります。 DrawWidth プロパティが 1 の場合、 PSet メソッドは単一のピクセルを指定した色で表示します。 DrawWidth プロパティが 1 を超える場合には、点の中心が指定した座標値になるように表示されます。

点の描画方法は、 DrawModeDrawStyle プロパティによって決まります。

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