Access VBA教程:PictureData属性

使用 PictureData属性可以将窗体、报表或控件中的图片复制到另一个支持Picture属性的对象中。Variant 型,可读写。

expression.PictureData

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

PictureData属性设置值可以是其他图像控件、命令按钮、切换按钮、窗体或报表的 PictureData属性。

使用Visual Basic 可以对该属性进行设置。

使用该属性可以根据用户所执行的操作的不同,在窗体中显示不同的背景图片。例如,可以根据“客户”窗体打开的目的是输入数据还是浏览数据而在打开窗体时使用不同的背景图片。

另外,将 PictureData属性、Timer事件和TimerInterval属性一起使用,可以在窗体中产生简单的动态背景效果。

VBA示例

下面的示例使用三个图像控件实现一只蝴蝶从窗体中飞过的动态效果。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

上页:Access VBA教程:PictureAlignment属性 下页:Access VBA教程:PicturePages属性

Access VBA教程:PictureData属性

Access VBA教程:PicturePages属性 Access VBA教程:PictureSizeMode属性
Access VBA教程:PictureTiling属性 Access VBA教程:PictureType属性
Access VBA教程:PivotTable属性 Access VBA教程:PivotTableChange属性
Access VBA教程:PopUp属性 Access VBA教程:Port属性
Access VBA教程:PostalAddress属性 Access VBA教程:PreviousControl属性
Access VBA教程:PrintCount属性 Access VBA教程:Printer属性
Access VBA教程:Printers属性 Access VBA教程:PrintQuality属性
Access VBA教程:PrintSection属性 Access VBA教程:ProcBodyLine属性
Access VBA教程:ProcCountLines属性 Access VBA教程:ProcOfLine属性
Access VBA教程:ProcStartLine属性 Access VBA教程:ProductCode属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号