使用 PictureData 属性将图片复制到支持 Picture 属性的另一个对象。 读/写 Variant。
语法
表达式。PictureData
表达式 表示 CommandButton 对象的变量。
备注
PictureData 属性设置为另一个控件、 窗体或报表的 PictureData 属性。
使用此属性可以根据用户执行的操作在窗体中显示不同的背景图片。 例如，您可以使用不同的背景图片打开 “客户” 窗体，具体取决于该窗体是为输入数据还是为浏览而打开。
还可以将 PictureData 属性与 Timer 事件和 TimerInterval 属性结合使用，在窗体上执行简单的动画。
示例
下面的示例使用三个图像控件实现一只蝴蝶从窗体中飞过的动画效果。 Hidden1 图像控件包含一张蝴蝶翘起翅膀的图片，Hidden2 图像控件包含一张蝴蝶垂下翅膀的图片。 这两个图像控件都有其 可见性 属性设置为 False 。
TimerInterval 属性设置为 200。 每次发生 计时器 事件时，图像控件 Visible1 中的图片都会使用隐藏图像控件的 PictureData 属性进行更改，可见图像控件会向右移动 200 步 。 可见图像控件将移回窗体的左边缘时其 左 属性值大于存储公用变量 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。