Form.PictureData 属性 (Access)
使用 PictureData 属性将图片复制到支持 Picture 属性的另一个对象。 读/写 Variant。
语法
表达式。PictureData
expression:表示 Form 对象的变量。
备注
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 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈