Form.PictureData プロパティ (Access)

PictureData プロパティを使用して、Picture プロパティをサポートする別のオブジェクトにピクチャをコピーします。 値の取得と設定が可能なバリアント型 (Variant) の値です。

構文

式。PictureData

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

注釈

PictureData プロパティの設定値は、他のコントロール、フォーム、またはレポートの PictureData プロパティの値です。

このプロパティを使用すると、ユーザーが実行したアクションに応じて、フォームに異なる背景画像を表示できます。 たとえば、フォームをデータ入力用に開くのか参照用に開くのかによって、別の背景画像を使用して "顧客" フォームを開くことができます。

また、 PictureData プロパティを Timer イベントおよび TimerInterval プロパティと共に使用して、フォームで単純なアニメーションを実行することもできます。

例

次の使用例では、3 つのイメージ コントロールを使用して、蝶がフォーム上を飛んでいくようすをアニメーションで表示します。 Hidden1 イメージ コントロールには羽を上にした蝶の画像が含まれ、Hidden2 イメージ コントロールには翼を下ろした同じ蝶の画像が含まれています。 両方のイメージ コントロールの " Visible /可視" プロパティには [No/いいえ] ( False ) が設定されています。

また、" TimerInterval /タイマー間隔" プロパティには 200 が設定されています。 タイマー イベントが発生するたびに、非表示のイメージ コントロールの PictureData プロパティを使用してイメージ コントロール Visible1 の画像が変化し、表示イメージ コントロールが右に 200 twip 移動されます。 Visible1 イメージ コントロールの " Left /左位置" プロパティの値が、パブリック変数 gfrmWidth に格納されているフォームの幅を超える場合、Visible1 イメージ コントロールはフォームの左側に移動します。 gfrmWidth の値は、フォームのオープン イベントで Me.Width に設定されます。

Private Sub Form_Timer() 
 
 Static intPic As Integer 
 
 Select Case intPic 
 Case Is = 1 
 Me!Visible1.PictureData = Me!Hidden1.PictureData 
 Case Is = 2 
 Me!Visible1.PictureData = Me!Hidden2.PictureData 
 Case Else 
 End Select 
 
 If intPic = 2 Then intPic = 0 
 intPic = intPic + 1 
 If (Me!Visible1.Left > gfrmWidth) Then Me!Visible1.Left = 0 
 Me!Visible1.Left = Me!Visible1.Left + 200 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on