Freigeben über

Report.PictureData-Eigenschaft (Access)

  • Artikel

Verwenden Sie die PictureData-Eigenschaft , um das Bild in ein anderes Objekt zu kopieren, das die Picture-Eigenschaft unterstützt. Variant mit Lese-/Schreibzugriff.

Syntax

Ausdruck. PictureData

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

Hinweise

Die Einstellung der PictureData-Eigenschaft ist die PictureData-Eigenschaft eines anderen Steuerelements, Formulars oder Berichts.

Verwenden Sie diese Eigenschaft, um verschiedene Hintergrundbilder in einem Formular anzuzeigen, je nachdem, welche Aktionen der Benutzer ausgeführt hat. Beispielsweise können Sie ein Kundenformular mithilfe eines anderen Hintergrundbilds öffnen, je nachdem, ob das Formular für die Dateneingabe oder zum Durchsuchen geöffnet wird.

Sie können die PictureData-Eigenschaft auch zusammen mit dem Timer-Ereignis und der TimerInterval-Eigenschaft verwenden, um einfache Animationen für ein Formular auszuführen.

Beispiel

Im folgenden Beispiel werden drei Bildsteuerelemente verwendet, um ein Schmetterlingsbild in einem Formular zu animieren. Das Hidden1-Bildsteuerelement enthält ein Bild eines Schmetterlings mit nach oben liegenden Flügeln, und das Hidden2-Bildsteuerelement enthält ein Bild desselben Schmetterlings mit seinen Flügeln nach unten. Für beide Bildsteuerelemente ist die Visible-Eigenschaft auf False festgelegt.

Die TimerInterval-Eigenschaft ist auf 200 festgelegt. Jedes Mal, wenn das Timer-Ereignis eintritt, wird das Bild im Bildsteuerelement Visible1 mithilfe der PictureData-Eigenschaft der ausgeblendeten Bildsteuerelemente geändert, und das sichtbare Bildsteuerelement wird um 200 Twips nach rechts verschoben. Das sichtbare Bildsteuerelement wird zurück auf die linke Seite des Formulars verschoben, wenn sein Left-Eigenschaftswert größer als die Breite des Formulars ist, das in der öffentlichen Variablen gfrmWidthgespeichert ist. Der Wert von gfrmWidth wird im Open-Ereignis des Formulars auf Me.Width festgelegt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.