全部显示

PictureData 属性

       

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

expression.PictureData

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

说明

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

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

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

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

示例

下面的示例使用三个图像控件实现一只蝴蝶从窗体中飞过的动态效果。Hidden1 图像控件包含的图片是一只双翅向上的蝴蝶,Hidden2 图像控件包含的图片也是一只蝴蝶,不过这只蝴蝶的双翅是向下的。这两个控件的 Visible 属性都设为 FalseTimerInterval 属性设为 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