Report.PictureData 屬性 (Access)

使用 PictureData 屬性可將圖片複製到另一個支援 Picture 屬性的物件。 讀取/寫入的 Variant。

語法

運算式。PictureData

表達 代表 Report 物件的變數。

註解

PictureData 屬性設定為另一個控制項、 表單或報表的 PictureData 屬性。

根據使用者所採取的動作，使用此屬性在表單中顯示不同的背景圖片。 例如，您可以使用不同的背景圖片來開啟 Customers 表單，視表單是針對資料輸入還是流覽而開啟。

您也可以使用 PictureData 屬性搭配 Timer 事件和 TimerInterval 屬性，在表單上執行簡單的動畫。

範例

下列範例會使用三個圖像控制項以動畫顯示移動蝴蝶圖像整個表單。 Hidden1 影像控制項包含一張具有其上框的吋子圖片，而 Hidden2 影像控制項則包含一張同一隻𶆎子的圖片，其中有一個沿著它的兩個機身向下。 這兩個圖像控制項有其 Visible 屬性設為 False 。

TimerInterval 屬性設為 200。 每次發生 計時器 事件時，影像控制 Visible1 中的圖片都會使用隱藏影像控制項的 PictureData 屬性來變更，而可見影像控制項會向右移動 200 twip 。 可見 image 控制項被移回左側的表單時其 Left 屬性值大於儲存在公用變數 gfrmWidth表單的寬度。 的值 gfrmWidth 會在表單的 open 事件中設定為 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 支援與意見反應。