Page.PictureData 属性 (Access)

使用 PictureData 属性将图片复制到支持 Picture 属性的另一个对象。 读/写 Variant。

语法

表达式。PictureData

表达 一个代表 Page 对象的变量。

备注

PictureData 属性设置为另一个控件、 窗体或报表的 PictureData 属性。

使用此属性在窗体中显示不同的背景图片，具体取决于用户执行的操作。 例如，可以使用其他背景图片打开 “客户” 窗体，具体取决于窗体是打开数据输入还是浏览。

还可以将 PictureData 属性与 Timer 事件和 TimerInterval 属性一起使用，以在窗体上执行简单的动画。

示例

下面的示例使用三个图像控件实现一只蝴蝶从窗体中飞过的动画效果。 Hidden1 图像控件包含翅膀向上的蝴蝶图片，Hidden2 图像控件包含同一蝴蝶的图片，其翅膀向下。 这两个图像控件都有其 可见性 属性设置为 False 。

TimerInterval 属性设置为 200。 每次发生 Timer 事件时，都会使用隐藏图像控件的 PictureData 属性更改图像控件 Visible1 中的图片，并将可见图像控件向右移动 200 twips 。 可见图像控件将移回窗体的左边缘时其 左 属性值大于存储公用变量 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。