使用 PictureData 属性可以将窗体、报表或控件中的图片复制到另一个支持 Picture 属性的对象中。Variant 型,可读写。
expression.PictureData
expression 必需。返回“Applies To”列表中的一个对象的表达式。
PictureData 属性设置值可以是其他图像控件、命令按钮、切换按钮、窗体或报表的 PictureData 属性。
使用 Visual Basic 可以对该属性进行设置。
使用该属性可以根据用户所执行的操作的不同,在窗体中显示不同的背景图片。例如,可以根据“客户”窗体打开的目的是输入数据还是浏览数据而在打开窗体时使用不同的背景图片。
另外,将 PictureData 属性、Timer 事件和 TimerInterval 属性一起使用,可以在窗体中产生简单的动态背景效果。
下面的示例使用三个图像控件实现一只蝴蝶从窗体中飞过的动态效果。Hidden1 图像控件包含的图片是一只双翅向上的蝴蝶,Hidden2 图像控件包含的图片也是一只蝴蝶,不过这只蝴蝶的双翅是向下的。这两个控件的 Visible 属性都设为 False。TimerInterval 属性设为 200。每次发生 Timer 事件时,就通过使用隐藏图像控件的 PictureData 属性更改 Visible1 图像控件中的图片,并且可见图像控件向右移动 200 缇。当可见图像控件的 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