Access) (CommandButton.PictureData 屬性

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

語法

運算式。PictureData

運算式 代表 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