共用方式為

CommandButton.PictureData 屬性 (Access)

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

語法

表達。圖片數據

詞 代表 CommandButton 物件的變數。

註解

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

使用此屬性可在表單中顯示不同的背景圖片，視使用者所採取的動作而定。 例如，您可以使用不同的背景圖片來開啟 [客戶] 表單，視表單是開啟以輸入資料還是瀏覽而定。

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

範例

下列範例會使用三個圖像控制項以動畫顯示移動蝴蝶圖像整個表單。 Hidden1 影像控制項包含蝴蝶翅膀向上的圖片，而 Hidden2 影像控制項包含同一隻蝴蝶翅膀向下的圖片。 這兩個圖像控制項有其 Visible 屬性設為 False 。

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