CommandButton.PictureData-Eigenschaft (Access)

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 verwendet werden. Bilddaten

Ausdruck Eine Variable, die ein CommandButton-Objekt darstellt.

Hinweise

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

Verwenden Sie diese Eigenschaft, um abhängig von den Aktionen des Benutzers unterschiedliche Hintergrundbilder in einem Formular anzuzeigen. Sie können beispielsweise ein Kundenformular mit einem anderen Hintergrundbild öffnen, je nachdem, ob das Formular zur 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 eine einfache Animation auf einem Formular durchzuführen.

Beispiel

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

Die TimerInterval-Eigenschaft ist auf 200 festgelegt. Jedes Mal, wenn das Timer-Ereignis auftritt, wird das Bild im Bildsteuerelement Visible1 mithilfe der PictureData-Eigenschaft der Steuerelemente für ausgeblendete Bilder geändert, und das Steuerelement für sichtbares Bild wird um 200 Twips nach rechts verschoben. Das Steuerelement für das sichtbare Bild wird zurück auf die linke Seite des Formulars verschoben, wenn sein Left-Eigenschaftswert größer ist als die Breite des Formulars, das in der öffentlichen Variablen gfrmWidthgespeichert ist. Der Wert von gfrmWidth wird im Öffnungsereignis 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.