PictureData 屬性

全部顯示

使用 PictureData 屬性可以將窗體、報表或控件中的圖片復(fù)制到另一個支持 Picture 屬性的對象中。Variant 型，可讀寫。

expression.PictureData

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。

說明

PictureData 屬性設(shè)置值可以是其他圖像控件、命令按鈕、切換按鈕、窗體或報表的 PictureData 屬性。

使用 Visual Basic 可以對該屬性進(jìn)行設(shè)置。

使用該屬性可以根據(jù)用戶所執(zhí)行的操作的不同，在窗體中顯示不同的背景圖片。例如，可以根據(jù)“客戶”窗體打開的目的是輸入數(shù)據(jù)還是瀏覽數(shù)據(jù)而在打開窗體時使用不同的背景圖片。

另外，將 PictureData 屬性、Timer 事件和 TimerInterval 屬性一起使用，可以在窗體中產(chǎn)生簡單的動態(tài)背景效果。

示例

下面的示例使用三個圖像控件實現(xiàn)一只蝴蝶從窗體中飛過的動態(tài)效果。Hidden1 圖像控件包含的圖片是一只雙翅向上的蝴蝶，Hidden2 圖像控件包含的圖片也是一只蝴蝶，不過這只蝴蝶的雙翅是向下的。這兩個控件的 Visible 屬性都設(shè)為 False。TimerInterval 屬性設(shè)為 200。每次發(fā)生 Timer 事件時，就通過使用隱藏圖像控件的 PictureData 屬性更改 Visible1 圖像控件中的圖片，并且可見圖像控件向右移動 200 緹。當(dāng)可見圖像控件的 Left 屬性值大于公用變量 gfrmWidth 中存儲的窗體寬度時，可見圖像控件即重新移回窗體的左邊。gfrmWidth 變量值在窗體的 Open 事件中設(shè)為 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